Hi Gang,
seems I have strayed into the unknown/forgotten land again!!
I've returned to something I was using 18 months ago, but it does not work anymore so I am at a loss as to where to start:
Using SQLite3 ODBC I want to get records from an SQLite3 database and import them into an A5V8 table.
This used to run quite happily before, but I now get the message:
the only difference I can see is that I ran it on A5V7 before and now I am using A5V8. Is there a difference in the way the OLE::adodb works under V8?
I also tried
in the Interactive window and got the same error message
seems I have strayed into the unknown/forgotten land again!!
I've returned to something I was using 18 months ago, but it does not work anymore so I am at a loss as to where to start:
Using SQLite3 ODBC I want to get records from an SQLite3 database and import them into an A5V8 table.
dim Conn as ole::adodb.connection
dim ConnString as c = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=\"Driver={SQLite3 ODBC Driver};Database=c:\Program Files\Kinetic\BaseStation\basestation.sqb;StepAPI=0;SyncPragma=NORMAL;NoTXN=0;Timeout=2000;LongNames=0;NoCreat=0\""
conn.open(ConnString)
tbl = table.open("Get_SBS_Logging",FILE_RW_EXCLUSIVE)
tbl.zap(.t.)
tbl.close()
tbl = table.open("Get_SBS_Logging")
dim sqltext as c
sqltext = "SELECT Registration, FirstCreated FROM Aircraft WHERE Interested = -1 AND UserString1 is null"
delete rs
rs = conn.Execute(sqlText)
while .not. rs.eof()
tbl.enter_begin(.t.)
tbl.Reg = rs.fields.item("Registration").value
tbl.FirstCreated = rs.fields.Item("FirstCreated").value
tbl.enter_end(.t.)
statusbar.Set_Text("Reg "+ut(tbl.Reg)+" Retrieved")
rs.MoveNext()
end while
rs.close()
conn.close()
tbl.close()
dim ConnString as c = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=\"Driver={SQLite3 ODBC Driver};Database=c:\Program Files\Kinetic\BaseStation\basestation.sqb;StepAPI=0;SyncPragma=NORMAL;NoTXN=0;Timeout=2000;LongNames=0;NoCreat=0\""
conn.open(ConnString)
tbl = table.open("Get_SBS_Logging",FILE_RW_EXCLUSIVE)
tbl.zap(.t.)
tbl.close()
tbl = table.open("Get_SBS_Logging")
dim sqltext as c
sqltext = "SELECT Registration, FirstCreated FROM Aircraft WHERE Interested = -1 AND UserString1 is null"
delete rs
rs = conn.Execute(sqlText)
while .not. rs.eof()
tbl.enter_begin(.t.)
tbl.Reg = rs.fields.item("Registration").value
tbl.FirstCreated = rs.fields.Item("FirstCreated").value
tbl.enter_end(.t.)
statusbar.Set_Text("Reg "+ut(tbl.Reg)+" Retrieved")
rs.MoveNext()
end while
rs.close()
conn.close()
tbl.close()
Could not open OLE object 'adodb.connection'
the only difference I can see is that I ran it on A5V7 before and now I am using A5V8. Is there a difference in the way the OLE::adodb works under V8?
I also tried
?a5_connectionstring()
Comment