بدست آوردن مقدار یک فیلد توسط یک فیلد دیگر

[_mojitaba_]

دوستان من میخوام نام یک فرد با شماره 10 رو بدست بیارم کدش میشه این
select name from person where num=10
درسته؟
حالا من میخوام نتیجه این رو برای من داخل یک فیلد دیگه ثبت کنه یعنی تو مثال بالا نام شخص alex هست و اسمش داخل یک فیلد در یک جدول دیگه ثبت بشه اینو چطور انجام بدم؟

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



For I = 1 To adodc.Recordset.RecordCount
combo.AddItem Temp.Caption
adodc.Recordset.MoveNext
Next

بالا متغیر Temp در واقع متغیر نیست بلکه من لیبل گذاشتم چون متغیر ها data source , data field ندارند!
میتونید یه راهی بهم بگید بجای لیبل گذاشتن طور دیگه ای رکورهارو بدست بیارم؟

[mohammadmowlavi]

از دستور Insert Into استفاده کن

[_mojitaba_]

یه مقدار توضیح میدی؟

[vbhamed]

سلام
براي دستور Sql
INSERT INTO table2 (name) SELECT name FROM table1 where num=10
و براي كمبو باكس (به جاي FieldName اسم فيلد خودتون رو بزاريد)
With adodc.Recordset
For I = 1 To .RecordCount
combo.AddItem !FieldName
.MoveNext
Next
End With

[_mojitaba_]

دوست عزیز دست شما درد نکنه همش شما جواب منو میدی
کد اول شما کار نکرد میشه یه سورس نمونه بزاری؟

[vbhamed]

سلام
كد كه درسته من تو بانك تست كردم ولي بانك رو پاك كردم
شما برنامه و بانكتون رو بزاريد تا اصلاح بشه، اگر اينجا نتونستيد، پيام خصوصي بزاريد

[_mojitaba_]

برنامه http://p30up.ir/images/o4evuhftyxoqf1w8vqd4.rar
اینو برا من درس کنی ممنون میشم

[vbhamed]

سلام
دستوراتي از قبيل Insert, Delete, Update به اين شكلي كه نوشتيد نمي‌تونن بكار برن از روش زير استفاده كنيد
Dim cn As New Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database2.mdb;Persist Security Info=False"
cn.Open
cn.Execute "INSERT INTO table2 (Field1) SELECT id FROM table1 where name='" & Combo1.Text & "'"
cn.Close

[_mojitaba_]

یعنی منظورتون اینه که با کنترل adodc نمیشه اینها رو انجام داد درسته؟ در ضمن تشکر کار کرد :قلب:

[_mojitaba_]

آقای حامد ایمیلتو میدی؟ من تو این اینسرتم به مشکل خوردم