SQLDB - SQLite - PRAGMA integrity_check
lazarus / 16-Databases

----------------------------------------------------------------------
kpeters58 · 2016-02-18 20:46

I can run integrity checks successfully with the code below, but since
that pragma returns a string result, how can I access that?

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i   // SqlDB
wraps everything in transactions but vacuum, PRAGMA calls etc. have to
happen outside of transactions  try   
DataModule.connection.ExecuteDirect('end transaction');   
DataModule.connection.ExecuteDirect('pragma integrity_check');   
DataModule.connection.ExecuteDirect('begin transaction');

----------------------------------------------------------------------
tatamata · 2016-02-19 14:13

Quote from: kpeters58 on February 18, 2016, 09:46:15 pmI can run
integrity checks successfully with the code below, but since that
pragma returns a string result, how can I access that?

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i   // SqlDB
wraps everything in transactions but vacuum, PRAGMA calls etc. have to
happen outside of transactions  try   
DataModule.connection.ExecuteDirect('end transaction');   
DataModule.connection.ExecuteDirect('pragma integrity_check');   
DataModule.connection.ExecuteDirect('begin transaction');    
Hi, try something like this:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i with
DataModule1 do begin   SQLite3Connection1.Close;   //Add particular
pragma as parameter! 
 SQLite3Connection1.Params.Add('integrity_check=on');    //Open the
database   SQLite3Connection1.DatabaseName:='a path to database'; 
 SQLite3Connection1.Open;   // this will check pragma_integrity_check
value        with TSQLQuery.Create(nil) do        begin         
Database := SQLite3Connection1;          SQL.Text := 'PRAGMA
integrity_check;';          Open;          if  fields[0].AsInteger=1
then                  begin                        //Do something    
            end          else                begin                   
   //Do something else                end;          Free;        end;
                                                                end;

----------------------------------------------------------------------
kpeters58 · 2016-02-19 20:27

Thanks!