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

PHP كود :

Dim cm As New OleDbCommand("", Con)
        cm.CommandText = "insert into buy2  (buyID, date, cusid, cus, address, phone, driv, assis, carid, carnam, carqan, carnum, invtol, mdfo, baky) VALUES (@buyid,@date,@cusid,@cus,@address,@phone,@driv,@assis,@carid,@carnam,@carqan,@carnum,@invtol,@mdfo,@baky)"
        cm.Parameters.AddWithValue("@buyid", TextBox1.Text)
        cm.Parameters.AddWithValue("@date", DateTimePicker1.Text)
        cm.Parameters.AddWithValue("@cusid", ComboBox1.Text)
        cm.Parameters.AddWithValue("@cus", txtNam.Text)
        cm.Parameters.AddWithValue("@address", txtAddr.Text)
        cm.Parameters.AddWithValue("@phone", txtPhon.Text)
        cm.Parameters.AddWithValue("@driv", ComboBox5.Text)
        cm.Parameters.AddWithValue("@assis", ComboBox6.Text)
        cm.Parameters.AddWithValue("@carid", ComboBox3.Text)
        cm.Parameters.AddWithValue("@carnam", txtCnam.Text)
        cm.Parameters.AddWithValue("@carqan", txtCq.Text)
        cm.Parameters.AddWithValue("@carnum", txtCnum.Text)
        cm.Parameters.AddWithValue("@invtol", txtbilltotal.Text)
        cm.Parameters.AddWithValue("@mdfo", txtBlance.Text)
        cm.Parameters.AddWithValue("@baky", txttotalBill.Text)

        oncon()
        Try
            cm.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")
        End Try 

PHP كود :

 For r = 0 To DataGridView1.Rows.Count - 2
            cm.Parameters.Clear()
            cm.CommandText = "insert into buy2  (invono, date, invsuc, invsun, invqu, invprc, invsal) VALUES (@in,@date,@itemid,@itemN,@q,@pric,@tot)"

            cm.Parameters.AddWithValue("@in", DataGridView1.Rows(r).Cells(0).Value)
            cm.Parameters.AddWithValue("@date", DataGridView1.Rows(r).Cells(1).Value)
            cm.Parameters.AddWithValue("@itemid", DataGridView1.Rows(r).Cells(2).Value)
            cm.Parameters.AddWithValue("@itemN", DataGridView1.Rows(r).Cells(3).Value)
            cm.Parameters.AddWithValue("@q", DataGridView1.Rows(r).Cells(4).Value)
            cm.Parameters.AddWithValue("@pric", DataGridView1.Rows(r).Cells(5).Value)
            cm.Parameters.AddWithValue("@tot", DataGridView1.Rows(r).Cells(6).Value)


            oncon()
            Try
                cm.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(Err.Description, MsgBoxStyle.Critical, "")
            End Try

        Next 