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 Silmek  (Okunma sayısı 1743 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 Silmek
« : 13 Ekim 2005 14:11:38 »
Kod:  (Unknown Language)
  1. Function DBDropTable(const DatabaseName, TableName : string):Boolean;
  2.  
  3. var Query : TQuery;
  4.  
  5. begin
  6.  
  7.   Result := False;
  8.  
  9.   If Not IsTable(DatabaseName, TableName) Then
  10.  
  11.   Begin
  12.  
  13.     Exit;
  14.  
  15.   End;
  16.  
  17.   Query := TQuery.Create(nil);
  18.  
  19.   try
  20.  
  21.     Query.DatabaseName := DatabaseName;
  22.  
  23.     Query.SQL.Clear;
  24.  
  25.     Query.SQL.Add('Drop Table ');
  26.  
  27.     If (Pos('.DB', UpperCase(TableName)) > 0) Or
  28.  
  29.        (Pos('.DBF',UpperCase(TableName)) > 0) Then
  30.  
  31.     Begin
  32.  
  33.       Query.Sql.Add('"'+TableName+'"');
  34.  
  35.     End
  36.  
  37.     Else
  38.  
  39.     Begin
  40.  
  41.       Query.Sql.Add(TableName);
  42.  
  43.     End;
  44.  
  45.     Result := True;
  46.  
  47.     Try
  48.  
  49.       Query.ExecSQL;
  50.  
  51.     Except
  52.  
  53.       Result := False;
  54.  
  55.     End;
  56.  
  57.   finally
  58.  
  59.     Query.Free;
  60.  
  61.   end;
  62.  
  63. end;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::
Sayfa: [1]   Yukarı git
« önceki sonraki »