[SOLVED] RecordCount not working - SQLite3

[1HuntnMan]

Could anyone tell me why this isn't work for reporting the total number of clients in the Clients table in a SQLite3 Database?

Code: Pascal  [Select][+][-]

1. procedure TFrmClientsMain.QryClientsAfterPost(DataSet: TDataSet);
2. begin
3.   EditTTLClients.ReadOnly:= False;
4.   IntRecCount:= DSrcClients.DataSet.RecordCount;
5.   EditTTLClients.Text:= IntToStr(IntRecCount); //-> Record total Clients...
6.   EditTTLClients.ReadOnly:= True;
7.   BitBtnSave.Enabled:= False;
8.   BitBtnCancel.Enabled:= False;
9. end;
10.  

[n7800]

Perhaps this link will help you.

[Thaddy]

RecordCount is not really a concept that fits well with sql databases, but you can query the database:

Code: SQL  [Select][+][-]

1. SELECT COUNT(*) FROM your_table_name;

[CharlyTango]

If only a few data records are affected, RecordCount() after a Last() will suffice. If you want to be sure (and for larger amounts of counted records), then ask the SQL server as @Thaddy suggested.

A TDataset is not a DBF table 

[Thaddy]

In this case the server can also mean Sqlite3, of course.

[1HuntnMan]

Okay, thanks all. That's from my ole TDbf thinking.

What's the different between a Duck?
     ... One of it's legs are both the same!

[1HuntnMan]

Just feedback what I did:

1. Created a private procedure: UpdateTTLClients
 

Code: Pascal  [Select][+][-]

1.     procedure UpdateTTLClients;
2.     begin
3.        if QryTTLClients.Active then QryTTLClient.Close;
4.        QryTTLClients.SQL.Text:= 'SELECT COUNT(*) AS TTL FROM CLIENTS;
5.       QryTTLClients.Open;
6.       EditTTLCntks.ReadOnly:= False;
7.       EditTTLCntks.Text:= QryTTLClients.FieldByName('TTL').AsString;
8.       EditTTLCntks.ReadOnly:= True;
9.    end;
10.  

2. Added an extra Query component just for running the query separate from the main QryClients and called it QryTTLClients
3. Of course, need to add in your Form Create: QryTTLClients.Database:= ConnectClients; and QryTTLClients.Transaction:= TransClients
4. Then in your QryClientsAfterDelete and AfterPost just run UpdateTTLClients.

It works ...