SQLite 3 --> Capture FieldValues into a variable
lazarus / 16-Databases

----------------------------------------------------------------------
kakarotv5 · 2007-11-26 12:16

Hi, I need to capture the FieldValues of a SQLite database into a
string variable.

If I do it:

Code: [Select]
   while not dsTest.EOF do
    begin
     DataToSend := DataToSend +
                            dsTest.FieldValues['Code'] + '\' +
                            dsTest.FieldValues['Name'] + '\' +
                            dsTest.FieldValues['Address'] + '#';
     dsTest.Next;
    end;   


I have got the next error message:

Code: [Select]
Project raised exception class 'RunError(231)'.


If I do it then works:

Code: [Select]
   while not dsTest.EOF do
    begin
     Cod := dsTest.FieldValues['Code'];
     Nam := dsTest.FieldValues['Name'];
     Addr := dsTest.FieldValues['Address'];
     DataToSend := DataToSend + Cod + '\' + Nam + '\' + Addr + '#';
     dsTest.Next;
    end;   


But I have to declare three string variables (Cod, Nam and Addr). :?

Can you help me?

----------------------------------------------------------------------
Marc · 2007-11-26 13:06

You are concatinating variants, that isn't very well tested.
You can also try:Code: [Select]
  ...
  dsTest.FieldByName('Code').AsString + '\' +
  dsTest.FieldByName('Name').AsString + '\' +
  dsTest.FieldByName('Address').AsString + '#';

----------------------------------------------------------------------
kakarotv5 · 2007-12-12 14:38

Thank you.