[F.H.M]

(12-09-24, 01:59 PM)Kamil كتب : وعليكم السلام و رحمة الله و بركاته 

التعديلات:
إزالة الفاصلة الزائدة بعد Car_Molahthat في جملة SQL.
تعديل التحقق من حالة الاتصال للتأكد من أن الحالة هي ConnectionState.Open بدلاً من التحقق بالقيمة العددية 1.

PHP كود :

Public Sub Update_Car_info(ByVal Car_Number As Long, ByVal Car_Module As Long, ByVal Car_Tybe As String, ByVal Car_Qesem As String, ByVal Car_Molahthat As String, ByVal Car_IDW As Long)
    Dim Cmd As New OleDbCommand
    With Cmd
        .Connection = con
        .CommandType = CommandType.Text
        .CommandText = "Update Car_info Set Car_Number = @Car_Number, Car_Module = @Car_Module, Car_Tybe = @Car_Tybe, Car_Qesem = @Car_Qesem, Car_Molahthat = @Car_Molahthat Where Car_ID = @Car_ID"
        .Parameters.Clear()
        .Parameters.AddWithValue("@Car_Number", OleDbType.Integer).Value = Car_Number
        .Parameters.AddWithValue("@Car_Module", OleDbType.Integer).Value = Car_Module
        .Parameters.AddWithValue("@Car_Tybe", OleDbType.VarWChar).Value = Car_Tybe
        .Parameters.AddWithValue("@Car_Qesem", OleDbType.VarWChar).Value = Car_Qesem
        .Parameters.AddWithValue("@Car_Molahthat", OleDbType.VarWChar).Value = Car_Molahthat
        .Parameters.AddWithValue("@Car_ID", OleDbType.Integer).Value = Car_IDW
    End With
    If con.State = ConnectionState.Open Then con.Close()
    con.Open()
    Cmd.ExecuteNonQuery()
    con.Close()
    MsgBox("تم تعديل السجل بنجاح", MsgBoxStyle.Information, "تعديل")
    Cmd = Nothing
End Sub 


أشكرك أخ كامل على الرد والمساعدة عملت ماطلبت ولكن مازالت المشكلة موجودة