做个人用小工具，而不是频繁交易的大项目，下面两种连接都可以（各自需要相关驱动）：
注：还有其它连接方式，对比后放弃了。不需要安装oracle客户端。环境变量需要配置。
下面是ODBC和OLEDB的例子（odbc需要下载对应的instantclient_11_2；oledb需要相关的dll及关联dll控件）：
Public Function getConnDB() As IntegerOn Error GoTo errflaggetConnDB = FAILDim tmpstr As StringIf g_conn.State <> 0 Thentmpstr = "already connect at " & Date & " " & Time & ""Call writeLog(tmpstr)getConnDB = SUCCESSExit Function'g_conn.CloseEnd If'DBconnect.Provider = "MSADORA"'DBconnect.ConnectionString = "Provider=MSDAORA;Data Source=slbps;User ID=XXX" '--g_conn.ConnectionString = "DRIVER={Oracle ODBC Driver};Data Source=slbps;User ID=XXX;PWD=XXX"g_conn.OpengetConnDB = SUCCESStmpstr = "getConnDB connect to slbps106 SUCCESS at " & Date & " " & Time & ""Call writeLog(tmpstr)Exit Functionerrflag:If Err.Number <> 0 ThenMsgBox "errno" & Err.Number & ":" & Err.DescriptionExit FunctionEnd IfEnd Function'连接方式说明：'1. ConnectionString = "provider=OraOLEDB.Oracle;Persist Security Info=False;User ID=UserName;Data Source=DataBase;Extended Properties='';Password=Password"Private Sub cmd_ODBC_Conn_Click()'Driver={Microsoft ODBC for Oracle};On Error GoTo errflagDim DBconnect As New adodb.ConnectionDim tmpConnString As String'DBconnect.Provider = "MSADORA"'DBconnect.ConnectionString = "Provider=MSDAORA;Data Source=slbps;User ID=XXX" '--'DBconnect.ConnectionString = "DRIVER={Oracle ODBC Driver};Data Source=slbps;User ID=XXX;PWD=XXX" '测试环境可用。'DBconnect.Open "FILEDSN=D:\tOracleConn\myVBDEMO\conf\dsn\xxxslbps.dsn"Dim tmpSSS As String * 50DBconnect.ConnectionString = "FILEDSN=" & App.Path & "\conf\dsn\" & "slbps106.dsn"'tmpSSS = "FILEDSN=D:\tOracleConn\myVBDEMO\conf\dsn\xxxslbps.dsn"'DBconnect.Open'tmpSSS = fg_SetString(tmpSSS)'DBconnect.Open tmpSSSIf DBconnect.State <> adStateClosed Then '0 adStateClosedDBconnect.CloseEnd IfDBconnect.OpenMsgBox "conn success"DBconnect.CloseSet DBconnect = NothingExit Suberrflag:If Err.Number <> 0 ThenMsgBox "errno" & Err.Number & ":" & Err.DescriptionExit SubEnd IfSet DBconnect = NothingEnd SubPrivate Sub cmd_OLEDB_Conn_Click()On Error GoTo ToExitOraDB_Open = False'Set OraDB = New ADODB.ConnectionDim OraDB As New adodb.ConnectionConnectionString = "Provider=OraOLEDB.Oracle;Password=XXX;User ID=XXX;Data Source=(DESCRIPTION =(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=xx.xx.xx.xx)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=slbps)));Persist Security Info=True"'ConnectionString = "Provider=OraOLEDB.Oracle;Password=cygck;User ID=cygck;Data Source=""(DESCRIPTION =(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=xxx.xxx.xxx.xxx)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=ora9i)))"";Persist Security Info=True"'OraDB.CursorLocation = adUseServerOraDB.Open ConnectionStringOraDB_Open = TrueMsgBox "conn success"Set OraDB = NothingExit SubToExit:MsgBox "连接数据库服务器错误，您可以在网络正常后继续使用。", vbInformation, "错误信息"MsgBox "errno=" & Err.Number & Err.DescriptionMsgBox ConnectionStringSet OraDB = NothingOraDB_Open = FalseEnd Sub
It’s over.
-02-22
