Çalışma Anında Database Oluşturma

[akuyumcu63]

merhaba;

Delphi 10.3, Firebird 2.5.x ve unidac kullanıyorum.

delphi de programı çalıştırdıktan sonra database oluşturma işlemi için aşağıdaki kodu UniScript SQL ine ekleyip Execute ediyorum. bağlantı oluşturulamadı hatası veriyor.

SET SQL DIALECT 3;
SET CLIENTLIB 'C:\ProgramKlasoru\FbEmbed259\fbembed.dll';
CREATE DATABASE 'C:\ProgramKlasoru\DATALAR\12345.FDB'
USER 'SYSDBA'
PASSWORD 'masterkey'
PAGE_SIZE = 8192
DEFAULT CHARACTER SET WIN1254
COLLATION PXW_TURK;

database oluşturduktan sonra devamında tabloları yine kodla delphi tarafından oluşturmak istiyorum.

Teşekkürler.

[Halil Han BADEM]

Merhabalar,
hazırlamış olduğum demo ile veritabanı oluşturabilirsiniz.
VeritabaniDemo.zip

İyi çalışmalar dilerim.

[akuyumcu63]

(23-08-2020, Saat: 17:25)Halil Han BADEM Adlı Kullanıcıdan Alıntı: Merhabalar,
hazırlamış olduğum demo ile veritabanı oluşturabilirsiniz.
VeritabaniDemo.zip

İyi çalışmalar dilerim.

çok teşekkürler. çok güzel bir örnek olmuş. ellerine sağlık.

[sadikacar60]

internetden bulduğum bir örneği uygulayarak çalışma anında tablo oluşturmak istiyorum lazaruz veya delphi7 ikisindede deniyorum.
kod hata vermiyor ama tabloda oluşmuyor neyi eksik yapıyorum acaba 
saygılarımla

procedure TfrmMain.Button1Click(Sender: TObject);
var
yol:string;
sifre:string;
begin
try
yol:=ExtractFilePath(Application.Exename);

sifre:='masterkey';

IBConnection1.Connected:=false;
IBConnection1.HostName:='localhost';
IBConnection1.DatabaseName:=yol+'system\db\VT_TURNUVA.FDB';
IBConnection1.Params.Values['User_Name']:='SYSDBA';
IBConnection1.Password:=sifre;
IBConnection1.Params.Values['lc_ctype']:='WIN1254';
IBConnection1.Connected:=True;
SQLTransaction1.Active:=True;
SQLQuery1.Active:=True;


SQLQuery1.Close;

SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('CREATE TABLE "VASIF" ("KNO" DOUBLE PRECISION NOT NULL,');
SQLQuery1.SQL.Add('"VASIFLAR" VARCHAR(50) CHARACTER SET WIN1254 COLLATE PXW_TURK,');
SQLQuery1.SQL.Add('"YEVMIYE" DOUBLE PRECISION,');
SQLQuery1.SQL.Add('"TRH" TIMESTAMP,');
SQLQuery1.SQL.Add('PRIMARY KEY ("KNO"))');
SQLQuery1.Prepare;
SQLQuery1.ExecSQL;
Finally
SQLQuery1.Close;
end;
ShowMessage('OK');
end; 

[esistem]

Bağlı transaction u commit etmelisiniz.

[sadikacar60]

(27-03-2021, Saat: 11:45)esistem Adlı Kullanıcıdan Alıntı: Bağlı transaction u commit etmelisiniz.

SQLTransaction1.CommitRetaining; 


satırını ekledim dzeldi gözden kaçırmışım çok teşekkrler hocam
saygılar