منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

عند الاسطر التالي من الكو لاضافة بنك

كود :

       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

الان لديك طريقتين لاتمام تسجيل رقم المستخدم

اتمنى ان تكون الامور مبسطة والشرح واضح

تحياتى لك

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

شكرا

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

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

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

[b]

[/b]

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

الى

Public Sub load_user(Query As String)

dt_user.Clear()

da_user = New SqlDataAdapter(Query, Con)

da_user.Fill(dt_user)

End Sub

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

عدلت فى جمله select

فحدث exception

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

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

عدل في Module_user

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

فحدث exception

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

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

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

تحياتى لك

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

asemshahen5

elgokr

vb2010

asemshahen5

vb2010

asemshahen5

vb2010

vb2010

asemshahen5

elgokr