Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Базы данных \ BDE \ Как удалить BDE таблицу

Как удалить BDE таблицу

Данный пример удаляет таблицу, достаточно только указать каталог и имя таблицы, остальное сделает BDE, удалит таблицу, все индексы и связанные файлы.

uses
   DB, DBTables, DbiProcs, DbiErrs, DbiTypes;
 
 procedure DeleteTable(Dir, TblName: String);
 var
   DBHandle: HDBIDB;
   ResultCode: DBIResult;
   tbl, Err: Array[0..255] of Char;
   SrcTbl: TTable;
 begin
   SrcTbl := TTable.Create(Application);
   try
     SrcTbl.DatabaseName := Dir;
     SrcTbl.TableName := TblName;
     SrcTbl.Open;
     DBHandle := SrcTbl.DBHandle;
     SrcTbl.Close;
     ResultCode := DbiDeleteTable(DBHandle,
       StrPCopy(Tbl,Dir + '' + TblName), nil);
     if ResultCode <> DBIERR_NONE then
     begin
       DbiGetErrorString(ResultCode,Err);
       raise EDatabaseError.Create('While deleting ' +
         Dir + '' + TblName + ', the database ' +
         'engine generated the error ''' + StrPas(Err) + '''');
     end;
   finally
     SrcTbl.Free;
   end;
 end;

Название: Как удалить BDE таблицу
Дата публикации: 2004-03-16 (2967 Прочтено)

 
 

 

Page generation 0.044 seconds