我有一个Access 2002应用程序,它通过ODBC将Oracle表与此代码链接:
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不再接受此语法,表示不再支持ODBCDirect(运行时错误3847)并建议使用ADO而不是DAO。 有人可以告诉我如何修改此代码以满足Access 2007?
答案 0 :(得分:3)
我发现我可以通过删除前两个语句并以这种方式修改第三个语句来以一种非常简单的方式解决我的问题:
DoCmd.TransferDatabase acLink, "ODBC Database", "ODBC;DRIVER=Microsoft ODBC for Oracle;SERVER=myserver;UID=myuser;PWD=mypassword", acTable, "SCHEMA.TABLE", "TABLE", False, True
这样,表格将被链接而不会提示任何内容。如果我将连接字符串保留为简单的“ODBC”,则Access将要求指定odbc连接和其他缺少的参数,从而获得我尝试使用之前的语句执行的相同操作。
答案 1 :(得分:-2)
试试这个:
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
将括号([]
)中的文字替换为您的信息。