busqueda exacta de cadenas en base de datos mdb
Publicado por Alex (1 intervención) el 16/08/2008 00:11:43
bueno, tengo una duda... estoy haciendo un soft y necesito hacer uqe me busque cadenas exactas y no las cosas parecidas, el que es que creo que en lugar del ike se pone un = no?, pero si hago eso la funcion de validar (chekea si ya estamos en el final de la tabla) siempre es false, necesito ayuda, aqui les dejo el codigo...
Private Sub fila2_Click()
'Dim crit As String
'Dim val As Boolean
'Dim crit1 As String
crit1 = "codprod like '" & cod2.Text & "%'"
'recien agregado
cn.Close
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "C:DualParts-v.Deluxdelux.mdb"
cn.Open
rs.Open "Select * from inventario", cn, adoenkeyset, adLockOptimistic
If cod2.Text <> "" Then
crit = "codprod like '" & cod2.Text & "%'"
rs.Find crit
val = False
val = validar()
End If
If val = True Then
cod2.Text = rs!CodProd
prod2.Text = rs!producto & " " & rs!marca & " " & rs!modelo
uni2.Text = rs!unidmed
prec2.Text = rs!precioventa
End If
End Sub
Private Sub fila2_Click()
'Dim crit As String
'Dim val As Boolean
'Dim crit1 As String
crit1 = "codprod like '" & cod2.Text & "%'"
'recien agregado
cn.Close
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "C:DualParts-v.Deluxdelux.mdb"
cn.Open
rs.Open "Select * from inventario", cn, adoenkeyset, adLockOptimistic
If cod2.Text <> "" Then
crit = "codprod like '" & cod2.Text & "%'"
rs.Find crit
val = False
val = validar()
End If
If val = True Then
cod2.Text = rs!CodProd
prod2.Text = rs!producto & " " & rs!marca & " " & rs!modelo
uni2.Text = rs!unidmed
prec2.Text = rs!precioventa
End If
End Sub
Valora esta pregunta


0