arkam20
20 de Mayo del 2003

No he podido resolver cual es el problema con la siguiente consulta:

Private Sub DOBusquedaADO()
Dim strCampoB As String
Dim condicion As String

On Error GoTo SQLError

strCampoB = frmUsuarios.txtTelefonoB(8).Text
'cuando la realizo de esta manera no resulta por
' y me indica que los criterios no coinciden con
'los tipos de datos
condicion = "select * from usuarios where telefono =" & strCampoB
'cuando realizo la consulta de esta manera si resulta
'condicion = "select * from usuarios where telefono ='15814275'"

With dataADO
.CommandType = adCmdText
.RecordSource = condicion
.Refresh
Exit Sub
'If error occurs, report it in message box
SQLError:
MsgBox Error(Err.Number), vbExclamation + vbOKOnly, "SQL Error"
End With
Exit Sub
End Sub

Les agradeceria mucho su ayuda

sabbath
20 de Mayo del 2003

prueba con este codigo en vez del que no te resulta
condicion = "select * from usuarios where telefono = '" & 1 strCampoB & "'"

Bateman
20 de Mayo del 2003

Efectivamente, el problema es con los tipos de datos. Las comillas no estan puestas de manera correcta. Para tu ejemplo es de la siguiente manera:
condicion = "select * from usuarios where telefono =\'" & strCampoB & "\'"
Si te fijas he añadido comillas simples y he cerrdo el dato de la consulta (concatenado y con comillas dobles y luego he cerrado tambien la consulta.
Espero que esto te valga

Bateman
20 de Mayo del 2003

Ojo, veo que salen barras invertidas () sobran todas.