21-07-13, 07:53 AM
شباب السلام عليكم ورحمة الله وبركاته
اخواني واخواتي كيفكم جميعا
لو سمحتم هل من الممكن ان تعدلوا لي هذا الكود بحيث يتم حفظ بيانات 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 مع هذه العناصر
ولو فيه خطأ أرجو تنبيهي لذلك
وشكرا لكم جميعا
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