Problema en SQL y Visual Basic 6.0
Buenos días: estoy tratando de hacer una consulta a una base MySQL desde VB 6.0 con la cláusula "LIKE". Busco todos los registros en los que la razón social comienza con determinadas letras, que ingreso en un cuadro de texto (Text1) de un formulario:
El código es el siguiente:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
Dim texto As String
If tipoconsulta = 1 Then
texto = "WHERE razsoc LIKE '" & Text1.Text & "%'"
rs.Open "SELECT * " _
& "FROM tblCUIT" _
& texto, cn, adOpenStatic, adLockReadOnly
Cuando la ejecuto me aparece un mensaje de error de sintaxis siempre relacionado con el uso de "LIKE".
Probé incluso con SQLServer y no hay caso, aparece el mismo error.
Mucho te agradecería una respuesta porque estoy absolutamente empantanado.
Gracias por tu tiempo !
Hugo Dodero
El código es el siguiente:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
Dim texto As String
If tipoconsulta = 1 Then
texto = "WHERE razsoc LIKE '" & Text1.Text & "%'"
rs.Open "SELECT * " _
& "FROM tblCUIT" _
& texto, cn, adOpenStatic, adLockReadOnly
Cuando la ejecuto me aparece un mensaje de error de sintaxis siempre relacionado con el uso de "LIKE".
Probé incluso con SQLServer y no hay caso, aparece el mismo error.
Mucho te agradecería una respuesta porque estoy absolutamente empantanado.
Gracias por tu tiempo !
Hugo Dodero
Respuesta de carloscharly
1
Bueno el erro que veo, no es de motor de base de datos, si no de sintaxis, te falto un espacio antes del WHERE, Abajo marque de negrita la linea correcta que deberías tener.
...
If tipoconsulta = 1 Then
texto = " WHERE razsoc LIKE '" & Text1.Text & "%'"
rs.Open "SELECT * " _
...
Cualquier cosa me avisas.
...
If tipoconsulta = 1 Then
texto = " WHERE razsoc LIKE '" & Text1.Text & "%'"
rs.Open "SELECT * " _
...
Cualquier cosa me avisas.
Gracias !
Funciona a la perfección !
No puedo creer que sea ese espacio todo el problema!
Gracias por tu tiempo y por compartir tus conocimientos.!
Funciona a la perfección !
No puedo creer que sea ese espacio todo el problema!
Gracias por tu tiempo y por compartir tus conocimientos.!
