Actualizacion de Combo Boxes

Daniel
18 de Enero del 2006
Por favor necesito que me digan como hago para actualizar un combo box a travès de una Base de Datos.

mvallejos
18 de Enero del 2006
Interpreto que deseas cargar un ComboBox con datos de una tabla.
El ejemplo es para el típico codigo-descripcion

Dim Sql As String
Dim R as New ADODB.Recordset

Sql = "Select Codigo,Descrip From Tabla"
R.CursorLocation = AdUseClient
R.Open Sql, Conexion, AdOpenStatic

Do While Not R.EOF
Combo1.AddItem R!Fields(1).Value
Combo1.ItemData(Combo1.NewIndex) = R.Fields(0).Value
R.MoveNetx
Loop
R.Close

Trabajando de este modo hay algunas ventajas

No dependes de datas adodc para conectar controles

Podés convertir eso en una Sub Global, pasándole como parámetros la Tabla y el Combo a llenar-

Espero que te sirva

Saludos