Visual Basic - ayuda con codigo

Life is soft - evento anual de software empresarial
   
Vista:

ayuda con codigo

Publicado por yoselyn (20 intervenciones) el 07/11/2008 13:03:48
hola tengo un listview en donde visualizo mis datos guardadas en una BD..y tengo este codigo...para buscar por el codigo...pero me arroja error
haber si ustedes me pueden ayudar para ver cual es el error...

Set baseTB = OpenDatabase(App.Path & "ase de datosd1.mdb")
sbuscar = "select * from farmacos where codigo = '" & Text1.Text & "'"
Set trs = baseTB.OpenRecordset(sbuscar, dbOpenSnapshot)
If trs.RecordCount = 0 Then
MsgBox "este CODIGO no esta en la base de datos"
Exit Sub
End If
With ListView1
.ListItems.Clear
Do Until trs.EOF = True
Set Item = .ListItems.Add(, , trs(0) & "")
For i = 1 To .ColumnHeaders.Count - 1
Item.SubItems(i) = trs.Fields(i) & ""
Next
trs.MoveNext
Loop
End With

Set trs = baseTB.OpenRecordset(sbuscar, dbOpenSnapshot) en esta parte me sale error
me dice: No coinciden los tipos de datos en la expresion de criterios.

agradesco de su ayuda...
Saludos
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:ayuda con codigo

Publicado por quique (64 intervenciones) el 07/11/2008 13:32:39
El campo 'codigo' es numérico, quita las comillas

sbuscar = "select * from farmacos where codigo = " & Text1.Text
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

RE:ayuda con codigo

Publicado por yoselyn (20 intervenciones) el 07/11/2008 14:06:36
ok muchisimas gracias
me ha sido de gran ayuda

Saludos
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