Hi,

I have a short VB script that pulls info from the Customer table and ultimately will dump it into a MySQL table.  The code I have is based on the examples on the QODBC site. 

I'm getting a "[QODBC] INvalid bookmark value" (code 80040E0E) in the middle of the script (line 17, char 1, as soon as it tries to dump the result into an array)

Windows 2000, QB v6 Enterprise edition, QODBC 7, connections all test fine and my SQL query works fine in the test app as well.

Is the QODBC 7 vs. QB v6 the problem?  Should I be using QODBC 6?

Code is below:

Dim oConnection
Dim oRecordset
Dim sMsg
Dim sConnectString
Dim sSQL
 
sConnectString = "DSN=Quickbooks Data;OLE DB Services=-2;"
sSQL = "SELECT Name,ParentRefFullName,contact,IsActive FROM Customer UNOPTIMIZED WHERE ParentRefListID<>''"
Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")

oConnection.Open sConnectString
oRecordset.Open sSQL, oConnection, adOpenStatic, adLockOptimistic
recordsarray=oRecordSet.GetRows()

oRecordset.Close
Set oRecordset = Nothing
oConnection.Close
Set oConnection = Nothing

'sConnectString = "DSN=Quickbooks Import"
'Set oConnection = CreateObject("ADODB.Connection")
'Set oRecordset = CreateObject("ADODB.Recordset")
 
oConnection.Open sConnectString

i=0

Do While (not i=11)
'sqltext="INSERT INTO customer (project,customer) VALUES ('" & recordsarray(i,0) &"','" & recordsarray(i,1) & "')"

echo recordsarray(i,0)

'oConnection.execute sqltext
i=i+1
Loop

oConnection.Close
Set oConnection = Nothing
MsgBox("OK")

No, everyone should be using QODBC v7.00.00.194 as it contains fixes to Build 176. You can try swaping back to QODBC v6, simply rename fqqb32.dll to fqqb32.194 and run the QODBC v6.00.00.176 installer. Let me know whether V6.00.00.176 works for you instead of V7.00.00.194.

I am getting the same error message when attempting to work with queries through Access.

As a test, I copied and pasted the sample code from the Visual Basic/ADO example on this site into a module. When I run it, I get the "Invalid Bookmark" error when it reaches the oRecordset.MoveNext instruction.

Is it possible that I have something wrong in my setup somewhere?

I am using version 7.00.00.199

Copy this code to a file called test.vbs:

Const adOpenStatic = 3
Const adLockOptimistic = 3
 
Dim oConnection
Dim oRecordset
Dim sMsg
Dim sConnectString
Dim sSQL
 
sConnectString = "DSN=Quickbooks Data;OLE DB Services=-2;"
sSQL = "SELECT Name FROM Employee UNOPTIMIZED"
Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")
 
oConnection.Open sConnectString
oRecordset.Open sSQL, oConnection, adOpenStatic, adLockOptimistic
sMsg = "**********************" & Chr(10)
Do While (not oRecordset.EOF)
      sMsg = sMsg & oRecordSet.Fields("Name") & Chr(10)
      oRecordset.MoveNext
Loop
sMsg = sMsg & "**********************" & Chr(10)
MsgBox sMsg
 
oRecordset.Close
Set oRecordset = Nothing
oConnection.Close
Set oConnection = Nothing

Then double click on it in Windows Explorer to run it.

I've just tested QODBC v7.00.00.204 and it has fixed this problem. You no longer need to use the UNOPTIMIZED tag with 204. See: QODBC v7.0.0.204 Released for more.

Const adOpenStatic = 3
Const adLockOptimistic = 3
 
Dim oConnection
Dim oRecordset
Dim sMsg
Dim sConnectString
Dim sSQL
 
sConnectString = "DSN=Quickbooks Data;OLE DB Services=-2;"
sSQL = "SELECT Name FROM Employee"
Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")
 
oConnection.Open sConnectString
oRecordset.Open sSQL, oConnection, adOpenStatic, adLockOptimistic
sMsg = "**********************" & Chr(10)
Do While (not oRecordset.EOF)
      sMsg = sMsg & oRecordSet.Fields("Name") & Chr(10)
      oRecordset.MoveNext
Loop
sMsg = sMsg & "**********************" & Chr(10)
MsgBox sMsg
 
oRecordset.Close
Set oRecordset = Nothing
oConnection.Close
Set oConnection = Nothing