Как создать копию таблицы?
У меня имеется db таблица. Мне нужно
1. сделать копию этой таблицы со всеми данными
2. сделать пустую копию этой таблицы (без данных).

Буду благодарен за примеры. leyftd@mail

создать новую таблицу .
посмотреть какие поля в старой и добавить их в новую .
перегнать все записи в новую .

проблема будет только угадать по каким полям создать первичный индекс чтоб неболо записей с одинаковыми ключ полями

я пошлю тебе исходники

А не проще ли воспользоваться "BACKUP TABLE имя [, имя] TO каталог"?

А потом можно и опустошить скопированную таблицу "TRUNCATE TABLE таблица", если таблицу очищать полностью, то эта инструкция работает гораздо быстрее "DELETE", но она может только полностью очистить таблицу.

Это сообщение отредактировал(а) Master - 15.5.2003, 10:03

А каким языком программирования это нужно сделать?

Если таблица без индексов, то можно просто скопировать файл

раз *.DB - значит Paradox. А раз Paradox - это либо Delphi, либо BDB.

Используй компонент TBatchMove. С ним очень просто работать.

С помощью компонента TTable создай новую таблицу на примере старой, а текже создай поля. Вот приблизительный пример, у меня все работает:

procedure TfmMain.NewDB(Sender: TObject);
var
vNewDBPath: String;
begin
//выбираем каталог для хранения файлов БД
if SelectDirectory('ВЫБЕРИТЕ КАТАЛОГ ДЛЯ ХРАНЕНИЯ'+#13+
'НОВОЙ БАЗЫ ДАННЫХ','', vNewDBPath) then
with DM do Begin
//DM- имя модуля данных
//создание таблицы "диски"
//tCrTab - имя новой таблицы
//tOpis - таблица-источник, подключена к физической таблице
// с помощью компонента TDataBase
tCrTab.DatabaseName:=vNewDBPath;
tCrTab.TableName:='NewTable.DB';//физическое имя таблицы
tCrTab.TableType:=tOpis.TableType;//nbg nf,kbws
tCrTab.FieldDefs.Assign(tOpis.FieldDefs);//названия и типы полей
tCrTab.IndexDefs.Assign(tOpis.IndexDefs);//названия и типы индексов
tCrTab.CreateTable;//процедура создания таблицы
end;// with
end;