[QODBC-Desktop] ADO Query Returns EOF When Wrong Cursor Type is used
Posted by brad waddell on 12 March 2009 05:21 PM

Troubleshooting: ADO Query Returns EOF When Wrong Cursor Type is used

Problem Description

A Select query works with the VB Demo but not with the sample code below in Delphi:

oConn := TAdoConnection.CREATE(Self);
oConn.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=QuickBooks Data;OLE DB Services=-2;';
oConn.Connected := True;

itmQuery := TADOQuery.Create(self);
itmQuery.Connection := oConn;
itmQuery.CursorType := ctKeyset;
itmQuery.LockType := ltOptimistic;
itmQuery.SQL.Add('Select * from Item');
if itmQuery.eof then begin
else begin
itmID := itmQuery.FieldValues['ListID'];




     The problem seems to happen in VB also and the forum suggested asolution of changing the recordset cursor location. As you can see in the below code the cursor location of the tquery is changed to clUseServer rather then the default and it works.

itmQuery := TADOQuery.Create(self);
itmQuery.Connection := oConn;
itmQuery.CursorType := ctDynamic;
itmQuery.CursorLocation := clUseServer;
itmQuery.LockType := ltOptimistic;
itmQuery.SQL.Add('Select * from ItemService');
if itmQuery.eof then begin
else begin
showmessage('Not EOF');


     ODBC cursor errors are common because QODBC only supports static or forward only type cursors. The work around is to always use ForwardOnly Cursors. For example with ADO keyset cursors we recommend:

With rs
.CursorType = CursorTypeEnum.adOpenForwardOnly
.LockType = LockTypeEnum.adLockOptimistic
.CursorLocation = CursorLocationEnum.adUseServer
End With

     And just in case you try switching everything to adUseServer, please be aware QODBC stored procedure calls like sp_tables only like adUseClient cursor types.

     As far as Delphi is concerned choosing the correct cursor has a direct impact on the success of your Delphi ADO-based application. ADO provides four cursor options: dynamic, keyset, forward-only and static. Since each cursor type behaves differently, you will greatly benefit from understanding the capabilities of each one.

     The CursorType property specifies how you move through the recordset and whether changes made on the database are visible to the recordset after you retrieve it. Delphi wraps ADO cursor types in the TCursorType.

     Allows you to view additions, changes, and deletions by other users, and allows all types of movement through the Recordset that don't rely on bookmarks; allows bookmarks if the provider supports them. The Supports method of an ADODataset indicates whether a recordset supports certain types of operations. The following statement can be used to check if the provider supports bookmarks:
if ADOTable1.Supports(coBookmark) then ...

     Choose dynamic cursors if multiple users insert, update, and delete rows in the database at the same time.

     Behaves like a dynamic cursor, except that it prevents you from seeing records that other users add, and prevents access to records that other users delete. Data change by other users will still be visible. It always supports bookmarks and therefore allows all types of movement through the Recordset.

     Provides a static copy of a set of records for you to use to find data or generate reports. Always allows bookmarks and therefore allows all types of movement through the Recordset. Additions, changes, or deletions by other users will not be visible. A static cursor behaves like the result set from a BDE Query component with its RequestLive property set to False.

     Behaves identically to a dynamic cursor except that it allows you to scroll only forward through records. This improves performance in situations where you need to make only a single pass through a Recordset.

Note: only ctStatic is supported if the CursorLocation property of the ADO dataset component is set to clUseClient.

Note: if the requested cursor type is not supported by the provider, the provider may return another cursor type. That is, if you try to set CursorLocation to clUseServer and CursorType to ctDynamic, on an Access database, Delphi will change the CursorType to ctKeyset.

     The CursorLocation property defines where the recordset is created when it's opened — on the client or the server.

     The data in a client-side cursor is "inherently disconnected" from the database. ADO retrieves the results of the selection query (all rows) and copies the data to the client before you start using it (into the ADO cursor). After you make changes to your Recordset, the ADO translates those changes into an action query and submits that query to your database through the OLE DB provider. The client-side cursor behaves like a local cache.

     Using the server-side cursor means retrieving only the required records, requesting more from the server as the user browses the data. Server-side cursors are useful when inserting, updating, or deleting records. This type of cursor can sometimes provide better performance than the client-side cursor, especially in situations where excessive network traffic is a problem.

     You should consider a number of factors when choosing a cursor type: whether you're doing more data updates or just retrieving data, whether you'll be using ADO in a desktop application or in an Internet-based application, the size of your resultset, and factors determined by your data store and environment. Other factors might restrict you as well. For example, the MS Access doesn't support dynamic cursors; it uses keyset instead. Some data providers automatically scale the CursorType and CursorLocation properties, while others generate an error if you use an unsupported CursorType or CursorLocation.

     The LockType property tells the provider what type of locks should be placed on records during editing. Locking can prevent one user from reading data that is being changed by another user, and it can prevent a user from changing data that is about to be changed by another user.

    Modifying a record in an Access database locks some neighboring records. This is because Access uses, so-called, page locking strategy. This means that if a user is editing a record, some other user won't be allowed to modify that record, or even to modify the next few records after or before it.

    In Delphi, the TADOLockType specifies the types of locks that can be used. You can control row and page locking by setting the appropriate cursor lock option. To use a specific locking scheme, the provider and database type must support that locking scheme.

     Optimistic locking locks the record only when it's physically updated. This type of locking is useful in conditions where there is only a small chance that a second user may update a row in the interval between when a cursor is opened and the row is finally updated. The current values in the row are compared with the values retrieved when the row was last fetched.

     Pessimistic locking locks each record while it's being edited. This option tells ADO to get an exclusive lock on the row when the user makes any change to any column in the record. The ADOExpress components don't directly support pessimistic record locking because ADO itself does not have any way to arbitrarily lock a given record and still support navigating to other records.

     Read-only locking simply does not allow data editing. This lock is useful in conditions where your application must temporarily prevent data changes but still can allow unrestricted reading. Read-only locking with the CursorType set to ctForwardOnly is ideal for reporting purposes.

     BatchOptimistic locking is used with disconnected recordsets. These recordsets are updated locally and all modifications are sent back to the database in a batch.

(139 vote(s))
Not helpful

Comments (2)
20 September 2012 10:09 AM
Here is a full example that I just teetsd on my 2010 system. This macro will delete all records in a table named tblEmployees in an Access database named Database1. Again, make sure you have established a reference to the Microsoft ActiveX Data Objects 2.8 Library (or 2.6 if you are using an earlier version of Office).Sub DeleteAllRecords()Dim dbConnection As ADODB.ConnectionDim dbCommand As ADODB.CommandDim dbFileName As StringdbFileName = C:\YourFilePath\Database1.accdb Set dbConnection = New ADODB.ConnectionWith dbConnection.Provider = Microsoft.ACE.OLEDB.12.0;Data Source= dbFileName _ ;Persist Security Info=False; .Open dbFileNameEnd WithSet dbCommand = New ADODB.CommandSet dbCommand.ActiveConnection = dbConnectiondbCommand.CommandText = DELETE FROM tblEmployees dbCommand.Execute , , adCmdTextSet dbCommand = NothingSet dbConnection = NothingEnd Sub
20 September 2012 01:55 PM
Hi Jason -In the above code, I used an example name of Table1 for the dstabaae table receiving data from Excel. If you want to delete all the records from a table, using Table1 as an example, the SQL statement would beDELETE FROM Table1Actually, I wrote a warning message relating to this in my book on page 313, calling attention to the required presence of the WHERE clause in the SQL because omitting it would delete every row (record) from the table. Take heed and make sure that’s what you want before you execute that line, because as I wrote, once the records are deleted they are deleted forever.Hope this answers your question.Tom
Post a new comment
Full Name:
CAPTCHA Verification 