نوشته شده توسط
mahdisam
ممنون از پاسختون .. خواهشاً اگه برای شما ممکنه یه سورس ساده یا کد مربوطه رو بگذارید تا انجامش بدم ..ممنون میشم .. خیلی بهش نیازمندم ..خدا خیرتون بده ..
سلام
در کد زیر، با یک حلقه، اطلاعات از جدول اول خوانده شده و به جدول دوم ریخته میشه. فرض بر اینه که فایل دیتابیس جداول مجزاست
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
FDConnection2.Open();
FDConnection1.Open();
FDQuery1.Close;
FDQuery1.SQL.Clear;
FDQuery1.SQL := 'SELECT * FROM YourTableName';
FDQuery1.Open();
while not FDQuery1.Eof do
begin
FDQuery2.Close;
FDQuery2.SQL.Clear;
FDQuery2.SQL := 'INSERT INTO YourTableName VALUES(:Param,:Param2,:Param3';
FDQuery2.ParamByName('Param1').AsString := FDQuery1.FieldByName('FieldName1').AsString;
FDQuery2.ParamByName('Param2').AsString := FDQuery1.FieldByName('FieldName2').AsString;
FDQuery2.ParamByName('Param3').AsString := FDQuery1.FieldByName('FieldName3').AsString;
FDQuery2.ExecSQL;
Next
end;
end;
Param1,Param2,Param3 متغیر هستند که در درون حلقه مقادیر رو میگیرن. در صورتیکه تعداد فیلد های جدول بیشتر یا کمتر باشه، میتونید تعدادشون رو(با فرض نام یگانه) تغییر بدید.
FieldName هم که نام فیلد جدول شما هستند و باید دقیقا همون نامی باشند که در جدول دارند.
YourTableName هم نام جدول شماست که به نام واقعیش تغییر بدید.
موفق باشیم