شباب كيفية حفظ بيانات الداتا جريد بطريقة Parameters

كود :

Private Sub SaveBuy1(ByVal id As String, ByVal sdate As String, ByVal cuid As String, ByVal name As String, ByVal address As String, ByVal phone As String, ByVal driv As String, ByVal assi As String, ByVal caid As String, ByVal cna As String, ByVal cq As String, ByVal cnu As String, ByVal tot As String, ByVal md As String, ByVal pa As String)

        Con.Open()

        Using olecmd As New OleDbCommand("INSERT INTO buy1 ([date],cusid, cus, address, phone,driv, assis, carid, carnam,carqan, carnum, invtol, mdfo, baky) VALUES (@sdate,@cuid, @name,@address,@phone,@driv,@assi,@caid,@cna,@cq,@cnu,@tot,@md,@pa)", Con)

            olecmd.Parameters.Clear()

            ' olecmd.Parameters.AddWithValue("@id", id)

            olecmd.Parameters.AddWithValue("@sdate", sdate)

            olecmd.Parameters.AddWithValue("@cuid", cuid)

            olecmd.Parameters.AddWithValue("@name", name)

            olecmd.Parameters.AddWithValue("@address", address)

            olecmd.Parameters.AddWithValue("@phone", phone)

            olecmd.Parameters.AddWithValue("@driv", driv)

            olecmd.Parameters.AddWithValue("@assi", assi)

            olecmd.Parameters.AddWithValue("@caid", caid)

            olecmd.Parameters.AddWithValue("@cna", cna)

            olecmd.Parameters.AddWithValue("@cq", cq)

            olecmd.Parameters.AddWithValue("@cnu", cnu)

            olecmd.Parameters.AddWithValue("@tot", tot)

            olecmd.Parameters.AddWithValue("@md", md)

            olecmd.Parameters.AddWithValue("@pa", pa)

            olecmd.ExecuteNonQuery()

        End Using

    End Sub

كود :

Private Sub SaveBuu2(ByVal id1 As String, ByVal date1 As Date, ByVal itemid As String, ByVal name As String, ByVal q As String, ByVal price As String, ByVal total As String)

        Dim sql As String = "INSERT INTO buy2  (invono, date, invsuc, invsun, invqu, invprc, invsal) VALUES (@date,@itmid,@name,@q,@price,@total)"

        Using olecmd As New OleDbCommand(sql, Con)

            olecmd.Parameters.Clear()

            ' olecmd.Parameters.AddWithValue("@id", id1)

            olecmd.Parameters.AddWithValue("@date", date1)

            olecmd.Parameters.AddWithValue("@itmid", itemid)

            olecmd.Parameters.AddWithValue("@name", name)

            olecmd.Parameters.AddWithValue("@q", q)

            olecmd.Parameters.AddWithValue("@price", price)

            olecmd.Parameters.AddWithValue("@total", total)

            If Con.State = ConnectionState.Closed Then

                Con.Open()

            End If

            olecmd.ExecuteNonQuery()

            Con.Close()

        End Using

    End Sub