منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اخوتي الاعضاء  
قمت بتصميم منظومة لمحل تجاري والمنظومة تعمل بشكل ممتاز جدا منذو سنوات 
بالامس تظهر رسالة خطا عن الدخول للمنظومة ولا يوجد في كود الدخول للمنظومة اي خطا 
الصورة مرفقة 

ارجو المساعدة جزاكم الله كل خير

وعليكم السلام ورحمة الله وبركاته
الخطأ موضح في الصورة
وهو محاولة أدخال قيمة نصية في حقل رقمي
راجع الكود مرة أخرى
وتأكد من أدخال القيم بصيغة صحيحة

شكرا اخي على ردك ومشاركتك 

اسم المستخدم اختيار من الــــ ComboBox1  
كلمة المرور   ata Type   nvarchar(50)

بيانات المدخلة كلها محدودة اختيار اسم المستخدم من ComboBox1  
وداخل كلمة المرور  من شاشة المنظومة او لوحة المفاتيح

عند ادخال كلمة مرور خطا تظهر رسالة خطا في بيانات المستخدم

وعند اختار نسخة احتياطية من قاعدة البيانات قديمة تعمل بشكل جيد ولا تظهر رسالة الخطا

فعلا المشكلة واضحة في رسالة لخطأ التي أرسلها النظام كما قال لك الأخ princelovelorn
وهي محاولة إدخال نص في حقل رقمي !
ويمكنك أن ترفق فقط برمجة هذا الفورم ليساعدك الشباب في حل المشكلة .

هذا الكود الدخول المستخدم


   Private Sub But_login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_login.Click
        Dim rdr As SqlDataReader
        If SQLCON.State = 1 Then SQLCON.Close()
        SQLCON.Open()

        Dim cmd As New SqlCommand("select * from T_users where NAME_USER=@NAME_USER and PASSWORD=@PASSWORD ", SQLCON)
        cmd.Parameters.AddWithValue("@NAME_USER", ComboBox1.Text)
        cmd.Parameters.AddWithValue("@PASSWORD", TXT_PASSOWRD.Text)
        rdr = cmd.ExecuteReader
        rdr.Read()
        If rdr.HasRows Then
            Str_UserName_ID = rdr("ID").ToString
            Str_UserName = rdr("NAME_USER").ToString

            With Frm_Home
                .BUTT_MORD.Enabled = rdr("suplliers").ToString
                .BUTT_COUSTMERS.Enabled = rdr("COSTMERS").ToString
                .BUT_ITEMS_.Enabled = rdr("ITEMS").ToString
                .BUTT_SALSEESS.Enabled = rdr("sales_bill").ToString
                .BUTT_RE_SALESS.Enabled = rdr("sales_bill").ToString
                .BUT_ESALAATT.Enabled = rdr("esailt").ToString
                .BUTT_REPORSSS.Enabled = rdr("reports").ToString
                .BUTT_ALMOLHAGATT.Enabled = rdr("molhgat").ToString
                .BUTT_SEETING.Enabled = rdr("seeting").ToString
                .butt_usres.Enabled = rdr("USERS").ToString
                .ShowDialog()
                Me.Hide()
            End With
        Else

            MessageBox.Show("كلمة المرور غير صحيحة ،،، يرجى إعــــادة المحاولـــة", "خطأ في الدخول", MessageBoxButtons.OK, MessageBoxIcon.Error)

            TXT_PASSOWRD.Text = ""
            TXT_PASSOWRD.Select()
        End If

        rdr.Close()
        SQLCON.Close()

    End Sub

تم كتابة حرف الذال "ذ" في حقل رقمي كما هو موضح في الصورة المرفقة