
| ||||
serial algo asi
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
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ Sitio http://www.geoavila.com twitter: @GeoAvila |
| ||||
la verdad "no", (jeje) nos vemos..
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ Sitio http://www.geoavila.com twitter: @GeoAvila |