منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد حل حفظ البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد حل حفظ البيانات (/showthread.php?tid=27240)

الصفحات: 1 2 3 4 5

RE: اريد حل حفظ البيانات - asemshahen5 - 03-11-18

المثال بعد التعديل :

RE: اريد حل حفظ البيانات - elgokr - 03-11-18

بعد الاطلاع على السورس فاليك التالى

عند الاسطر التالي من الكو لاضافة بنك
كود :
       CmbBank_user_id.ValueMember = "user_id"
       CmbBank_user_id.DataSource = dt_user_inbank
       CmbBank_user_id.DisplayMember = "user_name"
       CmbBank_user_id.SelectedIndex = -1

يمكنك استبداله بالكود التالى
كود :
       For ii As Integer = 0 To dt_user_inbank.Rows.Count - 1
           CmbBank_user_id.Items.Add(dt_user_inbank(ii)(1) & " - " & dt_user_inbank(ii)(1))
       Next

سيكون الناتج عند العرض بهذا الشكل
PHP كود :
1 - مستخدم1
3 - مستخدم3 

وعند تنفيذ الكود بالاسفل وهو 
كود :
       dt_bank.Rows(pos_bank).Item("bank_user_id") = Val(CmbBank_user_id.Text)

سيكون الناتج كما لو كتبت
كود :
       dt_bank.Rows(pos_bank).Item("bank_user_id") = 1

1 تعنى المستخدم1 اى اخد الرقم الاول فى بداية القيمة للكمبو بوكس

طيب الطريقة الثانية بترك الاسطر التالية
كود :
       CmbBank_user_id.ValueMember = "user_id" 'يعمل خطا حيث لا يولد كود جديد و هو تحت
       CmbBank_user_id.DataSource = dt_user_inbank
       CmbBank_user_id.DisplayMember = "user_name"
       CmbBank_user_id.SelectedIndex = -1

هنا ستحتاج التعديل هنا
كود :
       dt_bank.Rows(pos_bank).Item("bank_user_id") = Val(CmbBank_user_id.Text)

ليصبح بهذا الشكل
كود :
       Dim ii As Integer = load_id_user_bank(CmbBank_user_id.SelectedItem)
       dt_bank.Rows(pos_bank).Item("bank_user_id") = ii


ولكى يكتمل التعديل ستحتاج الى عمل التالى
افتح ملف Module2_bank

وانشاء كلاً من التالى
كود :
   Public Function load_id_user_bank(ByVal name As String)
       dt_iduser_inbank.Clear()
       da_iduser_inbank = New SqlDataAdapter("select user_id from user7 where user_name ='" & name & "'", Con)
       da_iduser_inbank.Fill(dt_iduser_inbank)
       Return dt_iduser_inbank(0)(0)
   End Function

وايضاً
كود :
   Public dt_iduser_inbank As New DataTable
   Public da_iduser_inbank As New SqlDataAdapter

الان لديك طريقتين لاتمام تسجيل رقم المستخدم
اتمنى ان تكون الامور مبسطة والشرح واضح

تحياتى لك
وتمنياتى لك التوفيق


RE: اريد حل حفظ البيانات - vb2010 - 03-11-18

شكرا 

لكن لم يحفظ بالطريقه الثانيه و يظهر exception



RE: اريد حل حفظ البيانات - asemshahen5 - 03-11-18

الرد رقم 11عدلت لك المثال و أصبح يحفظ راجع

RE: اريد حل حفظ البيانات - vb2010 - 03-11-18

شكرا [b]asemshahen5 [/b]
[b]طريقتك نجحت 100%[/b]
[b]جربت انسخ الاكواد بعد قراتها و لكن اعطى error و وضع خط ازرق تحت جمله select [/b]

[b] [/b]

RE: اريد حل حفظ البيانات - asemshahen5 - 03-11-18

عدل الكود التالي في مديول يوزر

الى

Public Sub load_user(Query As String)
dt_user.Clear()
da_user = New SqlDataAdapter(Query, Con)
da_user.Fill(dt_user)
End Sub


RE: اريد حل حفظ البيانات - vb2010 - 03-11-18

الحمد لله 
لقد نجحت عندى طلب صغير ممكن وسيله تواصل بحضرتك [b]asemshahen5 ايميل [/b]

RE: اريد حل حفظ البيانات - vb2010 - 04-11-18

عدلت فى جمله select 



فحدث exception  




RE: اريد حل حفظ البيانات - asemshahen5 - 04-11-18

التعديل الذي قمت به في Module_user

انظر الى الصور جيدا .

عدل في Module_user

RE: اريد حل حفظ البيانات - elgokr - 04-11-18

(04-11-18, 12:02 AM)vb2010 كتب : عدلت فى جمله select 



فحدث exception  




الخطاء هنا بسبب كونك تستخدم اكثر من جدول فى الاستعلام

حيث ان طريقة حفظ التعديل من خلال جملة Update تدعم جدول واحد فقط

لذلك يجب استرجاع كود الاستعلام الى جدول واحد فقط

تحياتى لك
وتمنياتى لك التوفيق