UserForm_Initialize secundário confidencial ()
NC não ofuscante como ADODB.Connection novo
Rs não ofuscantes como ADODB.RecordSet novo
strConn não ofuscante como a corda
strConn = “Provider=Microsoft.Jet.OLEDB.4.0; Origem de dados = C:\My Folder\MyDatabase.mdb; Usuário - =admin da identificação; Password=; ”
NC. Abrir o strConn
rs. Aberto “selecionar * da ORDEM de ClientNames por Pname”, NC, adOpenDynamic, adLockOptimistic, adCmdText
ListBox1.Clear
Fazer até rs.EOF
Rs de ListBox1.AddItem, rs. Campos (“PName”). Valor
rs.MoveNext
Laço
rs. Fim
NC. Fim
Submarino da extremidade
|