应 shipL(愚人船)的要求.这是小弟连ORACLE数据库的,不过你一定要装ORACLE的客户端.
Public Function ConnDatabase(dbName As String, sUser As String, sPwd As String) As Boolean
On Error GoTo ErrHandle
'conn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=gdgf;Password=gdgf;Data Source=GDGF_10.10.10.7"
Set dbConn = New ADODB.Connection
Dim str As String
str = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=" & sUser & ";Password=" & sPwd & ";Data Source=" & dbName
dbConn.ConnectionString = str