الكود المقابل في دوت نت

مرفق المثال

المطللوب في form1 وهو

1-الجدول الثاني فيه اقسام الادارة مثلا كل قسم له id تمام تم تحميل هذه الاقسام في الكومبو عند الحفظ يتم حفظ القسم من الكمبو لو اردنا لاي سبب تغيير الاسم الخاص بالقسم يتطلب ذلك تغيير جميع السجلات التي بها نفس القسم

ولكن لو كنا استطعنا ان نحصل علي id الخاص بالقسم وليكن مثلا 1 وعند الخفظ بدل ما يحفظ اسم القسم يتم حفظ 1

وعند تغيير القسم المقابل لل اي دي 1 يتم تعديله تلقائيا في جميع السجلات

وهذا هو الكود في يجوال 6 برجاء تعديل المثال المرفق او الكود المقابل له في دوت نت

If RS3.State = 1 Then Close

RS3.Open "select * from wazefa where wazefaname='" & Combo1.Text & "'", cnn, adOpenStatic, adLockOptimistic

Dim b1 As String

b1 = RS3!wazefaid

http://www.2shared.com/file/10961391/29207460/__2009.html

تم رفع الملف هلي رابط اخر

http://file15.9q9q.net/Download/71586516/------------------2009.rar.html

لكي تستطيع تحميل الملف انسخ الرابط واكتبه في عنوان صفحة ثم اضغط Enter لكي تستطيع تحميل الملف