Access(VBA)连接Oracle数据库的代码 |
您所在的位置:网站首页 › vba链接服务器access › Access(VBA)连接Oracle数据库的代码 |
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
方法2:oledb 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 |
今日新闻 |
点击排行 |
|
推荐新闻 |
图片新闻 |
|
专题文章 |
CopyRight 2018-2019 实验室设备网 版权所有 win10的实时保护怎么永久关闭 |