Копирование таблицы с помощью DBE

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 do

  begin

    try

      DisableControls;
      StrPCopy(psrc, TableName);
      rslt := DbiCopyTable(DBHandle, True
, psrc, nil
, pdest);
      Result := (rslt = 0);
    finally

      Refresh;
      EnableControls;
    end
;
  end
;
end
;

Другое по теме:

• Database Desktop показывает содержимое таблиц шрифтом без русских букв
• Динамическое создание таблицы и полей во время выполнения программы
• Естественные ключи против искусственных ключей