vbaoracle資料庫

① VBA連接oracle資料庫問題

將Stmt=set names GBK修改為：
SET NAMES 'GBK'

② excel vba 怎樣連接oracle資料庫連接

Sub connect_資料庫()
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
'設伺服器地址、所連數據，及登錄用戶密碼
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

③ excel VBA 連資料庫 oracle

Sub connect_資料庫()
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
'設伺服器地址、所連數據，及登錄用戶密碼
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連接oracle

VBA連接oracle資料庫

小 'システム共通変數
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("資料庫連接詞", "用戶名/密碼", 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 クリップボードを介した方法でスピードアップ対応。

'從資料庫中取出數據
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連接oracle資料庫

Sub GetData()

Dim SQL_String As String
Dim dbConnectStr As String
Set con = New ADODB.Connection
Set recset = New ADODB.Recordset
Dim recordCount As Long
dbConnectStr = "Provider=msra;Data Source=" & "Oracle_Database_Name;"

User Id=userId" & "; Password=" & "password"
'The statement above has been commented out. I use the statement below to prompt the user for the userId and password - which is what I prefer!

con.ConnectionString = dbConnectStr
con.Properties("Prompt") = adPromptAlways
con.Open dbConnectStr 'ConnectionString

'This is an example SQL code that you might want to run
'Select * From MyTable

'SQL_String = "Select count(*) from adm_user"
recset.Open SQL_String, con
recset.MoveLast
recordCount = recset.recordCount
recset.MoveFirst
Do While Not recset.EOF = True
'Have a loop here to go through all the fields
recset.MoveNext
Loop
recset.Close
End Sub

⑥ vba連接資料庫（oracle）問題

VBA連接 ORACLE 需要安裝 OO4O （Oracle Objects for OLE）組件。
可以到 ORACLE 公司下載：
http://www.oracle.com/technology/global/cn/software/tech/windows/ole/index.html
下載以後安裝就行了，請注意，安裝到你要運行VBA的計算機上。

⑦ vba 保存文檔到oracle資料庫

你想利用vba技術來實現，你是在office的word或excel中來做吧？
1、可以用vba把要保存到資料庫的文件另存為一個獨立的文件。
2、把該文件轉換成二進制。
3、通過ADO連接oracle資料庫，把該二進制文件保存到oracle資料庫某個表的二進制欄位中。

讀取該文件的時候也是利用ADO連接oracle資料庫，讀取該欄位的數據並轉換成實際文件。
具體實現代碼可以研究一下。。。

⑧ excel啟用宏工具，vba以後無法連接oracle資料庫了

首先看是否載入連接資料庫的引用沒?

其次如果是在別的主機上使用你自己寫好的VBA,有時需要重新引用.

最後看你的oracle資料庫是否搭建完成,用SQLplus登陸查詢下.

⑨ vba如何調用oracle資料庫，必須安裝oracle軟體嗎

'連接資料庫
CONNSTR = "Provider=MSDAORA.1;Password=密碼;User ID=用戶名;Data Source=資料庫ip地址;Persist Security Info=True"
CONN.Open CONNSTR