Dbcombo
Hola, mi pregunta es como conecto un dbcombo por medio de código lo que quiero hacer es conectarlo con una tabla que contiene Código y nombre y quiero que me quede en el text el nombre y en el boutext(algo así) el código.
Gracias.
Gracias.
1 respuesta
Respuesta de rgianella
1
Private Function CargarCombo(dbCombo As ComboBox)
Dim sql As String
Dim oCon As New ADODB.Connection
Dim oRs As New ADODB.Recordset
Dim Reg As Integer
With oCon
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open "C:\Roberth\vb\Inventario\inventario.mdb"
End With
oRs.Open "SELECT idCliente, Nombre FROM Clientes", oCon
oRs.MoveFirst
Reg = 0
While Not oRs.EOF
Reg = Reg + 1
dbCombo.AddItem oRs("Nombre")
dbCombo.ItemData(Reg) = oRs("idCliente")
ORs. MoveNext
Wend
End Function
Dim sql As String
Dim oCon As New ADODB.Connection
Dim oRs As New ADODB.Recordset
Dim Reg As Integer
With oCon
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open "C:\Roberth\vb\Inventario\inventario.mdb"
End With
oRs.Open "SELECT idCliente, Nombre FROM Clientes", oCon
oRs.MoveFirst
Reg = 0
While Not oRs.EOF
Reg = Reg + 1
dbCombo.AddItem oRs("Nombre")
dbCombo.ItemData(Reg) = oRs("idCliente")
ORs. MoveNext
Wend
End Function
