TurboBird, a FireBird database administration tool that is written using FreePascal/Lazarus

TurboBird is a free and open source FireBird database administration tool that is written using FreePascal/Lazarus

Download page (Available for Linux, Windows, and Mac)

Development Source code in GitHub

 

Advertisement

4 thoughts on “TurboBird, a FireBird database administration tool that is written using FreePascal/Lazarus

  1. yes, my code in below

    program project1;

    {$mode objfpc}{$H+}

    uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes, SysUtils, CustApp,
    sqldb, IBConnection
    { you can add units after this };

    const
    databasefile = ‘test.fdb’;

    var
    fire: tibconnection;

    fire := tibconnection.create(nil);
    try
    fire.hostname := ”;
    fire.databasename := databasefile;
    fire.username := ‘SYSDBA’;
    fire.password := ‘masterkey’;
    fire.charset := ‘UTF8’;
    fire.dialect := 3;
    fire.params.add(‘PAGE_SIZE=16384’);
    if (fileexists(databasefile) = false) then
    begin
    writeln(‘File ‘ + databasefile + ‘ does not exist.’);
    writeln(‘Creating a Firebird embedded database …’);
    try
    fire.createdb;
    except
    on e: exception do
    begin
    writeln(‘ERROR creating database. Probable problems loading embedded library:’);
    writeln(‘- not all files present’);
    writeln(‘- wrong architecture (e.g. 32 bit instead of 64 bit)’);
    writeln(‘Exception message:’);
    writeln(e.classname + ‘/’ + e.message);
    end;
    end;
    fire.close;
    end;
    finally
    fire.free;
    end;
    readln;
    end.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s