[مساعدة]

السلام عليكم

لماذا لا تريد أن تذكر رسالة الخطأ

كود :

Imports System.Data.OleDb

Public Class Form1

   Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='|DataDirectory|\Assembly members.accdb';")

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       Dim sqlStr As String = "INSERT INTO [N_Data] (Name,Civil,Mobile,Living,Address,Trak,Membership,sdad) VALUES (@Name,@Civil,@Mobile,@Living,@Address,@Trak,@Membership,@sdad)"

       Dim cmdinsert As New OleDbCommand(sqlStr, conn)

       cmdinsert.Parameters.AddWithValue("@Name", TextBox1.Text.Trim)
       cmdinsert.Parameters.AddWithValue("@Civil", m.Text.Trim)
       cmdinsert.Parameters.AddWithValue("@Mobile", o.Text.Trim)
       cmdinsert.Parameters.AddWithValue("@Living", d.Text.Trim)
       cmdinsert.Parameters.AddWithValue("@Address", Box.Text.Trim)
       cmdinsert.Parameters.AddWithValue("@Trak", DateTimePicker1.Value.ToString("yyyy-MM-dd"))
       cmdinsert.Parameters.AddWithValue("@Membership", TextBox6.Text.Trim)
       cmdinsert.Parameters.AddWithValue("@sdad", CheckBox1.Checked)

       conn.Open()
       cmdinsert.ExecuteNonQuery()
       conn.Close()

       MsgBox("تمت الاضافة بنجاح")

   End Sub
End Class

---

الأفضل أن تجعل اسم قاعدة البيانات بدون مسافة مثل AssemblyMembers.accdb