Run Time VT Oluşturuyorum ama kullanamıyorum :(

[huseyinkucuk]

Kod: Tümünü seç

if OpenDialog.Execute then
      Yol:=OpenDialog.FileName;

    IBDatabase1.DatabaseName:=Yol+'.fdb';
    IBDatabase1.SQLDialect:=3;
    IBDatabase1.LoginPrompt:=false;
    IBDatabase1.CreateDatabase;


    IBDatabase1.Connected:=false;
    IBDatabase1.Params.Values['User_Name']:='SYSDBA';
    IBDatabase1.Params.Values['PASSWORD']:='masterkey';
    IBDatabase1.Params.Values['lc_ctype']:='win1254';

    IBDatabase1.Connected:=true;
    IBTransaction1.Active:=true;

    IBSQL1.Close;
    IBSQL1.SQL.Clear;
    IBSQL1.SQL.Add('CREATE TABLE KAYITLAR (');
    IBSQL1.SQL.Add('KAYIT_NO INTEGER NOT NULL,');
    IBSQL1.SQL.Add('ADI VARCHAR(50),');
    IBSQL1.SQL.Add('SOYADI VARCHAR(50),');
    IBSQL1.SQL.Add('PRIMARY KEY(KAYIT_NO)');
    IBSQL1.SQL.Add(')');
    IBSQL1.Prepare;
    IBSQL1.ExecQuery;
    IBSQL1.Close;

Yukarıdaki kodla VT oluşturuyorum... ve aşağıda yazmış olduğum devamındaki kodlarla da vt'ye bağlanmak istiyorum ama bağlanamıyorum..

Kod: Tümünü seç

    IBQuery1.Close;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add('select');
    IBQuery1.SQL.Add('*');
    IBQuery1.SQL.Add('from');
    IBQuery1.SQL.Add('KAYITLAR');
    IBQuery1.Open;

İşlem sonucunda
'Dynamic SQL Error
SQL Error Code = -204
Table unknown
KAYITLAR'
şeklinde bir hata veriyor... Arkadaşlar, nerede hata yapıyorum... Bana yol gösterirseniz çok sevinirim... Teşekkürler...[/code]

[deltas]

kodları aynı satır işlem altında çalıştırmıyorsan database tekrar ismini yazıp login olmalısın ve transactionu devreye almalısın.
aşşağıdaki gibi sorunsuz çalışır.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
yol: string;
begin
//if OpenDialog1.Execute then
    //  Yol:=OpenDialog1.FileName;

    IBDatabase1.DatabaseName:='c:\dene12.fdb';
    IBDatabase1.SQLDialect:=3;
    IBDatabase1.LoginPrompt:=true;
    //IBDatabase1.CreateDatabase;

    IBDatabase1.Connected:=false;
    //IBDatabase1.Params.Values['User_Name']:='SYSDBA';
    //IBDatabase1.Params.Values['PASSWORD']:='masterkey';
    //IBDatabase1.Params.Values['lc_ctype']:='win1254';
    IBDatabase1.Connected:=true;
    IBTransaction1.Active:=true;

    IBSQL1.Close;
    IBSQL1.SQL.Clear;
    IBSQL1.SQL.Add('CREATE TABLE KAYITLAR ('); 
    IBSQL1.SQL.Add('KAYIT_NO INTEGER NOT NULL,'); 
    IBSQL1.SQL.Add('ADI VARCHAR(50),');
    IBSQL1.SQL.Add('SOYADI VARCHAR(50),'); 
    IBSQL1.SQL.Add('PRIMARY KEY(KAYIT_NO)'); 
    IBSQL1.SQL.Add(')'); 
    IBSQL1.Prepare;
    IBSQL1.ExecQuery; 
    IBSQL1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    IBDatabase1.DatabaseName:='c:\dene12.fdb';
    IBDatabase1.SQLDialect:=3;
    IBDatabase1.LoginPrompt:=false;
    IBDatabase1.Connected:=false;
    IBDatabase1.Params.Values['User_Name']:='SYSDBA';
    IBDatabase1.Params.Values['PASSWORD']:='masterkey';
    IBDatabase1.Params.Values['lc_ctype']:='win1254';
    IBDatabase1.Connected:=true;
    IBTransaction1.Active:=true;
    IBQuery1.Close;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add('select'); 
    IBQuery1.SQL.Add('*'); 
    IBQuery1.SQL.Add('from');
    IBQuery1.SQL.Add('KAYITLAR');
    IBQuery1.Open; 
end;

[huseyinkucuk]

@Deltas hocam, Allah senden razı olsun... Bi saatten beri denemediğim yol kalmamıştı, en sonunda sen yetiştin imdadıma... Çok teşekkür ederim, çalışmalarında başarılar... Herkese kolay gelsin...