excel VBA 連數(shù)據(jù)庫 oracle

Sub connect_數(shù)據(jù)庫()

網(wǎng)站設(shè)計制作過程拒絕使用模板建站；使用PHP+MYSQL原生開發(fā)可交付網(wǎng)站源代碼;符合網(wǎng)站優(yōu)化排名的后臺管理系統(tǒng)；成都網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè)收費合理；免費進行網(wǎng)站備案等企業(yè)網(wǎng)站建設(shè)一條龍服務(wù).我們是一家持續(xù)穩(wěn)定運營了10余年的創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司。

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

VBA 如何通過ADO連接Oracle數(shù)據(jù)庫拜托各位大神

1、把開excel，點擊工具--宏--錄制新宏 2、點擊 數(shù)據(jù)--導入外部數(shù)據(jù)--新建數(shù)據(jù)庫查詢，然后根據(jù)向?qū)нx擇oracle驅(qū)動，最后完成向?qū)?3、點停止宏，再點 工具--宏--宏... 在對話框里選擇剛才錄制的宏，點編輯， 這樣就可以看到連接字符串了。

如何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

想請教一個用vba連接oracle的問題

你寫的代碼是連接你電腦當?shù)氐臄?shù)據(jù)庫，而你需要連接的應(yīng)該是同一局域網(wǎng)的服務(wù)器的數(shù)據(jù)庫吧~！你應(yīng)該還要寫上數(shù)據(jù)庫所在的ip地址

請嘗試一下：

CONNSTR = "Provider=MSDAORA.1;Password=密碼;User ID=用戶名;Data Source=數(shù)據(jù)庫ip地址;Persist Security Info=True"

CONN.Open CONNSTR