Inicio > Desarrollo Escritorio > Cargar Combobox en VB6

Cargar Combobox en VB6

 

Private Sub Command1_Click()

Set rst = New ADODB.Recordset

cn.ConnectionString = Glo_ConCadena

cn.Open    rst.Open “select id,producto from productoCategoria”, cn, adOpenStatic, adLockOptimistic    ‘ Asignar los nombres de los campos al combo

Combo1.Text = “[SELECCIONAR TIPO PERSONA]”       Do Until rst.EOF        Combo1.AddItem rst!producto

Combo1.ItemData(Combo1.NewIndex) = rst.Collect(“id”)

rst.MoveNext

Loop         ‘ Cerrar el recordset y la conexión    rst.Close    cn.Close

End Sub

 

Categorías:Desarrollo Escritorio
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: