çözüldü- DBeaver editöründe yeni veritabanı oluşturma

[sadikacar60]

arkadaşlar  DBeaver editör programıyla pardusda varolan veritabanına bağlanabiliyorum ama sıfırdan veritabanı xxx.fdb  dosyası oluşturamıyorum.
programı baya kurcaladım ama çözemedim yardımcı olabilecek var mı acaba.

saygılarımla

(pardus-lazarus)

[mcuyan]

Bahsettğiniz uygulmayı bilmiyorum. IBExpert gayet iyi bir Management uygulaması. Ama illa bu uygulamayı kullanmak istiyorum derseniz ISql den kod ile yaratmanızı öneririm..

https://firebirdsql.org/manual/qsg10-creating.html

[sadikacar60]

(14-02-2019, Saat: 21:51)mcuyan Adlı Kullanıcıdan Alıntı: Bahsettğiniz uygulmayı bilmiyorum. IBExpert gayet iyi bir Management uygulaması. Ama illa bu uygulamayı kullanmak istiyorum derseniz ISql den kod ile yaratmanızı öneririm..

https://firebirdsql.org/manual/qsg10-creating.html

teşekkürler hocam pardus terminalde kullanabileceğimiz benzer bir yapı var mı acaba?
saygılar sunarım.

[mcuyan]

o konuda bilgim yok malesef hocam. Fakat bir DB Management uygulmasını DB Create edememesi çok ilginç bir durum.. İyicene araştırdınız mı?

Ben şimdi uygulamayı indirip test yapacağım.. sonucu bildiririm size..

---

Cidden yokmuş ya.
isql'den kod ile oluşturmanızı tavsiye ederim.. Linuux konusunda pek bi deneyimim yok malesef..

[masteryoda]

Kendiniz de oluşturabilirsiniz bir örnek.

function CreateFirebirdDB(const ClientLibPath :string;
                         const DbPath:string;
                         const Username:string;
                         const Password:string;
                         const Dialect :SmallInt=3;
                         const CharacterSet  :string ='UTF8';
                         const Page_Size:integer=16384;
                         DefCharacterSet:string ='UTF8'):Boolean;


var
FdConn   :TFDConnection;
FdScript :TFDScript;
sVal     :string;
begin

 sVal := '';
 sVal := sVal +'SET SQL DIALECT '+Dialect.ToString+sLineBreak;
 sVal := sVal +'SET NAMES '+CharacterSet+';'+sLineBreak;
 sVal := sVal +'SET CLIENTLIB '+QuotedStr(ClientLibPath)+';'+sLineBreak;
 sVal := sVal +'CREATE DATABASE '+QuotedStr(DbPath)+sLineBreak;
 sVal := sVal +'USER '+QuotedStr(Username)+' PASSWORD '+QuotedStr(Password)+sLineBreak;
 sVal := sVal +'PAGE_SIZE '+IntToStr(Page_Size)+sLineBreak;
 sVal := sVal +'DEFAULT CHARACTER SET '+DefCharacterSet+';'+sLineBreak;
 sVal := sVal +'SET TERM ^ ;';

 FdConn   := TFDConnection.Create(nil);
 FdScript := TFDScript.Create(nil);
 try
 FdConn.DriverName := 'FB';
 FdScript.Connection := FdConn;
 FdScript.SQLScripts.Add;
 FdScript.SQLScripts.Items[0].SQL.Add(sVal);
 FdScript.ExecuteAll;
 Result := CreateTestFb(DbPath,Username,Password);
 finally
   FdConn.Free;
   FdScript.Free;
 end;

end;

function CreateTestFb (const DbPath:string; const Username:string; const Password:string):Boolean;
var
conn : TFDConnection;
begin

  conn := TFDConnection.Create(nil);
  try
    try
       conn.DriverName:='FB';
       conn.Params.Database := DbPath;
       conn.Params.UserName := Username;
       conn.Params.Password := Password;
       conn.Connected := True;
       if conn.Connected then Result := True
    except
      on e: Exception do
      begin
       showmessage(E.ClassName+' error raised, with message : '+E.Message);
       Result := False;
      end;
    end;

  finally
    conn.Free;
  end;



end;

[sadikacar60]

hocam çok özür dilerim belirtmeyi unutmuşum
pardusda lazarusla bağlanmaya çalışıyorum.

[mcuyan]

Farketmez hocam. @masteryoda hocamız FDConnection ile örneklemiş. Siz FDConnection u LAzarus da TSqlConnection ve TSQLScript kullanarak yapabilirsiniz..

Bu arada çok güzel bir örnekleme olmuş @masteryoda eliniz sağlık..

[sadikacar60]

teşekkürler hocam o şekilde değiştirip halledeceğim
saygılarımla

[esistem]

Flamerobin denedinizmi? bi ara banana pi cihaza yükleyip onunla bağlanmıştım firebird e.

[sadikacar60]

yok hocam bdeaver arayüzü hoşuma gitti onla devam ettim
saygılarımla