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