Приветствую Вас Гость | RSS

Меню сайта

Реклама

Категории раздела
ADO [17]
ASCII и CSV [12]
Access [20]
Alias [24]
BDE [37]
BLOB поля [19]
Clipper [2]
DB2 [2]
DBASE и DBF [26]
Fox Pro [1]
Interbase [21]
MSSQL [0]
ODBC [10]
Oracle [0]
Paradox [0]
SQL [29]
Sybase [1]
База данных [0]
Закладки [2]
Записи [0]
Индексы [10]
Компоненты и Базы данных [0]
Модуль данных [3]
Отчеты [2]
Ошибки БД [17]
Поиск [16]
Поля [0]
Сортировка и Фильтр [6]
Таблицы [0]

Наш опрос
Оцените мой сайт
Всего ответов: 30

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Статьи » Базы данных » 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 | Добавил: Skinner (05.07.2008)
Просмотров: 415 | Рейтинг: 0.0/0
  Delphi Lab   Главная   Регистрация   Вход  
Интересная Цитата

Поиск

Магазин


Copyright MyCorp © 2025 Хостинг от uCoz