function CopyTable(tbl: TTable; dest: string): boolean;
var
psrc, pdest: array[0..DBIMAXTBLNAMELEN] of char;
rslt: DBIResult;
begin
Result := False;
StrPCopy(pdest, dest);
with tbl dobegintry
DisableControls;
StrPCopy(psrc, TableName);
rslt := DbiCopyTable(DBHandle, True, psrc, nil, pdest);
Result := (rslt = 0);
finally
Refresh;
EnableControls;
end;
end;
end;
Статья Копирование таблицы с помощью DBE раздела Базы данных Таблицы может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.