freepascal.ru

Код: Выделить всё

procedure TMainForm.FormCreate(Sender: TObject);
begin
  try
    SQLite3Connection1.DatabaseName := ExtractFilePath(Application.ExeName) + 'Database.db';
    SQLite3Connection1.Transaction := SQLTransaction1;
    SQLite3Connection1.Params.Add('foreign_keys=on;');

    SQLTransaction1.DataBase := SQLite3Connection1;

    SQLQuery1.DataBase := SQLite3Connection1;
    SQLQuery1.Transaction := SQLTransaction1;

    SQLite3Connection1.Open;
    if SQLite3Connection1.Connected then
      StatusBar1.Panels[0].Text := 'Соединил'
    else StatusBar1.Panels[0].Text := 'Не соединил'
  except
    on E: Exception do MessageDlg('Ошибка при соединение с БД!'
    + sLineBreak + sLineBreak + E.ClassName + sLineBreak + E.Message, mtError, [mbOk], 0);
  end;
end; 

Код: Выделить всё

SQLite3Connection1.DatabaseName := ExtractFilePath(Application.ExeName) + 'Database.db';

Код: Выделить всё

 {$mode objfpc} {$h+}
program trdb;

uses sysutils, sqldb, db, sqlite3conn;

var
    ds          : tdatasource;
    connection  : TSQLite3Connection;
    query       : tsqlquery;
    transaction : tsqltransaction;

    dbname : string;
    path : string;

begin
    
    
    connection  := TSQLite3Connection.create(nil);   
    transaction := tsqltransaction.create(nil);
    query       := tsqlquery.create(nil);

    dbname := 'test.db';
    path := getUserDir() + '.tr_storage/';
    
    connection.databaseName :=  {path + dbname;} '/home/kirill/Workspace/trdb/test.db';
    
    transaction.database := connection;
    query.database       := connection;
    query.transaction    := transaction;

    if not FileExists(connection.databaseName) then 
    begin  
        writeln ('creating database...'); 
       { 
        if not directoryExists(path) then
            createDir(path);
        }
        connection.open;
        transaction.active := true;
    
    
        connection.executeDirect('CREATE TABLE "DATA"('+
                             ' "id" Integer NOT NULL PRIMARY KEY AUTOINCREMENT,'+
                             ' "Current_Time" DateTime NOT NULL,'+
                             ' "User_Name" Char(128) NOT NULL,'+
                             ' "Info" Char(128) NOT NULL);');
    
        { datetime format: yyyy-mm-dd hh:mm:ss.xxxxxx }
        connection.executeDirect('insert into data values(1, "2007-01-01 10:00:00", "aaa", "some info for aaa")');
        connection.executeDirect('insert into data values(2, "2008-01-01 10:00:00", "bbb", "some info for bbb")');
        connection.executeDirect('insert into data values(3, "2009-01-01 10:00:00", "ccc", "some info for ccc")');
        connection.executeDirect('insert into data values(4, "2010-01-01 10:00:00", "ddd", "some info for ddd")');

        transaction.commit;
    end;
    
    { select all }

    writeln ('select from database...');
    query.sql.text := 'select * from data';
    query.open;
    while not query.eof do 
    begin
        writeln(query.fieldByName('id').AsInteger, ' ', 
                query.fieldByName('Current_Time').AsString, ' ',  
                query.fieldByName('User_Name').AsString, ' ',
                query.fieldByName('Info').AsString);
        query.next;
    end;   

    query.close;
    query.free;
    connection.free;
end.