[ابو ليلى]

السلام عليكم
اخي استخدم المعامل ؟ بدل المعامل @  عندما تتعامل مع اكسس

PHP كود :

   Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click

        Dim SQL As String = " Update tbl1 SET  b = ?, B3= ?, B4 = ?, B5 = ?, B6 = ?, B7 = ?, B8 = ?, B10 = ?, B11 = ?, B12 = ? WHERE ID =? "
        Dim CMD As New OleDb.OleDbCommand(SQL, con)
        With CMD
            .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex.Text.Trim
            .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex5.Text.Trim
            .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex6.Text.Trim
            .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex7.Text.Trim
            .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex8.Text.Trim
            .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex9.Text.Trim
            .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex10.Text.Trim
            .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex12.Text.Trim
            .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex20.Text.Trim
            .Parameters.Add("?", OleDbType.LongVarChar).Value = Me.tex11.Text.Trim
            .Parameters.Add("?", OleDbType.VarChar).Value = Me.tex5.Text.Trim
            .Parameters.Add("?", OleDbType.Integer).Value = CInt(Me.IDLb.Text.Trim)

        End With
        Try
            If con.State = ConnectionState.Open Then con.Close()
            con.Open()
            Dim i As Integer = CMD.ExecuteNonQuery()
            MsgBox(i & " / " & "تم تعديل السجل بنجاح", , "حفظ التعديل")

        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            CMD.Dispose()
            con.Close()

        End Try
    End Sub