+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حفظ بيانات listbox (/showthread.php?tid=9708)
حفظ بيانات listbox - fhad24 - 21-07-13
شباب السلام عليكم ورحمة الله وبركاته
اخواني واخواتي كيفكم جميعا
لو سمحتم هل من الممكن ان تعدلوا لي هذا الكود بحيث يتم حفظ بيانات listbox مع هذه العناصر
ولو فيه خطأ أرجو تنبيهي لذلك
وشكرا لكم جميعا
Try ' حفظ التكست فقط
Dim SavInto As New OleDb.OleDbCommand
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\data.mdb;user id=admin;jet oledb:database password=12345"
Dim Conn As New OleDbConnection(ConStr)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "INSERT INTO a7( a1, a2, a3, a4, a5, a6 )" & "values ('" + A2TextBox.Text + "','" + A2ComboBox.SelectedItem + "','" + ComboBox3.SelectedItem + "','" + ComboBox2.SelectedItem + "','" + A5ListBox.Items.ToString() + "','" + q4.Text + "')"
Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
Me.A7TableAdapter.Fill(Me.DataDataSet.a7)
MsgBox("تم حفظ البيانات الجديدة بنجاح", MsgBoxStyle.Information, "")
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
حفظ بيانات listbox - fhad24 - 22-07-13
هل من مجيب