建站
咨詢
售后
建站咨詢
新聞中心
想請教一個用vba連接oracle的問題
你寫的代碼是連接你電腦當?shù)氐臄?shù)據(jù)庫，而你需要連接的應(yīng)該是同一局域網(wǎng)的服務(wù)器的數(shù)據(jù)庫吧~！你應(yīng)該還要寫上數(shù)據(jù)庫所在的ip地址
克井網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)建站！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、自適應(yīng)網(wǎng)站建設(shè)等網(wǎng)站項目制作，到程序開發(fā)，運營維護。創(chuàng)新互聯(lián)建站于2013年開始到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)建站。
請嘗試一下：
CONNSTR = "Provider=MSDAORA.1;Password=密碼;User ID=用戶名;Data Source=數(shù)據(jù)庫ip地址;Persist Security Info=True"
CONN.Open CONNSTR
如何vba連接oracle
VBA連接oracle數(shù)據(jù)庫
小 'システム共通変數(shù)
Public ORA_SE As Object 'Oracleのセッションオブジェクト
Public ORA_DB As Object 'Oracleの接続オブジェクト
'******************************************************************************
' ????????名 : Ora_Connect
' 概要 : Oracle接続
' ?????? : なし
' 說明 :Oracleへの接続を行う
'******************************************************************************
'Public Sub Ora_Connect()
Public Function Ora_Connect()
Dim rt As Integer
On Error GoTo err
Set ORA_SE = CreateObject("OracleInProcServer.XOraSession")
'Set ORA_DB = ORA_SE.OpenDatabase("數(shù)據(jù)庫連接詞", "用戶名/密碼", 0)
Set ORA_DB = ORA_SE.OpenDatabase("combcm", "combcm/combcm", 0)
Exit Function
err:
End Function
'******************************************************************************
' ????????名 : Ora_DisConnect
' 概要 : Oracle切斷
' ?????? : なし
' 說明 : Oracleの切斷を行う
'******************************************************************************
'Public Sub Ora_DisConnect()
Public Function Ora_DisConnect()
Set ORA_SE = Nothing
Set ORA_DB = Nothing
End Function
Public Function getData()
'該當なし
If OraDynaset.EOF = True Then
Set OraDynaset = Nothing
Exit Function
Else
'2004/03/06 add rec_cntを2して2行目から書き出す
'rec_cnt = 2
'Do While Not OraDynaset.EOF
'For row_cnt = 0 To OraDynaset.Fields.Count - 1
' Cells(rec_cnt, row_cnt + 1).Value = OraDynaset(row_cnt).Value
'Next row_cnt
'2004/11/26 クリップボードを介した方法でスピードアップ対応。
'從數(shù)據(jù)庫中取出數(shù)據(jù)
OraDynaset.CopyToClipboard
Cells(2, 1).Select
ActiveSheet.Paste
rec_cnt = OraDynaset.RecordCount
'OraDynaset.DbMoveNext
'rec_cnt = rec_cnt + 1
'Loop
End If
end function
excel VBA 連數(shù)據(jù)庫 oracle
Sub connect_數(shù)據(jù)庫()
Dim strconnt As String
Set connt = New ADODB.Connection
Dim rs As Object
Set rs = New ADODB.Recordset
Dim sevip, Db, user, pwd As String
'設(shè)服務(wù)器地址、所連數(shù)據(jù)，及登錄用戶密碼
sevip = "****"
Db = "****"
user = "****"
pwd = "****"
strconnt = "DRIVER={Microsoft ODBC for Oracle};Password=apps;User ID=apps;Data Source=demo" '
connt.ConnectionString = strconnt
connt.Open
End Sub
網(wǎng)頁名稱：oracle怎么連vba Oracle怎么連接
本文網(wǎng)址：http://fisionsoft.com.cn/article/hhsihe.html
