Como conectar un DbCombo a una Base de datos

Iniciado por ANTRAX, Julio 26, 2010, 12:27:03 PM

Tema anterior - Siguiente tema

0 Miembros y 11 Visitantes están viendo este tema.

Julio 26, 2010, 12:27:03 PM Ultima modificación: Mayo 12, 2014, 03:14:19 PM por Expermicid
Para conectar un DBCombo un DbList usamos el siguiente codigo

Código: vb
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