davidsuarez.es

Dim rs as ADODB.Recordset
Dim Con 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

Vota este artículo:
Posts anterior y posterior:


Posts Relacionados:

• Cargar un combo desde una db ( Visual basic )
• canalvisualbasic
• Web de recursos de Visual basic.
• enviar email con visual basic
• Colocar icono junto al reloj (Visual Basic).