Pronlemita!
Hola buenos días estoy programando en visual basic 6.0 edition empresarial... Y estoy haciendo una búsqueda por un combo y me tita un error y la verdad no entiendo ya como solucionar... Espero puedan ayudarme... De ante mano gracias... Aquí esta el código...
Private Sub Combo1_Click()
Data1.RecordSource = "select * from Avanzados where Avanzados.Codigo= " & (Combo1) & " "
Data1.Refresh
If Data1.Recordset.RecordCount Then
Combo1 = Data1.Recordset.Fields("Codigo")
Text2 = Data1.Recordset.Fields("Nombre")
Text3 = Data1.Recordset.Fields("Horas")
Text4 = Data1.Recordset.Fields("Dias")
Text5 = Data1.Recordset.Fields("Renovacion")
Text6 = Data1.Recordset.Fields("Expedicion")
End If
End Sub
Private Sub Combo1_Click()
Data1.RecordSource = "select * from Avanzados where Avanzados.Codigo= " & (Combo1) & " "
Data1.Refresh
If Data1.Recordset.RecordCount Then
Combo1 = Data1.Recordset.Fields("Codigo")
Text2 = Data1.Recordset.Fields("Nombre")
Text3 = Data1.Recordset.Fields("Horas")
Text4 = Data1.Recordset.Fields("Dias")
Text5 = Data1.Recordset.Fields("Renovacion")
Text6 = Data1.Recordset.Fields("Expedicion")
End If
End Sub
1 respuesta
Respuesta de carloscharly
1
Esto tienes que hacer
Private Sub Combo1_Click()
Data1.RecordSource = "select * from Avanzados where Avanzados.Codigo= " & (Combo1) & " "
Data1.Refresh
If Data1.Recordset.RecordCount Then
Combo1.AddItem Data1.Recordset.Fields("Codigo")
Text2.text = Data1.Recordset.Fields("Nombre")
Text3.text = Data1.Recordset.Fields("Horas")
Text4.text = Data1.Recordset.Fields("Dias")
Text5.text = Data1.Recordset.Fields("Renovacion")
Text6.text = Data1.Recordset.Fields("Expedicion")
End If
End Sub
Private Sub Combo1_Click()
Data1.RecordSource = "select * from Avanzados where Avanzados.Codigo= " & (Combo1) & " "
Data1.Refresh
If Data1.Recordset.RecordCount Then
Combo1.AddItem Data1.Recordset.Fields("Codigo")
Text2.text = Data1.Recordset.Fields("Nombre")
Text3.text = Data1.Recordset.Fields("Horas")
Text4.text = Data1.Recordset.Fields("Dias")
Text5.text = Data1.Recordset.Fields("Renovacion")
Text6.text = Data1.Recordset.Fields("Expedicion")
End If
End Sub
Ok ahora el error que me da es "no coinciden los tipos de datos con la expresión de criterios" (3464)
Cambia esto tal vez tu tipo de retorn es entero
Combo1. AddItem str(Data1. Recordset. Fields("Codigo") )
Combo1. AddItem str(Data1. Recordset. Fields("Codigo") )
Ya el combo me agrega y busca pero la cuestión es que cuando selecciono algún item del combo luego se replica... tengo que revisar lo del addnew... ya el error anterior lo aclaraste... gracias...
Claro revisa, o en todo caso antes de todo coloca en Combo1. Clear
