UserForm_Initialize secondario riservato ()
Cn fioco come nuovo ADODB.Connection
Rs fiochi come nuovo ADODB.RecordSet
strConn fioco come stringa
strConn = “Provider=Microsoft.Jet.OLEDB.4.0; Dati Source= C:\My Folder\MyDatabase.mdb; =admin di identificazione usuario; Password=; „
cn. Aprire lo strConn
rs. Aperto “selezionare * a partire da ORDINE di ClientNames da Pname„, cn, adOpenDynamic, adLockOptimistic, adCmdText
ListBox1.Clear
Fare fino a rs.EOF
Rs di ListBox1.AddItem, rs. Campi (“PName„). Valore
rs.MoveNext
Ciclo
rs. Fine
cn. Fine
Sommergibile dell'estremità
|