Hola es la primera vez que publico y es por que necesito su ayuda, tengo el siguiente codigo y me muestra el siguiente error: No se han especificados algunos valores para un parametro requerido.
el codigo es el siguiente:
Private Sub cmd_buscar_Click()
Dim tbl As New ADODB.Recordset
tbl.Open "Select * FROM zapatos WHERE Codigo" & txt_cod.Text, cn, adOpenDynamic, adLockOptimistic
If tbl.EOF = treu And tbl.BOF = True Then
txt_cod.Text = tbl("Cdigo")
txt_marca.Text = tbl("Marca")
txt_precio.Text = tbl("precio")
Text4.Text = tbl("dos y medio")
Text5.Text = tbl("tres")
Text6.Text = tbl("tres y medio")
Text7.Text = tbl("cuatro")
Text8.Text = tbl("cuatro y medio")
Text9.Text = tbl("cinco")
Text10.Text = tbl("cinco y medio")
Text11.Text = tbl("seis")
Text1.Text = tbl("seis y medio")
Text2.Text = tbl("existencias")
Else
MsgBox ("el codigo no existe")
End If
End Sub
_____________________________________________________________
Public Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\alternativa2\Database1.mdb;Persist Security Info=False"
El error me aparece en la tercera linea, la agradecere mucho su ayuda
el codigo es el siguiente:
Private Sub cmd_buscar_Click()
Dim tbl As New ADODB.Recordset
tbl.Open "Select * FROM zapatos WHERE Codigo" & txt_cod.Text, cn, adOpenDynamic, adLockOptimistic
If tbl.EOF = treu And tbl.BOF = True Then
txt_cod.Text = tbl("Cdigo")
txt_marca.Text = tbl("Marca")
txt_precio.Text = tbl("precio")
Text4.Text = tbl("dos y medio")
Text5.Text = tbl("tres")
Text6.Text = tbl("tres y medio")
Text7.Text = tbl("cuatro")
Text8.Text = tbl("cuatro y medio")
Text9.Text = tbl("cinco")
Text10.Text = tbl("cinco y medio")
Text11.Text = tbl("seis")
Text1.Text = tbl("seis y medio")
Text2.Text = tbl("existencias")
Else
MsgBox ("el codigo no existe")
End If
End Sub
_____________________________________________________________
Public Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\alternativa2\Database1.mdb;Persist Security Info=False"
El error me aparece en la tercera linea, la agradecere mucho su ayuda