درخواست راهنمايي در خصوص كپي بانك اطلاعاتي

[tikzahraaran]

با سلام خدمت همه دوستان گرامي
ابتدا از آقاي علي كشاورز مي خواهم لطف كنن قبل از اينكه اين تاپيك را حذف كنند اگه مي تونن به سليقه خودشان يك عنوان به غير از درخواست كمك و راهنمايي براي اين تاپيك پيشنهاد كنند

خب بريم سر مشكل من و درخواست راهنمايي از دوستان گرامي

من در پروژه ام مي خوام يك بانك اطلاعاتي را در يك بانك ديگر كپي كنم كه همه فيلدهاي آنها مثل هم است ولي بانك دومي كه مي خواهم اطلاعات در آن كپي شود داراي يك فيلد ديگه نيز است كه مي خواهم اطلاعات آن فيلد بر اساس عدد نوشته شده در يك تكست باكس پر شود لطفا مرا راهنمايي كنيد
با تشكر

[shervin farzin]

سلام
براي كپي كردن اطلاعات از يك جدول به يك جدول ديگه در صورتي جدول دوم ( جدول مقصد ) در
Database ايجادشده باشه ميتونين از كد SQL زير استفاده كنين :

insert into t2 (field1,field2,field3) select field1,field2,field3 from t1
در اين كد t1 جدول مبداء و t2 جدول مقصده .
اما در مورد اون فيلد اضافه كه بايد پر بشه ، تا جايي كه من ميدونم راهي نيست كه بتونين
همين كد بالا رو طوري تغيير بدين كه اون فيلد رو هم پر كنه و از اونجايي كه اگر چنين راهي هم
باشه ، مقدار اون فيلد اضافه براي تمام ركوردهاي ثبت شده همون مقداري خواهد بود كه از داخل
برنام ( مثلا درون EditBOx ) شما وارد كردين ، پس پيشنهاد ميكنم بعد از اجراء كد بالا دوباره
فيلد مثلا چهارم رو از جدول t2 با مقداري كه از فرم برنامتون ميخونين Update كنين :

'Update t2 set field4 = '+QuotedStr ( edit1.text );
موفق باشيد .

[tikzahraaran]

ضمن تشكر از shervin farzin و آقاي علي كشاورز كه اين تاپيك را حذف ننمودند:لبخند:
و باز تشكر مجدد از shervin farzin كه با راهنمايي خود يك تلنگري به من زدند من اين كد را نوشتم و مشكل حد شد

Dconnection.ADOQuery1.Close;
Dconnection.ADOQuery1.SQL.Clear;
Dconnection.ADOQuery1.SQL.Add('insert into articldaeem(shomaresanad,codemoeen,sharhemoeen,cod etafzili,sharhetafzil,sharh,bedehkar,bestankar,taf zil,tanzimkonandeh,shomarearticl)'+
'select shomaresanad=:shomaresanad1 ,codemoeen,sharhemoeen,codetafzili,sharhetafzil,sh arh,bedehkar,bestankar,tafzil,tanzimkonandeh,shoma rearticl from movaghat where shomaresanad=:shomaresanad ');
Dconnection.ADOQuery1.Parameters.ParamValues['shomaresanad']:=DSmovaghat.DataSource2.DataSet.Fields[0].Value;
Dconnection.ADOQuery1.Parameters.ParamValues['shomaresanad1']:=enteghal.Label1.Caption;
Dconnection.ADOQuery1.ExecSQL;