با سلام
اگر شما از کامپوننت قسمت BDE استفاده می کنید با استفاده از کامپونت Batchmove می توانی این کار را انجام دهی ولی اگر از کامپوننت قسمت ADO استفاده می کنید باید کارهای زیر را انجام دهید :
1- ابتدا یک ADOCONECTION برای دیتابیس مبدا ایجاد می کنید و آنرا به بانک مورد نظرت متصل می کنی
2- یک ADOCONECTION برای دیتابیس مقصد ایجاد می کنید و آنرا به بانک مورد نظر متصل می کنید .
3- سپس با استفاده از دستور INSERT INTO به شرح زیر عمل می کنید .
Insert Into Table2 (field1,field2,field3) VALUES (a1,a2,a3);f
سپس پارامترهای a1,a2,a3 را با استفاده از دستور Param از جدول مبدا انتخاب می کنید . مثال :
dm.table2.Parameters.ParamValues ['a1']:=dm.table1.FieldValues ['name'];
بعد از این این دستورات را داخل یک حلقه While قرار می دهی شرطش را هم بصورتی قرار می دهی که جدول اول به آخر فایل برسد .
س÷س برنامه بطور اتوماتیک از جدول اول اطلاعات را می خواند و در جدول دوم می ریزد . و تا زمان آخرین فیلد این کار را انجام می دهد .
من خودم این کار را انجام داده ام و در برنامه نتیحه داده .
موفق باشید