tablo var mı kontrolü

[sadikacar60]

arkadaşlar formda bir sürü başlık var ama ben bir türlü beceremedim.
tablom var mı kontrolü yapmak istiyorum örnekleri inceledim ama kendime uygun şekilde çalıştıramadım 
neyi yanlış yapıyorum acaba 
saygılarımla

//aynı tablodan var mı?
SQLQuery1.SQL.Clear;
//SQLQuery1.SQL.Add('select VT_TURNUVA FROM INFORMATION_SCHEMA.TABLES where table_name = ''TRNV_28032021'' ');
SQLQuery1.SQL.Add('select VT_TURNUVA FROM INFORMATION_SCHEMA.TABLES where table_name =TRNV_28032021 ');
SQLQuery1.ExecSQL;
while not SQLQuery1.Eof do
begin
    ShowMessage('Buldu');
    exit;
  end;  

[klavye]

(28-03-2021, Saat: 16:03)sadikacar60 Adlı Kullanıcıdan Alıntı: arkadaşlar formda bir sürü başlık var ama ben bir türlü beceremedim.
tablom var mı kontrolü yapmak istiyorum örnekleri inceledim ama kendime uygun şekilde çalıştıramadım 
neyi yanlış yapıyorum acaba 
saygılarımla

//aynı tablodan var mı?
SQLQuery1.SQL.Clear;
//SQLQuery1.SQL.Add('select VT_TURNUVA FROM INFORMATION_SCHEMA.TABLES where table_name = ''TRNV_28032021'' ');
SQLQuery1.SQL.Add('select VT_TURNUVA FROM INFORMATION_SCHEMA.TABLES where table_name =TRNV_28032021 ');
SQLQuery1.ExecSQL;
while not SQLQuery1.Eof do
begin
    ShowMessage('Buldu');
    exit;
  end;  

Aşağıdaki sorguyu dener misiniz

Kod: (Select All)

SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = 'tablo adi burada olacak'

[sadikacar60]

(28-03-2021, Saat: 16:40)klavye Adlı Kullanıcıdan Alıntı:

Kod: (Select All)

SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = 'tablo adi burada olacak'

olmadı hocam hep boş deger dönüyor. 
saygılarımla

//aynı tablodan var mı?
//SQLQuery1.SQL.Add('SELECT * FROM information_schema.tables WHERE table_name = ''TRNV_28032021'' ');
SQLQuery1.SQL.Add('SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = TRNV_28032021');
SQLQuery1.Open;
while  SQLQuery1.Eof do
begin
   ShowMessage('Buldu');
   exit;
 end;

sonuc := SQLQuery1.Fields[0].AsInteger;
ShowMessage(IntToStr(sonuc));
if sonuc=1 then exit;
                     

[enigma]

SQLQuery1.SQL.Add('SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = '+#39+'TRNV_28032021'+#39);

şeklinde dener misiniz ?

[3ddark]

http://www.firebirdfaq.org/faq69/

[r3n4m3]

Merhabalar

Senin lik sorgu kullanırsan soyle bişey yap yeterlidir

execsql den sonra

if SQLQuery1.recordcount > 0 then
showmessage('bulundu');

[sadikacar60]

(29-03-2021, Saat: 21:14)r3n4m3 Adlı Kullanıcıdan Alıntı: Merhabalar

Senin lik sorgu kullanırsan soyle bişey yap yeterlidir

execsql den sonra

if SQLQuery1.recordcount > 0 then
showmessage('bulundu');

malesef bildiğim yöntemleri denedim hata vermiyor ama kod iş görmüyor tabloyu kontrol ettim tablo var hatta başka tablo oluşturup onuda kontrol ettim sonuç aynı.
zamanınızı ayırdığınız için teşekkür ederim.

//aynı tablodan var mı?
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
//SQLQuery1.SQL.Add('SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = TRNV_28032021');
//SQLQuery1.SQL.Add('select 1 from rdb$relations where rdb$relation_name = ''TRNV_28032021'' ');
SQLQuery1.SQL.Add('SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = '+#39+'TRNV_28032021'+#39);

SQLQuery1.ExecSQL;
if SQLQuery1.recordcount > 0 then showmessage('bulundu');

 

[3ddark]

Execsql yerine open deneyin

[klavye]

Yazdıgınız sorgu buyuk-kucuk harfe duyarli.Onun içinde tablo adini buna gore yazmalisiniz.
Bu sekilde forma bir adet query nesnesi ekledim.
sql.Text:='SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = '+QuotedStr('OGRENCI');
Seklinde sorguyu hazirlayip execquery dedigimde dogru sonucu verdi.

[QuAdR]

IBX ile baktım.
uses a IBX.IBSQL  ekleyerek aşağıdaki gibi kullanabilirsiniz.

function TfrmMain.TableExists(Db: TIBDatabase; const TableName: string): Boolean;
begin
 with TIBSQL.Create(nil) do
 try
   Database := db;
   SQL.Text := 'SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = :t';
   Params[0].AsString := TableName;
   ExecQuery;
   Result := RecordCount > 0;
 finally
   Free;
 end;
end;

procedure TfrmMain.btnTest(Sender: TObject);
begin
  if TableExists(IBDatabase1, 'DENEME') then
  ShowMessage('Ok');
end;