Member Login

Username
Password
Forget Password
New Sign Up
Search Forum

Buy Support
Incidents

If you can't find your answer in the FREE PUBLIC QDeveloper Forum, require URGENT Priority Support, or you need to send us private or confidential information:

Click Here
If you can't login and post questions or you are having trouble viewing forum posts:
Click Here
Callback
Support

If you live in USA, UK, Canada, Australia or New Zealand, you can leave us details on your question and request us to call you back and discuss them with you personally  (charges apply).

Click Here
 
Buy Support
Incidents
If you can't find your answer in the FREE PUBLIC QDeveloper Forum, require URGENT Priority Support, or you need to send us private or confidential information:
Click Here

Forum : QODBC freezing when selecting from ReceivePaymentSearch Forum

Forum Home > QODBC - ODBC Driver for QuickBooks > QODBC v8 Forum

 New Topic 
 
 Post Reply 
[1]  
 QODBC freezing when selecting from ReceivePayment 
 Author   Message 
  Ian 
  
 Group: Members 
 Posts: 8 
 Joined: 2007-02-08 
 Profile
 Posted : 2007-10-10 04:53:11
I'm using the following code to sync up our website's database with Quickbooks and up until yesterday everything was working fine (we upgraded to v8 last week) but since then, the program gets hung up on the query in the last line of the code block.  It does not provide an error, it just freezes up.  Were there any changes in v8 that would affect this?

Dim odbcConn
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3

odbcConn = CreateObject("ADODB.Connection")
odbcConn.Open("DSN=Avos;")
       
PaymentRst = CreateObject("ADODB.Recordset")

PaymentRst.CursorLocation = adUseClient
PaymentRst.Open("SELECT * FROM ReceivePayment WHERE TxnId = 'X'", odbcConn, adOpenStatic, adLockOptimistic)

        

  Top 
  Tom 
  6c3c1_sdk-qodbc.gif
 Group: Administrator 
 Posts: 5510 
 Joined: 2006-02-17 
 Profile
 Posted : 2007-10-10 08:39:02

Try using this combination of variables:

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3

odbcConn = CreateObject("ADODB.Connection")
odbcConn.Open("DSN=Avos;OLE DB Services=-2")

oRecordset.CursorType = 2
oRecordset.LockType = 3
oRecordset.CursorLocation = adUseClient

 

  Top 
 New Topic 
 
 Post Reply 
[1]  

Jump to