Pregunta: ¿Como conectar un DbCombo a una Base de datos?
Respuesta :
Para conectar un DBCombo un DbList usamos el siguiente codigo
Código:
Private Sub Cargar_Clientes()
Dim AdoP As New Recordset
Set AdoP = New Recordset
AdoP.Open "SELECT `clientes`.`nit_cliente`, `clientes`.`nombre` FROM `clientes` WHERE (`clientes`.`cliente` <> 0) ORDER BY `nombre`", Cxn, adOpenStatic, adLockOptimistic
Set CboCliente2.DataSource = AdoP
Set CboCliente2.RowSource = AdoP
CboCliente2.BoundColumn = "nit_cliente"
CboCliente2.ListField = "nombre"
End Sub