[aftfm]

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

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

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

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

 

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

[aftfm]

تم عمل For

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

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

[محمود صالح]

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

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