代码之家 › 专栏 › 技术社区 › Andrea Bertani

在Access 2007中链接ODBC表

ms-access-2007 odbc ms-access

Andrea Bertani · 技术社区 · 17 年前

Set HRSWsp = CreateWorkspace("CONNODBC", "", "", dbUseODBC)
Set HRSConn = HRSWsp.OpenConnection("HRSCONN", dbDriverPrompt, , "ODBC;")
DoCmd.TransferDatabase acLink, "Database ODBC", HRSConn.Connect, acTable, "SCHEMA.TABLE", "TABLE", False, True

有人能告诉我如何修改此代码以满足Access 2007的要求吗?

2 回复 | 直到 17 年前

Andrea Bertani 17 年前

我发现我可以用一种非常简单的方法解决我的问题,方法是删除前两条语句,然后用这种方法修改第三条语句:

DoCmd.TransferDatabase acLink, "ODBC Database", "ODBC;DRIVER=Microsoft ODBC for Oracle;SERVER=myserver;UID=myuser;PWD=mypassword", acTable, "SCHEMA.TABLE", "TABLE", False, True

-2

Patrick Cuff 17 年前

试试这个:

Dim tbl As New ADOX.Table
Dim cat As New ADOX.Catalog

cat.ActiveConnection = _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[x:\your_access_db.mdb];Jet OLEDB:Engine Type=4"

tbl.NAME = "[Access_table_name]"

Set tbl.ParentCatalog = cat

tbl.Properties("Jet OLEDB:Create Link") = True
tbl.Properties("Jet OLEDB:Link Provider String") = "ODBC;Driver={Microsoft ODBC For Oracle};Server=OracleServerName;Uid=[user];Pwd=[password];"
tbl.Properties("Jet OLEDB:Cache Link Name/Password") = True
tbl.Properties("Jet OLEDB:Remote Table Name") = "[Oracle_Schema].[Table]"

cat.Tables.Append tbl
cat.ActiveConnection.Close

替换括号中的文本( []

推荐文章

Mickael · 数据截断为256个字符-PHP和HFSQL数据库,使用PDO ODBC试验

8 年前

Eperbab · ms接入;如何在没有密码的情况下将其移动到不可访问状态/DSN-less表

8 年前

Wurzelbert · ODBC xlsx驱动程序连接字符串(不带标头)

8 年前

Drew Huslig · Pandas to\u sql右截断错误

8 年前

nasck · 如何在vb中为odbc发送表

8 年前

Dave · 使用C将数据插入数据库时出错#

8 年前

Mike Shanahan · 在32位Windows 7上正确安装Oracle ODBC驱动程序

8 年前

Jun Ge · 为什么Count(*)在与sql server的ODBC连接中返回NULL?

8 年前

AS7K · PHP 7-内置ODBC支持。。。还是这样?

8 年前

orangutangas · 如何将64位Oracle ODBC添加到32位Oracle客户端

8 年前