Dim CON
Dim RSPrivate Sub Form_Load()
Set CON = CreateObject("adodb.connection")
CON.Open "UID=CDITS;PWD=CDITS;driver={Microsoft ODBC for Oracle};SERVER=CDITS;"
Dim mysql As String
mysql = "select distinct(vid) from HTELEFEEINFORMATION where driverid=0 "
CON.Execute mysql
Set RS = CON.Execute(mysql)
Do While Not RS.EOF
Text1.Text = Text1.Text & RS("vid") & Chr(13) & Chr(10)
RS.MoveNext
LoopEnd Sub
m_DBConnection.ConnectionString = _
"DSN=" & dsn & _
";UID=" & user_name & _
";PWD=" & password
m_DBConnection.Open例:
DSN=oracle_database;UID=rod;PWD=testpassword