Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

New Table 


kirill2000   (2002-02-25 15:14) [0]

Скажите пожайлуста, как можно создать таблицу во время работы программы точно такую, какая уже есть, но просто с другим именем файла(другими словами скопировать структуру).



Fay   (2002-02-25 22:12) [1]

1) Узнай исходную структуру.
2) Создай таблицу с известной структурой.
3) Готово!



Anatoly Podgoretsky   (2002-02-25 22:17) [2]

Попробуй

TableName := "NewName";
CreateTable

не вовсех случаях работает.



sniknik   (2002-02-25 23:16) [3]

Пример

{
As we know, Paradox Tables consist in a table file and some corresponding index files
there are many way to copy them:
1. Using TBatchMover (at DataAccess Pallete) with Mode : BatCopy
But you can"t copy the tables corresponding index files, TBatchMove just
copies the structure and data.
2. Using FileCopy
But you can"t copy the tables corresponding index files automatically,
you should define each files
.. and many more

The Simple way is:

Put two TTables on your form, name it as tbSource and tbTarget.
Then, put this procedure under implementation area
}

type
TForm1 = class(TForm)
tbSource: TTable;
tbTarget: TTable;
// ...
end;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
tbSource.TableName := "Source.DB"; // The name of your tables which you want to copy from
tbTarget.TableName := "Target.DB"; // The name of your tables which you will to copy to
// You Can set the tbSource.DataBaseName to an existing path/Alias
// where you store your DB
// You Can set the tbTarget.DataBaseName to an existing path/Alias
// where you want to store the duplicate DB
tbSource.StoreDefs := True;
tbTarget.StoreDefs := True;
tbSource.FieldDefs.Update;
tbSource.IndexDefs.Update;
tbTarget.FieldDefs := tbSource.FieldDefs;
tbTarget.IndexDefs := tbSource.IndexDefs;
tbTarget.CreateTable;
//Actually you can set these code up to only 5 lines :)
end;


End.




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
3-80395           weak                  2002-02-26 09:43  2002.03.25  
Как сделать, чтобы при вставке новой записи в таблицу строка вставлялась не в конец, а именно туда куда надо. (Используется DBNavigator).


4-80715           solo                  2002-01-24 14:02  2002.03.25  
Проблема с ToolBar


1-80463           Vince                 2002-03-05 22:03  2002.03.25  
Генерация собственных событий


6-80653           антонио               2002-01-07 20:26  2002.03.25  
Отключение


14-80685          kingdom               2002-02-11 18:52  2002.03.25  
Где взять RxLib Help?