|
procedure TForm1.BitBtn1Click(Sender: TObject);
var
lDatabase: TIBDatabase; // temp database object
begin
try
lDatabase := TIBDatabase.Create(Nil); // create database object
lDatabase.DatabaseName := Format('%s:%s', ['EQUIPO1','C:\PAJARITO.GDB']);
lDatabase.Params.Add(Format('user ''%s''',['SYSDBA']));
lDatabase.Params.Add(Format('password ''%s''',['masterkey']));
lDatabase.Params.Add(Format('page_size %s',['2048']));
lDatabase.CreateDatabase; // create database
lDatabase.Connected:=False; // disconnect from database
finally
end;
end;
|