1. Visual Basic - Curso completo teoria y practica

Seleccion1
Nombre SelProfe
Id SelProfe
Value
Para especificar los elementos de lista que se deben
mostrar en el elemento Select agregar el siguiente código al
procedimiento de evento Load de la página HTML, veamos:
Private Sub DHTMLPage_Load()
Dim SelElement As HTMLSelectElement
Dim Cn As ADODB.Connection
Dim RsProfe As ADODB.Recordset
Set Cn = New ADODB.Connection
Set RsProfe = New ADODB.Recordset
Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=C:\FundVB\Data\CursosLibres.MDB;” & _
“Persist Security Info=False”
RsProfe.ActiveConnection = Cn
RsProfe.CursorType = adOpenStatic
RsProfe.LockType = adLockOptimistic
RsProfe.CursorLocation = adUseClient
RsProfe.Open “Select Distinct CurProfe From Curso”
Do While Not RsProfe.EOF()
Set SelElement = Document.createElement(“OPTION”)
SelElement.Text = RsProfe!CurProfe
SelProfe.Options.Add SelElement
RsProfe.MoveNext
Loop
End Sub
Al ejecutar su aplicación debe ser similar a la figura
mostrada:
Pág. 395