请教关于链接ORACLE表的问题！

后羿日天　发表于：2018-06-14 10:48:03 　

环境：32位ACCESS2013；ORACLE驱动安装了32位的instantclient-basic-nt-11.2.0.4.0和instantclient-odbc-nt-11.2.0.4.0

使用以下代码创建链接表时，会弹出对话框填写Service Name，如何把这一步骤省略，是否连接字符串有问题？

Dim td As TableDef
Dim stConnect As String
stConnect = "ODBC;DRIVER={Oracle in instantclient_11_2};SERVER=10.1.201.5:1521/orcl;DATABASE=orcl;UID=FSW0626;PWD=123456"
Set td = CurrentDb.CreateTableDef("ERP_Customer", dbAttachSavePWD, "FSW0626.EGS_CUSTOMER", stConnect)
CurrentDb.TableDefs.Append td

Top

chinasa 发表于：2018-06-15 13:40:41

你ODBC数据源以及tnsnames.ora设置过没有？

strDBName = "AAA"
strUserID = "BBB"
strPassword = "CCC"

          Set OraDB = New ADODB.Connection
          OraConstr = "Provider=OraOLEDB.Oracle.1;Password=" & strPassword & ";User ID=" & strUserID & ";Data Source=" & strDBName & ";Persist Security Info=False"
          OraDB.CursorLocation = adUseServer
          ConnDB.Open OraConstr

'另一种链接方式

'ConnStr = "DRIVER={Microsoft ODBC driver for Oracle};SERVER=" & strDBName & ";UID=" & strUserID & ";PWD=" & strPassword & ";"
'ConnDB.CursorLocation = adUseServer
'ConnDB.Open ConnStr

Top

后羿日天发表于：2018-06-15 15:24:28

感谢楼上的回复！我安装的32位oracle即时客户端，手工添加了tnsnames.ora文件，内容如下：

BKERP =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = 10.1.201.5)(PORT = 1521))
)
(CONNECT_DATA =
(SERVICE_NAME = orcl)
)
)

环境变量PATH,ORACLE_HOME,TNS_ADMIN都设置了

另外ODBC数据源设置过，在代码里用 erpcn.Open "DSN=BKERP;UID=FSW0626;PWD=123456;" 连接字符串没有问题；

但是用 erpcn.Open "DRIVER={Microsoft ODBC for Oracle};SERVER=10.1.201.5:1521/orcl;UID=FSW0626;PWD=123456;" 连接会提示“ORA-12560: TNS: 协议适配器错误”

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

请教关于链接ORACLE表的问题！