Access - Separador decimal en consultas SQL

 
Vista:

Separador decimal en consultas SQL

Publicado por ams (3 intervenciones) el 26/11/2001 14:34:43
Estoy intentando abrir un recordset donde uno de los criterios es un valor decimal. El separador decimal que tengo configurado en mi ordenador es la coma, y SQL espera un punto.
Hay alguna forma de convertir el separador antes de mandárselo a SQL????

Por ejemplo pasar de 22,25 --> 22.25 para que la consulta se ejecute bien.
Lo he intentado con Format(), pero no lo convierte.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Separador decimal en consultas SQL

Publicado por Ignacio (231 intervenciones) el 27/11/2001 06:29:42
Escribete esta función en un módulo y úsala para reemplazar la coma por el punto. Por ejemplo "Reemplazar(Texto,",",".")

Public Function Reemplazar(Texto As String, Cad1 As String, Cad2 As String) As String

' Devolver Texto habiendo reemplazado la Cad1 por la Cad2

Dim c As Integer, Pos1 As Integer, Pos2 As Integer, LargoCad1 As Integer
Dim Txt2 As String

If Texto = "" Or Cad1 = "" Or Len(Cad1) > Len(Texto) Then ' No procede
Reemplazar = Texto
Exit Function
End If

' Localizar Cad1
Pos1 = 0: Pos2 = 0: LargoCad1 = Len(Cad1)
For c = 1 To Len(Texto) - LargoCad1 + 1
If Mid(Texto, c, LargoCad1) = Cad1 Then
Pos1 = c
Pos2 = c + LargoCad1 - 1
Exit For
End If
Next

' Sustituir si procede
If Pos1 > 0 Then
Txt2 = Left$(Texto, Pos1 - 1) & Cad2 & Mid$(Texto, Pos2 + 1)
Reemplazar = Txt2
Else
Reemplazar = Texto
End If

End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar