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

السلام عليكم ورحمة الله وبكراته

لدي كود واريد حفظ بيانات اللست بوكس

البيانات الشركة + الاسم + الرقم

الاسم عبارة عن مجموعة اسماء في اللست بوكس

PHP كود :

 Dim cmd As New OleDbCommand("insert into tblUniversity(TheDignitaries,Name,IDNum)values(?,?,?)", Con)

        Call cmd.Parameters.AddWithValue("@TheDignitaries", Trim(cmbDigType.Text))
        Call cmd.Parameters.AddWithValue("@Name", Trim(txtUName.Text))
        Call cmd.Parameters.AddWithValue("@IDNum", Trim(txtIDNum.Text))
       
        Con.Open()
        cmd.ExecuteNonQuery()
        Con.Close()
        MsgBox("تم الحفظ بنجاح", MsgBoxStyle.Information, "حفظ")
        Clear() 

هذا الكود الذي استخدمه في الحفظ قبل اضافة ا للست بوكس للمشروع
اريد استبدال (txtUName) واضع اداة اللست بوكس واضيف عليها الاسماء اي كان عدد الاسماء

المهم الشركة + بيانات اللست بوكس + الرقم

مع العلم ان الرقم ثابت لا يتكرر مثل الاسماء

حط جملة الحفظ في

PHP كود :

For I As Integer = 0 To ListBox1.Items.Count - 1

            Next 

وغير txtUName بـــــ ListBox1.Text

تم عمل For

ولكن بعد التنفيذ حفظ كل بيانات الليست بوكس في سجد جديد

بمعنى لو لدي 4 اسماء في الليست بوكس
تم حفظها بعدد 4 سجلات في قاعدة البيانات

لو عاوزه بدون تكرار
نفذ من غير for
مع تغير وغير txtUName بـــــ ListBox1.Text

يارب اكون فهمتك

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

aftfm

محمود صالح

aftfm

محمود صالح