کمک : معادل دستور Copy Stru مربوط به فاکس پرو در دلفی چیست

[delphi_63102]

با سلام
از اساتید محترم خواهشمند است من رو راهنمایی کنند
من میخوام از ساختار یک بانک نه از اطلاعات اون یک کپی تهیه کنم
این عمل در فاکس پرو به روش زیر انجام میشه
sele 13
use bnk
copy stru to temp
sele 13
use temp
با این عمل ما یک بانک با ساختار بانک اول داریم و خالی
حالا اگه محبت کنید و معادل این دستورات رو در دلفی بگید ممنونتون میشم.
با تشکر :sunglass:

[delphi_63102]

مثل اینکه مدیران سایت سرشون خیلی شلوغه
بابا حداقل بگید دستوری وجود نداره تا ما هم اینقدر منتظر نشینیم

[hr110]

برای اینکار شما ابتدا جدول مبنا را باز کرده و با استفاده از یک دیتا ست دوم ساختار جدول اول را خوانده و ساختار جدول دوم را ایجاد کنید، دستوراتی شبیه به این شما رو میتونه کمک کنه :

for I:=0 to ADOQuery1.FieldCount-1 do ....
...
ADOQuery1.Fields[I].DataType;
...
ADOQuery1.Fields[I].Size;
...
ADOQuery1.Fields.Add(...)
....

[mehdi_moosavi]

از روش زیر استفاده کنید:

1- یک Table رو به فایل DB مورد نظر وصل کنید، با تنظیم Database name و Table name
2- روی Table راست کلیک و ...Field Editor و بعد Add all Field
3- بوسیله کدنویسی Database name رو عوض کنید و دستور CreateTable رو اجرا کنید.

Table1.DatabaseName:='c:\';
Table1.TableName:='temp.db';
Table1.DatabaseName:='e:\';
Table1.CreateTable;