锐客网

  1. 首页 > 生活百科 > it技术 > >

oracle怎么连vba oracle怎么连接数据库

IT技术Oracle

如何vba连接oracleVBA连接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 FunctiongetData()
'该当なし
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_cnt1).Value = https://www.04ip.com/post/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_cnt1
'Loop
End If
end function
想请教一个用vba连接oracle的问题你写的代码是连接你电脑当地的数据库，而你需要连接的应该是同一局域网的服务器的数据库吧~！你应该还要写上数据库所在的ip地址
请尝试一下：
CONNSTR = "Provider=MSDAORA.1;Password=密码;User ID=用户名;Data Source=数据库ip地址;Persist Security Info=True"
CONN.Open CONNSTR
vba连接数据库（oracle）问题VBA连接 ORACLE 需要安装 OO4O （Oracle Objects for OLE）组件 。
可以到 ORACLE 公司下载：
下载以后安装就行了，请注意，安装到你要运行VBA的计算机上 。
excel VBA 连数据库 oracleSub 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
'设服务器地址、所连数据oracle怎么连vba，及登录用户密码
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
【oracle怎么连vba oracle怎么连接数据库】关于oracle怎么连vba和oracle怎么连接数据库的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：银行如何运用新媒体，银行如何运用新媒体营销策略

    下一篇：直播室截屏抽奖技巧图片，直播间截图抽奖中奖技巧