02
Feb
08

Llenar Combobox con una DB

Dim rs as ADODB.Recordset
Dim Co as ADODB.Connection
Dim ssql as String
Const strCon =_
“DSN=Contacts;Description=Contacts;SERVER=ServerName;UID=sa;Password=;”

Private Sub combo1_DropDown()

Set Con = New ADODB.Connection
Set rs = New ADODB.Recordset
Con.Open strCon

’sql statement to select items on the drop down list
ssql = “Select LastName From Contacts”
rs.Open ssql, Con

Do Until rs.EOF
combo1.AddItem rs(”LastName”) ‘Adds lastnames to dropdown
list
rs.MoveNext
Loop

‘Close connection and the recordset
rs.Close
Set rs = Nothing
Con.Close
Set Con = Nothing
End Sub

Anuncios

0 Responses to “Llenar Combobox con una DB”



  1. Dejar un comentario

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


Datos Personales

Daniel Antonini Chavier, Soy Estudiante de la Universidad Centro-Occidental Lisandro Alvarado (Venezuela). Aficionado a la investigación de nuevas tecnologías de desarrollo.

Categorias

Estadisticas

  • 15,882 hits

A %d blogueros les gusta esto: