ordendelfai
Technical User
I am trying to use the below code to link a table from an Oracle server, using the Oracle ODBC Driver for RDB. The code below will pop open a login request, and after I enter the correct password I get:
"Run-time rrror '3000'
Reserved error (-7778); there is no message for this error."
This doesn't help as I have no error to find a solution. Anyone have any ideas?
~Joel
As common courtesy and to help other members who might find your thread helpful in the future, please respond if the advice given resolved your issue.
"Run-time rrror '3000'
Reserved error (-7778); there is no message for this error."
This doesn't help as I have no error to find a solution. Anyone have any ideas?
Code:
Public Function LinkTables()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strConnect As String
'KBASE Server:
strConnect = "ODBC;Driver={Oracle ODBC Driver for Rdb};" & _
"CLS=kdb_read;" & _
"SVR=ss-kdb;" & _
"UID=myuserid;"
Set db = CurrentDb()
Set tdf = db.CreateTableDef("MyTable")
tdf.Connect = strConnect
tdf.SourceTableName = "MyTable"
db.TableDefs.Append tdf
Set tdf = Nothing
Set db = Nothing
End Function
~Joel
As common courtesy and to help other members who might find your thread helpful in the future, please respond if the advice given resolved your issue.