llenar combo con datos de SQL

[inemart]

hola de nuevo salio otra duda ( necesito llenar un combobox con informacion que esta en una tabla en sql no se como hacer la consulta para poder llenar el combo
espero que alguien me pueda ayudar URG!!!!

[Avellaneda]

Iniciado por inemart

hola de nuevo salio otra duda ( necesito llenar un combobox con informacion que esta en una tabla en sql no se como hacer la consulta para poder llenar el combo
espero que alguien me pueda ayudar URG!!!!

Bueno, es bastante sencillo.

Suponemos que tienes la conexion a la base de datos, pues creas un objeto recordset a la tabla y en un bucle añades el campo deseado en el Combo

Dim rs As New ADODB.Recordset
rs.Open "Select * From LaTabla", conexion
Do Until rs.EOF
Combo1.AddItem rs("CampoaMostrar")
rs.MoveNext
Loop

En este caso estamos trabajando con ADO, si es con DAO solamente cambia la forma de abrir el recordset

[inemart]

gracias lo checo ahorita mismo y respondo gracias!!!!!!!!

[inemart]

pues nada se que algo estoy poniendo mal les mando la pequeña rutina para que me digan mi error
Private Sub CmbSucursalFac_load() ''el procedimiento no se si es load o change
Dim RS As New ADODB.Recordset
RS.Open " select * from BackOfficeCatalogos.dbo.CatSucursales order by Descripcion", Ocnn, adOpenDynamic, adLockOptimistic
Do Until .EOF
CmbSucursalFac.AddItem RS("Descripcion")
RS.MoveNext
Loop
End Sub

por favor agradeco respuestas !!!!!

[David]

Un ComboBox no tiene evento Load, tiene los eventos Change y Click. Si lo que quieres es cargar los datos al iniciar el formulario debes usar el evento Load de la ventana.

[inemart]

y eso como lo hago ????????? disculpenme soy nueva en esto !!!!!!!!!!!!!!!!!!!!!!!
gracias

[David]

Al hacer doble click en la ventana, automáticamente sale el evento Load . Algo como esto:

Código vb:

Private Sub Form_Load()
'Aquí el código
End Sub
 

[inemart]

tengo una duda solo una vez puedo utilizar el evento form_load ?
me refiero que si tengo 2 combos uno de clientes y otro de sucurales y los 2 los quiero llenar con datos de diferentes tablas ... mi pregunta es que ¿si puedo usar 2 veces el form_load?

[David]

Coloca ambos códigos en el Form_Load, no se puede y no es necesario que lo tengas dos veces.

[SalomonSab]

Claro puedes hacer las dos cosas en el mismo form algo Asi:

Código:

Private Sub Form_Load()

if rs.State = 1 Then rs.Close
        rs.Open "SELECT DISTINCT PrimerCampo, SegundoCampo FROM TuTabla", cnn, adOpenStatic, adLockOptimistic
            Do While Not rs.EOF
                Combo1.AddItem rs.Fields("Aqui un dato")
                Combo2.AddItem rs.Fields("Aqui el otro")
                rs.MoveNext
            Loop

End Sub

Espero te sirva

[inemart]

Muchisimas gracias ya lo pude hacer !!!!!!!!
gracias por la rapidez de sus comentarios
saludos desde mexico