When trying to create Workspace, get error 3847

  • Thread starter Thread starter Pierre Doré
  • Start date Start date
P

Pierre Doré

Original application in MS Access 2002. When migrated to A2007 the following
line

Set gWorkspace = CreateWorkspace ("ODBCWorkspace", "ACIIS_ADMIN",
"aciis18dev", dbUseODBC)
Note that this workspace was define in a seperate module:
Public gWorkspace As Workspace


generates the error message below:
:ODBCDirect is no longer supported. Rewrite the code to use ADO instead of
DAO. [3847]

Here is the code in full for this section:
Set gWorkspace = CreateWorkspace("ODBCWorkspace", "ACIIS_ADMIN",
"aciis18dev", dbUseODBC)

gWorkspace.DefaultCursorDriver = dbUseODBCCursor

Set db_ACIIS_ORACLE = gWorkspace.OpenDatabase("ACIIS", dbDriverComplete,
False, "ODBC;UID=" & "ACIIS_ADMIN" & ";PWD=" & "aciis8adm" &
";DSN=ACIIS_TEST")
 
Also note that I've added one reference that ADO required,ADO Ext. 2.8 for
DDL & Secrurity, as well I deleted one reference for Microsoft Access 12.0
object library as well as DAO 3.6 object library.

Any help very much appreciated.
Thx
Pierre
 
Actually I was not abel to remove Access 12.0 object library,even though I
had read that if using ADO u should remove that reference.

Pierre Doré said:
Also note that I've added one reference that ADO required,ADO Ext. 2.8 for
DDL & Secrurity, as well I deleted one reference for Microsoft Access 12.0
object library as well as DAO 3.6 object library.

Any help very much appreciated.
Thx
Pierre

Pierre Doré said:
Original application in MS Access 2002. When migrated to A2007 the following
line

Set gWorkspace = CreateWorkspace ("ODBCWorkspace", "ACIIS_ADMIN",
"aciis18dev", dbUseODBC)
Note that this workspace was define in a seperate module:
Public gWorkspace As Workspace


generates the error message below:
:ODBCDirect is no longer supported. Rewrite the code to use ADO instead of
DAO. [3847]

Here is the code in full for this section:
Set gWorkspace = CreateWorkspace("ODBCWorkspace", "ACIIS_ADMIN",
"aciis18dev", dbUseODBC)

gWorkspace.DefaultCursorDriver = dbUseODBCCursor

Set db_ACIIS_ORACLE = gWorkspace.OpenDatabase("ACIIS", dbDriverComplete,
False, "ODBC;UID=" & "ACIIS_ADMIN" & ";PWD=" & "aciis8adm" &
";DSN=ACIIS_TEST")
Click to expand...
Click to expand...
 
Back
Top