I am using the following code in VB6 to try to get an ODBC connection to a paradox database:
Dim wrk As Workspace
Dim db As Database
Dim co As Connection
Dim rs As Recordset
'
'
' establish ODBC connection
Set wrk = CreateWorkspace("wrk", "admin", "", dbUseODBC)
Set co = wrk.OpenConnection("ODBC;DSN=Paradox;DATABASE=f:\drs\order\ordr.db;UID=sa;PWD="""
Set db = wrk.OpenDatabase("f:\drs\order\ordr.db", "wrk", "ODBC;DSN=Paradox;DATABASE=f:\drs\order\ordr.db;UID=sa;PWD="""
Set rs = c
penRecordset("SELECT * FROM Ordr", dbOpenForwardOnly)
'
'
The code fails on the line "Set db" with the error 3421 'data type conversion error'
Having achieved the connection, I then want to run sqls on the recordset.
What am I doing wrong?
Dim wrk As Workspace
Dim db As Database
Dim co As Connection
Dim rs As Recordset
'
'
' establish ODBC connection
Set wrk = CreateWorkspace("wrk", "admin", "", dbUseODBC)
Set co = wrk.OpenConnection("ODBC;DSN=Paradox;DATABASE=f:\drs\order\ordr.db;UID=sa;PWD="""
Set db = wrk.OpenDatabase("f:\drs\order\ordr.db", "wrk", "ODBC;DSN=Paradox;DATABASE=f:\drs\order\ordr.db;UID=sa;PWD="""
Set rs = c
'
'
The code fails on the line "Set db" with the error 3421 'data type conversion error'
Having achieved the connection, I then want to run sqls on the recordset.
What am I doing wrong?