تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أين الخطأ في هذا الكود ..
#1
أين الخطأ ؟؟



كود :
  Private Sub login()
       Dim objUserCls As New UserCls
       If (objUserCls.Login(TxtUserName.Text, txtPassword.Text).Tables(0).Rows.Count <= 0) Then

           isloginInfoRight = False
           MessageBox.Show("إسم الدخول أو كلمة السر غير صحيحة")
       Else
           isloginInfoRight = True
           strLoginName = TxtUserName.Text
           Close()
       End If

كود :
   Private Sub logBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles logBtn.Click
       login()


   End Sub



كود :
  Public Function Login(ByVal strUserName As String, ByVal strPassword As String) As DataSet
       Dim dataSetOutput As New DataSet
       Try
           Using conn
               'conn.Open()
               Using cmd = New SqlCommand("select * from users where username=@a and password=@b", conn)
                   cmd.CommandType = CommandType.Text
                   cmd.Parameters.AddWithValue("@a", strUserName)
                   cmd.Parameters.AddWithValue("@b", strPassword)
                   adp = New SqlDataAdapter(cmd)
                   adp.SelectCommand = cmd
                   adp.Fill(dataSetOutput)
                   conn.Close()

               End Using
           End Using
       Catch ex As Exception
           ApplicationLogCls.WriteError(ex)
       End Try
       Return dataSetOutput
   End Function

عند التنفيذ وإدخال اليوزر والباسوورد تأتي رسالة ( cannot find table(0))
الرد }}}
تم الشكر بواسطة:
#2
مارايك اخي ان تنظر لهذا المثال السريع
موديول:
كود :
Module Module1
   Public con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
End Module

كلاس:
كود :
Public Class cls_login
   Public Function isfound(ByVal un As String, ByVal ps As String) As Boolean
       Dim cm As New OleDb.OleDbCommand("", con)
       cm.CommandText = "select count(tid) from tb where un=@un and ps=@ps"
       cm.Parameters.AddWithValue("@un", un)
       cm.Parameters.AddWithValue("@ps", ps)
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       If cm.ExecuteScalar > 0 Then
           Return True
       Else
           Return False
       End If
       If con.State = ConnectionState.Open Then
           con.Close()
       End If
   End Function
End Class
فورم به مربعي نص وزر امر
كود :
Public Class Form1

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim c As New cls_login
       If c.isfound(txtusername.Text, txtpassword.Text) Then
           MsgBox("OK", MsgBoxStyle.Exclamation, "")
       Else
           MsgBox("NO", MsgBoxStyle.Critical, "")
       End If
   End Sub


End Class
الرد }}}
تم الشكر بواسطة:
#3
مرحبا أخوي وشاكر لك تجاوبك الجميل ..
انا حقيقة مستواي في البرمجة أقل من مستوى هذا الكود .. لا أجيد التعامل مع الطبقات والكلاسات والبارامترات حاليا ..
هذا برنامج جاهز مطلوب مني تعديل فيه .. المشكلة انه ما يشتغل أساسا بسبب المشكلة أعلاه ..
لو أشتغل راح أجتهد في فهمه أجزاء منه لعمل التعديل المطلوب للخروج من ورطة العمل الحالية Smile
-
سؤال ؟؟
انا كمبرمج حديث التعيين .. هل من الطبيعي أن أجيد التعامل مع مثل هذه الكود ؟؟ .. حقيقة احاول اثبت وجودي وما أحب أقول اني عاجز عن شئ .. بس والله ماني قادر افهمه بشكل سليم نهائيا .. وأخشى يكون بداية سيئة للعمل  Sad
الرد }}}
تم الشكر بواسطة:
#4
بالنسبة لي دخلت البرمجة من باب الانترنت ودرستها بطريقة ليست منهجية ومع ذلك اجد نفسي مبرمج ولو من المستوى الاول.
البرمجة تحتاج وقت وتجارب ومساعدة الاخرين فلقد وجدت اكواد رائعة من مخيلتي  اثناء مساعدة الغير.

طيب اخي الكريم فين المثال اللي اخذت منه الدالة ؟
لاني استبعد انه بهذا الشكل.
يوجد خطا (ان لم اكن مخطيء)
الرد }}}
تم الشكر بواسطة:
#5
مرحبا أخوي ..
حسب فهمي .. إن الخطأ من الكونيكشن مع الداتا بيز ..
sql sever مرفقة مع البرنامج ..
هل يتم الإصلاح عبر ملف app ??
الرد }}}
تم الشكر بواسطة:
#6
اخي الكريم عدلت على الكود الخاص بك وعمل بشكل جيد لكن لا تنسى تعديل اسم الكلاس
هذه الدالة التي بالكلاس
كود :
Public Function Login(ByVal strUserName As String, ByVal strPassword As String) As DataSet
        Dim cmd As New OleDb.OleDbCommand("select * from tb where un=@a and ps=@b", con)
        cmd.Parameters.AddWithValue("@a", strUserName)
        cmd.Parameters.AddWithValue("@b", strPassword)
        Dim dt As New DataSet
        Dim da As New OleDb.OleDbDataAdapter
        da.SelectCommand = cmd
        da.Fill(dt)
        Return dt
    End Function

وهذا كود التحقق
كود :
If txtusername.Text.Trim = "" Or txtpassword.Text.Trim = "" Then Exit Sub
        Dim c As New cls_login
        If c.Login(txtusername.Text, txtpassword.Text).Tables(0).Rows.Count > 0 Then
            MsgBox("OK")
        Else
            MsgBox("Not", MsgBoxStyle.Critical)
        End If

محدث
الرد }}}
تم الشكر بواسطة:
#7
آسف على تعبك معي يا أخوي ..
جربت ونفس المشكلة .. والملاحظ انه البرنامج يشتغل في الأجهزة الأخرى بشكل جيد .. وفي جهازي تظهر المشكلة ..
المشكلة من الكونيكشن ..
رجاء إنت أو واحد من الإخوان يضع إيميله ارسله البرنامج يشغله ولو ما أشتغل يعرف لي فين الخطأ ..
حقيقة محتاج مساعدة ..
الرد }}}
تم الشكر بواسطة:
#8
لا تستعجل اخي الكريم
هل انت تنسخ الكود وتلصقه في مشروعك؟؟
انا وجدت ان الكود الخاص بك يتعامل مع sql server وانا عدلت عليه ليتعامل مع اكسس لان الاهم هي الفكرة والتجارب باكسس اسرع.
الرد }}}
تم الشكر بواسطة:
#9
يا الغالي انا مبرمج متوسط المستوى .. والبرنامج مكتوب بلغة حقيقة ما فهمت معظمه ..
مطلوب مني بسرعة عمل تعديلات في البرنامج وأضافة فقرات .. راح أجتهد اضيفها بالطريقة اللي اعرفها بدون زحمة الكلاسات اللي ما أجيدها ..
بس أبغى اشغله بأي شكل كان .. يعني الرسالة ما تجي بس ..
انا غرضي حاليا انجاز مهمتي في الزمن المطلوب اللي هو يومين لأني حاليا لو ما اكملته راح افقد الفرصة .. اكمله الحين بعدها ممكن اجلس واحاول افهمه عن طريق الدروس .. 
الرد }}}
تم الشكر بواسطة:
#10
اخي الكريم الكود اللي انت كتبت يستخدم كلاس وكما هو واضح بالسطر التالي:
كود :
Dim objUserCls As New UserCls
ماهو الـ UserCls اكيد انه كلاس
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  شرح عن الخطأ attempted to read or write Adel27213 3 384 05-01-24, 01:01 AM
آخر رد: HALIM ELEULMA
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [VB.NET] أين الخطأ فى تشغيل هذا التطبيق AhmedEissa 0 239 27-10-23, 04:05 PM
آخر رد: AhmedEissa
  [كود] ما الخطأ فى الـ Functions المستخدم فى vb.net 2010 AhmedEissa 9 501 21-10-23, 11:44 PM
آخر رد: Ahmed5
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم