22/09/2005, 11:00
|
 | | | Fecha de Ingreso: junio-2005 Ubicación: portuguesa (Venezuela)
Mensajes: 187
Antigüedad: 19 años, 11 meses Puntos: 1 | |
| seria algo asi
Dim ors As ADODB.Recordset
Dim ocnn As New ADODB.Connection
Dim oCmd As New ADODB.Command
Set ors = New ADODB.Recordset
oCmd.CommandType = adCmdText
oCmd.CommandText = "SELECT nombreprov FROM proveedores"
Set ors = oCmd.Execute
While Not ors.EOF
cboProveedores.AddItem ors.fields!nombreprov
ors.MoveNext
Wend
saludos
nos vemos....
__________________
A quien dices un secreto le entregas tu libertad :si: |