Ayuda por favor
Primero lleno el combo con campo de una tabla eso esta bien luego quiero buscar un código de esa misma tabla pero esta en el campo2
Private Sub Form_Load()
Dim rs2 As New ADODB.Recordset
Set rs2 = ex.Execute("SELECT pais FROM pais where pais")
Combo2.Clear
Do While Not rs2.EOF
Combo2.AddItem rs2.Fields("pais")
rs2.MoveNext
Loop
rs2.Close: Set rs2 = Nothing
end sub
Private Sub buscar_Click()
Set rs1 = ex.Execute("select codigopais from pais where '" & Combo1.ItemData(Combo1.ListIndex) & "'")
Do While Not rs1.EOF
s_cad = ""
For I_num = 0 To rs1.Fields.Count - 1
s_cad = s_cad & rs1(I_num) & " - "
Next
List1.AddItem s_cad
rs1.MoveNext
Loop
end sub
Me da un error 381 el indice de la matriz de propiedades
Gracias
Private Sub Form_Load()
Dim rs2 As New ADODB.Recordset
Set rs2 = ex.Execute("SELECT pais FROM pais where pais")
Combo2.Clear
Do While Not rs2.EOF
Combo2.AddItem rs2.Fields("pais")
rs2.MoveNext
Loop
rs2.Close: Set rs2 = Nothing
end sub
Private Sub buscar_Click()
Set rs1 = ex.Execute("select codigopais from pais where '" & Combo1.ItemData(Combo1.ListIndex) & "'")
Do While Not rs1.EOF
s_cad = ""
For I_num = 0 To rs1.Fields.Count - 1
s_cad = s_cad & rs1(I_num) & " - "
Next
List1.AddItem s_cad
rs1.MoveNext
Loop
end sub
Me da un error 381 el indice de la matriz de propiedades
Gracias
1 Respuesta
Respuesta de emperador20
1
No entiendo el error
Pero la búsqueda la podes realizar de otra forma más directa con like así te ahorras de buscar en toda la base.
Pero la búsqueda la podes realizar de otra forma más directa con like así te ahorras de buscar en toda la base.
