Search options (Page 1 of 5)

I 'll try to have a look. I know it's difficult to catch bug with lazarus. Could you step through the code to get more info on this error ?

Thanks Yann,
I 've made the modification.

Happy New Year 2011 !

Luc

The bug is unlikely coming from the DLL. Let's wait for the 0.56 version.
If you still have problem, I will check this.

Regards

Ok Yann,

Merci pour toutes ces infos. Je fais les corrections pour les AnsiStrings et reviens vers toi pour les bindings, à vérifier.

A+

Luc

Your fix has been included in the 0.56 version
Thanks for your contribution
Regards
Luc

I've got the file and will let you know asap.

I'm still working on this part of code...

Hi Francis,

1 ------------
Yesterday, I came up with the same analysis. I have to change the way the parser deals with quoted strings.
Here is a temporarely and quick fix up (not enough time right now)

  Tips : when you want locate a KeyValue containing spaces and starting with a number, in a string field,
     the KeyValue must be between brackets [] in order to be parsed as a single statement i.e.
     MyDataset.Locate('StringField', '45 NEWSPAPERS', []) always returns FALSE
     MyDataset.Locate('StringField', '[45 NEWSPAPERS]', []) returns TRUE

Procedure ProcessNumber;
  var
  CharSet: Set of Char;
  begin
  if Char(FNestingCharStack[FNestingLevel]) = '['
     then ProcessIdentifier
     else
  begin
  if Char(FNestingCharStack[FNestingLevel]) in ['''', '"', '#']
     then begin
          { We have DateTime, Date or Time ? }
          CharSet := ['0'..'9', '.', '-', '/', ':', ' '];
          NewToken.TokenType := ttDateTime;
          end
     else begin
          { We have number ? }
          CharSet := ['0'..'9', '.'];
          NewToken.TokenType := ttNumber;
          end;
  While (Char(CurrentChar^) in CharSet) do Inc(CurrentChar);
  end;
  end;

Think to move the ProcessIdentifier proc above the ProcessNumber proc

2 --------------
DatasetName problem at designtime

procedure TSqlitePassDataset.SQLChanged(Sender: TObject);
begin
  NotifySQLChanged(scProcess);

  if (DatasetName <> '') and not (FInInternalSetDatasetType or (csLoading in ComponentState))
     then DatasetName := '';

  if FDatasetName = '' then
     begin
     FDatasetType := dtUnknown;
     ProcessSQLText;
     end;

  if FParamCheck
     then UpdateParamsList;
end;

Should be ok.

Looking forward further testing

Thanks.
Luc

Many thanks,

I didn't have time to check it...
I correct the code in next version.

Regards 

Hi Dave,

I'm not sure the library should handle that but I will think about it. Your program could scan folders/subfolders,  then fill the Database.sqliteLib property once a correct lib is found.

Do you already have this kind of code ?

Regards
Luc

Hi,

1 - If SqlitePassDatabase.Options.LogErrors = True then you can use the SqlitePassDatabase.DatabaseError.CurrentError.Code to retrieve the last Sqlite Error Code.
You can find more information in SqlitePassDbo (TSqlitePassDatabaseErrorItem and TSqlitePassDatabaseError)

2 - If not, Trap the ErrorCode in :
procedure TSqlitePassDatabaseError.RaiseException(const Msg: String; const ErrorCode: Integer = -1;  Component: TComponent = nil; VerboseLevel: TSqlitePassVerboseLevel = vlLogAndShow);
If ErrorCode was sent back by sqlite, it should be there.

3 - Finally, (Not the easiest way), you can directly use the Sqlite DLL functions (in SqlitePassApi_v3.pas)
SqliteDbv3_errcode:function(db:pointer):integer; cdecl;
SqliteDbv3_errmsg:function(db:pointer):pAnsiChar; cdecl;
SqliteDbv3_errmsg16:function(db:pointer):pWideChar; cdecl;
but you need to provide a handle/pointer on the current db. You will loose the advantage of the wrapper !

This is the normal behavior :

function TSqlitePassDatabase.DatabaseTypeFromFileName(FileName: String): TSqlitePassDatabaseType;
begin
FileName := Lowercase(FileName);
      if (AnsiPos('.kexi',  FileName)) > 0 then Result := dbtKexi
 else if (AnsiPos('.s3db',  FileName)) > 0 then Result := dbtSqliteAdmin
 else if (AnsiPos('.db3',   FileName)) > 0 then Result := dbtSqliteExpert
 else if (AnsiPos('.s3fpc', FileName)) > 0 then Result := dbtSqlite4Fpc
 else if (AnsiPos('.sp3',   FileName)) > 0 then Result := dbtSqlitePass
 else Result := dbtUnknown;
end;

but you can always override the default setting :
Fill in the database property
set connected to false
set MyDb.DatabaseType := dbtSqliteExpert
set connected to true

The code is :

procedure TSqlitePassDataset.EmptyTable;
begin
  if DatasetType = dtTable then
     begin
     FDatabase.Engine.ExecSQL('DELETE FROM "' + DatasetName + '";');
     Refresh;
     end;
end;

so, the DatasetName property is not a valid table name or your SQL Statement is not recognised as an existing table in the current database.

I check the other issues. Please, send a sample of your data if you want me to test it.

Thanks