[momiana1]

أخي hminfo
أشكرك على المساعدة ، بالفعل لقد قمت بإستعمال البارامترات وتمت العملية بنجاح
وأشكر أيضًا أخي الوليد الذي نصحنى وأرشدني على كيفية إستعمالها

وهذا الكود الإضافة بعد إستعمال البارامترات

PHP كود :

Try
            Dim Savecommand As New OleDb.OleDbCommand
            Dim connectionstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source =" & Application.StartupPath & "\db8.accdb;user id=admin;jet oledb:database password=momiana"

            Using newconnection As New OleDbConnection(connectionstring)

                Dim sql As String = _
                    " INSERT INTO [mate] " & _
                    " (  ID,  PID,  po2,  it2,  qu2, un2, pr2, mda2, note2 ) " & _
                    " VALUES " & _
                    " (  ID,  PID,  po2,  it2,  qu2, un2, pr2, mda2, note2 ) "

                Using cmd As New OleDb.OleDbCommand(sql, newconnection)

                    cmd.Parameters.AddWithValue("@ID", TextBox2.Text)
                    cmd.Parameters.AddWithValue("@PID", TextBox4.Text)
                    cmd.Parameters.AddWithValue("@po2", CheckBox1.Checked)

                    If CheckBox1.Checked = True Then
                        cmd.Parameters.AddWithValue("@it2", ComboBox2.Text)
                    ElseIf CheckBox1.Checked = False Then
                        cmd.Parameters.AddWithValue("@it2", ComboBox3.Text)
                    End If

                    cmd.Parameters.AddWithValue("@qu2", TextBox1.Text)
                    cmd.Parameters.AddWithValue("@un2", ComboBox1.Text)
                    cmd.Parameters.AddWithValue("@pr2", TextBox3.Text)
                    cmd.Parameters.AddWithValue("@mda2", DateTimePicker1.Value.Date)
                    cmd.Parameters.AddWithValue("@note2", TextBox5.Text)

                    newconnection.Open()
                    Dim result As Integer = cmd.ExecuteNonQuery()
                    newconnection.Close()

                    If result > 0 Then
                        MessageBox.Show("تمت عملية الإضافة والحفظ في قاعدة البيانات بنجاح", "حفظ الإضافة", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Else
                        MessageBox.Show("لم تتم عملية الإضافة، تأكد من المدخلات", "حفظ الإضافة", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                    End If

                End Using
            End Using

        Catch ex As Exception
            MsgBox(ex.Message, 16, "خطأ")
        End Try