Error en cosulta
Publicado por diego (5 intervenciones) el 21/02/2011 04:26:31
Hola, estoy intentando hacer una consulta SQL y al intentar por el WHERE me da error...
Si mi codigo es este, funciona correctamente
Dim BD2 As ADODB.Connection
Dim rs2 As ADODB.Recordset
Set BD2 = New ADODB.Connection
Set rs2 = New ADODB.Recordset
BD2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\bdrehab.mdb"
rs2.CursorLocation = adUseClient
rs2.Open "SELECT Nombre From Pacientes", BD2, adOpenStatic, adLockOptimistic
With rs2
Do Until .EOF
List1.AddItem .Fields(0)
.MoveNext
Loop
End With
Pero si cambio la consulta y pongo :
"SELECT Pacientes.Nombre From Pacientes WHERE Pacientes.Actividad='Inactivo'"
me da un error....
El campo Actividad es un campo de texto...
Gracias
Si mi codigo es este, funciona correctamente
Dim BD2 As ADODB.Connection
Dim rs2 As ADODB.Recordset
Set BD2 = New ADODB.Connection
Set rs2 = New ADODB.Recordset
BD2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\bdrehab.mdb"
rs2.CursorLocation = adUseClient
rs2.Open "SELECT Nombre From Pacientes", BD2, adOpenStatic, adLockOptimistic
With rs2
Do Until .EOF
List1.AddItem .Fields(0)
.MoveNext
Loop
End With
Pero si cambio la consulta y pongo :
"SELECT Pacientes.Nombre From Pacientes WHERE Pacientes.Actividad='Inactivo'"
me da un error....
El campo Actividad es un campo de texto...
Gracias
Valora esta pregunta
0