En sql no coinciden los tipos error 13

En un form llamado verbarcazas tengo dos textbox que impportan de una base de datos en access los id de los buques y los consecutivos de los cargues, es decir los text son tipo numer.
En otro form llamado detallado tengo la siguiente rutina para consultar todos y cada unos de los registros que coincidadn con los criterios de búsqueda,
Dim sql As String
Dim cadena As String
Dim cantidad As Integer
Dim FrHora As StdDataFormat
Set cn = New ADODB.Connection
cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bitacora.mdb"
cn.ConnectionString = cadena
cn.Open
Set Rs = New ADODB.Recordset
sql = "SELECT pila,mina,palada, gondolas,total FROM PALADAS Where conse = " & Val(verbarcazas.Text1.Text) And idbuque = " & Val(verbarcazas.Text3.Text)"
Rs.CursorLocation = adUseClient
Rs.Open sql, cn, adOpenStatic, adLockOptimistic
Set DataGrid5.DataSource = Rs
la falla esta en que me sale error 143 en momentos de ejecucion, no coinciden los tipos, cuando agregue al select, el segundo criterio osea And idbuque = " & Val(verbarcazas.Text3.Text)" sin el me da una parte pero quiero filtrar con los id de los buques tambien.
por favor ayúdenme...
Donde dígito solo números
1

1 Respuesta

74.600 pts. Experto en Visual Basic 6
La consulta debe quedar así para que funcione :
sql = "SELECT pila,mina,palada, gondolas,total FROM PALADAS Where conse = " & Val(verbarcazas.Text1.Text) & " And idbuque = " & Val(verbarcazas.Text3.Text)
Suerte !

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas