Access(VBA)连接Oracle数据库的代码[亲测有效]

Access(VBA)连接Oracle数据库的代码[亲测有效]也可以通过ADO等数据操作方式读取数据库方法1:odbc连接方式DimOracleDatabaseAsStringOracleDatabase=

欢迎大家来到IT世界,在知识的湖畔探索吧!

access是包含前台程序开发和后台数据库的应用软件。

可以利用access作为前台开发,后台用sqlServer,oracle这些作为数据库。

而access连接数据库,可以利用链接表。直接读取表记录。也可以通过ADO等数据操作方式读取数据库

方法1:odbc连接方式

 Dim OracleDatabase As String
 OracleDatabase = "DSN=ODBC源名称;UID=你的用户名;PWD=你的密码;LANGUAGE=us_english; DATABASE=NOKIAKPI"
 Set conn = CreateObject("adodb.connection")
 conn.Open OracleDatabase
 If Err.Number <> 0 Then
 MsgBox ("Please Check connection to KPI Server!")
 DoCmd.Quit
 Else 
 KPITableName = "TEMPKB" & Format(Date, "ddhh24") & Format(Time, "hhss")
 LocalTable = rstrDesTbl
 '----------fetch table from oracle db-------------------
 SQL = "create table " & KPITableName & " as " & rstrSrcTbl 'nokiaadmin
 conn.CommandTimeout = 300
 conn.Execute (SQL)
 DoCmd.DeleteObject acTable, LocalTable
 ' KPITableName = "kpiview." & KPITableName
 DoCmd.TransferDatabase acTable, "ODBC Database", "ODBC;" & OracleDatabase, acTable, KPITableName, LocalTable
 conn.Execute ("DROP TABLE " & KPITableName & ";")
 End If
 Exit Function

欢迎大家来到IT世界,在知识的湖畔探索吧!

方法2:oledb

欢迎大家来到IT世界,在知识的湖畔探索吧!Dim Cnn As Object
 Set Cnn = CreateObject("ADODB.Connection")
 Set rs = CreateObject("ADODB.recordset")
 rs.cursorlocation = 3
 cnn.Open "data source=服务器名;provider=OraOLEDB.Oracle;user id=用户;password=密码"
 Sql = "Select 字段名 from 表名 where ID=1"
 rs.Open SQL, Cnn
 rs.Close
 Set Cnn = Nothing
 Set rs = Nothing

免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://itzsg.com/18011.html

(0)

相关推荐

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

联系我们YX

mu99908888

在线咨询: 微信交谈

邮件:itzsgw@126.com

工作时间:时刻准备着!

关注微信