Visual Basic.NET - Error Consulta

   
Vista:

Error Consulta

Publicado por JhonAlex (1 intervención) el 20/11/2009 02:08:24
Alguien por favor me puede regalar una gran ayuda, es que tengo un problema con una consuta y es como grave porque no tengo ni la mas minima idea de cual es el problema:

Para el siguiente codigo porque se genera el error: ""No coinciden los tipos de datos en la expresión de criterios""

Sub select01()

Dim rs As Recordset, dbs As Database
Dim stCOD As Long, stQuery As Variant

stCOD = Form_PasoVendido.Codigo_del_Animal.Value
ss = MsgBox("Esta seguro de que este animal se vendio?, si lo introduce al invetario de ventas por error debe consultar al proveedor", vbYesNo + vbInformation, "SIGAH")

If ss = 6 Then

stQuery = "SELECT DiasPendientes FROM PeriododeRETIRO WHERE [Codigo del Animal]= '" & stCOD & "'"
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset(stQuery)

rs.MoveFirst
Do Until rs.EOF = True
s = rs![DiasPendientes]
MsgBox s
rs.MoveNext
Loop
Exit Sub

rs.Close

End If
End Sub

MUCHAS GRACIAS PARA LOS PROGRAMADORES QUE ME PUEDAN AYUDAR.
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:Error Consulta

Publicado por Damian (824 intervenciones) el 20/11/2009 15:09:06
Bueno como dice el error que te tira parece que tienes un problemas de tipo de datos estas queriendo comparar string con otro tipo de dato que puede ser integer por ejemplo, de que tipo es tu Codigo de Animal en la BD?, ademas stCOD lo declaraste como LONG entonces las comillas simples no hacen falta.
Resumiendo ambos tipos deben ser del mismo tipo.
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