بســم الله الـرحمــن الرحيــم
عند تغيير خاصية SelectionmMde إلى MultiSimple وذلك لإمكانية إختيار أكثر من عنصر أرغب بعد اختيار العناصر يتم الإدخال في جدول تم تجربة هذا الكود ولكن لم يعطي نتيجة صحيحة
Dim jj As Integer
For jj = 0 To ListBox1.Items.Count - 1
If ListBox1.GetSelected(jj) = True Then
sql = "insert into asd (khazenannm)values('" & ListBox1.SelectedItems.Item(jj) & "')"
Open_Con()
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = sql
cmd.ExecuteNonQuery()
Close_Con()
End If
Next