Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Tablo Mevcut mu?  (Okunma sayısı 1884 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Tablo Mevcut mu?
« : 13 Ekim 2005 14:12:33 »
Kod:  (Unknown Language)
  1. Function IsTable(DatabaseName, TableName: String): Boolean;
  2.  
  3. Var
  4.  
  5.   Query: TQuery;
  6.  
  7. Begin
  8.  
  9.   Result := False;
  10.  
  11.   Query := TQuery.Create(nil);
  12.  
  13.   Try
  14.  
  15.     Try
  16.  
  17.       Query.DatabaseName := DatabaseName;
  18.  
  19.       Query.Sql.Clear;
  20.  
  21.       Query.Sql.Add('Select *');
  22.  
  23.       Query.Sql.Add('From');
  24.  
  25.       If (Pos('.DB', UpperCase(TableName)) > 0) Or
  26.  
  27.          (Pos('.DBF',UpperCase(TableName)) > 0) Then
  28.  
  29.       Begin
  30.  
  31.         Query.Sql.Add('"'+TableName+'"');
  32.  
  33.       End
  34.  
  35.       Else
  36.  
  37.       Begin
  38.  
  39.         Query.Sql.Add(TableName);
  40.  
  41.       End;
  42.  
  43.       Query.Active := True;
  44.  
  45.       Result := True;
  46.  
  47.     Except
  48.  
  49.     End;
  50.  
  51.   Finally
  52.  
  53.     Query.Free;
  54.  
  55.   End;
  56.  
  57. End;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::
Sayfa: [1]   Yukarı git
« önceki sonraki »