[F.H.M]

الأخوة الأعزاء

السلام عليكم ورحمة الله وبركاته ،،،

عملت برنامج للموظفين وكل الأزرار تعمل ماعدا زر التعديل ولا أعلم ماهي المشكلة صار لي يومين أبحث ولم أجد حل للمشكلة

الصور التالية تشرح المشكلة

هذا هو كود التعديل

كود :

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 = 1 Then con.Close()
   con.Open()
   Cmd.ExecuteNonQuery()
   con.Close()
   MsgBox("تم تعديل السجل بنجاح", MsgBoxStyle.Information, "تعديل")
   Cmd = Nothing
End Sub

[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 


[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 


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

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته
هذه الرسالة بيعطيك ياها النظام لما تفكر تخزن برميل في جالون.
في عنوان الاجراء عندك عم تستخدم حقول من نوع (long) لحتى تخزنها في حقل من نوع (Int)
هل هذا منطقي في تحويل البيانات وتغليفها ؟؟

صحح هذا الخطأ أولاً ثم أنظر، إن لم تجد الاستجابة، أبحث عن مكان استخدام هذا الاجراء فربما يوجد خطأ مشابه..

[F.H.M]

(12-09-24, 03:11 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
هذه الرسالة بيعطيك ياها النظام لما تفكر تخزن برميل في جالون.
في عنوان الاجراء عندك عم تستخدم حقول من نوع (long)  لحتى تخزنها في حقل من نوع (Int)
هل هذا منطقي في تحويل البيانات وتغليفها ؟؟

صحح هذا الخطأ أولاً ثم أنظر، إن لم تجد الاستجابة، أبحث عن مكان استخدام هذا الاجراء فربما يوجد خطأ مشابه..

الله يعطيك العافية أخ طه تم حل المشكلة بفضل من الله ثم بفضلك

[F.H.M]

(12-09-24, 03:33 PM)F.H.M كتب :

(12-09-24, 03:11 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
هذه الرسالة بيعطيك ياها النظام لما تفكر تخزن برميل في جالون.
في عنوان الاجراء عندك عم تستخدم حقول من نوع (long)  لحتى تخزنها في حقل من نوع (Int)
هل هذا منطقي في تحويل البيانات وتغليفها ؟؟

صحح هذا الخطأ أولاً ثم أنظر، إن لم تجد الاستجابة، أبحث عن مكان استخدام هذا الاجراء فربما يوجد خطأ مشابه..

الله يعطيك العافية أخ طه تم حل المشكلة بفضل من الله ثم بفضلك

الآن خطأ آخر في تعديل بيانات المستخدمين

---

(12-09-24, 05:31 PM)F.H.M كتب :

(12-09-24, 03:33 PM)F.H.M كتب :

(12-09-24, 03:11 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
هذه الرسالة بيعطيك ياها النظام لما تفكر تخزن برميل في جالون.
في عنوان الاجراء عندك عم تستخدم حقول من نوع (long)  لحتى تخزنها في حقل من نوع (Int)
هل هذا منطقي في تحويل البيانات وتغليفها ؟؟

صحح هذا الخطأ أولاً ثم أنظر، إن لم تجد الاستجابة، أبحث عن مكان استخدام هذا الاجراء فربما يوجد خطأ مشابه..

الله يعطيك العافية أخ طه تم حل المشكلة بفضل من الله ثم بفضلك

الآن خطأ آخر في تعديل بيانات المستخدمين

تم بحمد الله حل المشكلة عن طريق تعديل هذا الكود ليكون بهذه الطريقة

كود :

"Update [UserPass] Set [UserName] = @UserName,[Password] = @Password,[Slahiyat] = @Slahiyat Where [User_Id] = @User_Id"