做個(gè)人用小工具，而不是頻繁交易的大項(xiàng)目，下面兩種連接都可以（各自需要相關(guān)驅(qū)動(dòng)）：
注：還有其它連接方式，對(duì)比后放棄了。不需要安裝oracle客戶端。環(huán)境變量需要配置。

下面是ODBC和OLEDB的例子（odbc需要下載對(duì)應(yīng)的instantclient_11_2；oledb需要相關(guān)的dll及關(guān)聯(lián)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 If End 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.Connection Dim 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" '測(cè)試環(huán)境可用。'DBconnect.Open "FILEDSN=D:\tOracleConn\myVBDEMO\conf\dsn\xxxslbps.dsn" Dim tmpSSS As String * 50 DBconnect.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.Close End If DBconnect.Open MsgBox "conn success" DBconnect.Close Set DBconnect = NothingExit Suberrflag: If Err.Number <> 0 ThenMsgBox "errno" & Err.Number & ":" & Err.DescriptionExit Sub End If Set DBconnect = Nothing End 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 "連接數(shù)據(jù)庫服務(wù)器錯(cuò)誤，您可以在網(wǎng)絡(luò)正常后繼續(xù)使用。", vbInformation, "錯(cuò)誤信息"MsgBox "errno=" & Err.Number & Err.DescriptionMsgBox ConnectionStringSet OraDB = NothingOraDB_Open = False End Sub

It’s over.
2019-02-22

總結(jié)

以上是生活随笔為你收集整理的VB连接oracle数据库的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。