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
Hola!
Veo que tienes mucha cosas "mal" (?):
- En el SQL te falta el igual (sería "Select * FROM zapatos WHERE Codigo=" & ... bla, bla, bla)
- Estás comparando tbl.EOF con treu
- Quieres acceder al valor del campo Cdigo (Pero parece que es Codigo)
Hace mucho que no programo en VB6 y ADO; por lo que no recuerdo si se podía acceder a los campos de esa forma. Recuerdo que usaba la forma Tabla!Campo, pero no recuerdo si aplica a ADO.
Saludos!
PD: Si colocas código, hazlo entre las etiquetas GeShi.
ya hice esos cambios gracias si los tenia mal perorme sigue saliendo el error, creo que esta en adOpendinamic y adlockoptimistic pero no estoy segura
Hola, el valor de cn es correcto? verificalo.
Saludos.