الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن مساعد اخواني في مشروع تخرجي

بدأه السيد الهاشمي في 25 أبريل 2011 · 6 رد · 642 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني اعضاء ومشرفين المنتدى .. ياليت تساعدوني في مشروع تخرجي والله يجزيك الف خير .. عندي كود ياليت تصححو لي الكورد

==============

sql = "select * from users where name='" & txtUsr.Text & "' and pass='" & txtPass.Text & "'"

con.Open()

cmd = New SqlCommand(sql, con)

'read = cmd.ExecuteNonQuery

'If read.Read = True Then

con.Close()

da = New SqlDataAdapter(sql, con)

da.Fill(ds)

Session("type") = ds.Tables(0).Rows(0)(3)

If Session("type") = 1 Then

Response.Redirect("meneger.aspx")

ElseIf Session("type") = 2 Then

Response.Redirect("default.aspx")

Else

Response.Redirect("view.aspx")

End If

'else

'MsgBox("تاكد من اسم المستخدم وكلمة المرور")

'end if

=======

المشكلة في الكود اني لما اسجل دخول باسم صحيح يدخل .. بس لما اعمل اسم غير صحيح وغير مسجل في قاعدت البيانات ... يطلع لي خطاء ... ماقدرت اخلية يطلع لي رسالة

يقول ان اسم المستخدم غير موجود او غير صحيح .. ياليت الي عنده خبرة يساعدني فيه ... ولكم مني جزيل الشكراً والتقدير

#2

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

اخي جرب الكود ده


sql = "select * from users where name='" & txtUsr.Text & "' and pass='" & txtPass.Text & "'"
da = New SqlDataAdapter(sql, con)
da.Fill(ds)
If ds.Tables(0).Rows.Count=1 Then
Session("type") = ds.Tables(0).Rows(0)(3)
If Session("type") = 1 Then
Response.Redirect("meneger.aspx")
ElseIf Session("type") = 2 Then
Response.Redirect("default.aspx")
Else
Response.Redirect("view.aspx")
End If
Else
lblError.Text="تاكد من اسم المستخدم وكلمة المرور"
End if

      
      
1

      
.:: Wish to become better and better ::.

    

  

    
    

      
#3
        
        

      
سلام عليكم ............. مشكور اخوي الكريم والله ما قصرت إن شاء الله في ميزان حسناتك  :) 

      
      

      
    

  

    
    

      
#4
        
        

      
السلام عليكم ورحمه الله وبركاته
لا شكرا على واجب ...

      
      

      
.:: Wish to become better and better ::.

    

  

    
    

      
#5
        
        

      
مداخلة صغيرة ........... للمعلومة أن الخطأ هو في السطر التالي :
read = cmd.ExecuteNonQuery
أنت تريد أن تقرأ بيانات وتستعين  cmd.ExecuteNonQuery حيث أن مخصصة لتنفيذ استعلامات لا تعيد أي قيمة عليك استخدام ExecuteReader كما في الطريقة التي نوهت إلها واستخدم reader.read() لتحديد البيانات التي ترغب بها .........
ولا حاجة وقتها لاستخدام الداتا سيت للحصول على البيانات واسنادها للسيشن

      
      
1

      
قل لمن يحمل هما ****** إن همــــا لا يدوم
 :rolleyes: :rolleyes: :clapping:  :rolleyes: :rolleyes: 

مثلا تفنى المسـرة ***** هكذا تفنى الهموم

    

  

    
    

      
#6
        
        

      
VB Helper كتب:
السلام عليكم ورحمه الله وبركاته
اخي جرب الكود ده

sql = "select * from users where name='" & txtUsr.Text & "' and pass='" & txtPass.Text & "'"
da = New SqlDataAdapter(sql, con)
da.Fill(ds)
If ds.Tables(0).Rows.Count=1 Then
 Session("type") = ds.Tables(0).Rows(0)(3)
 If Session("type") = 1 Then
  Response.Redirect("meneger.aspx")
 ElseIf Session("type") = 2 Then
  Response.Redirect("default.aspx")
 Else
 Response.Redirect("view.aspx")
 End If
Else
 lblError.Text="تاكد من اسم المستخدم وكلمة المرور"
End if
=================================
 اخي العزيز .انا جربت الكود بس نفس الشي يطلع عندي مشكلة ..  لو المستخدم دخل بدون بدون تسجيل اسم او كلمة مرور يطلع لي خطاء .. او الحقول فاضية ...  بس انا كمان اريد ان يقوم بقراءة . هل المستخدم  موجود في قاعدت البيانات او لا . اذا كان موش موجود . يطلع لي رسالة يقولة عزيز المستخدم انت ليس مسجل في  الموقع ... واذا كان موجود ينقلة للصفحة المخصصة له ...

      
      

      
    

  

    
    

      
#7
        
        

      
السلام عليكم ورحمه الله وبركاته
اخي يمكنك تعديل الكود السابق الى

If txtUsr.Text.Length<>0 AndAlso txtPass.Text.Length<>0 Then
sql = "select * from users where name='" & txtUsr.Text & "' and pass='" & txtPass.Text & "'"
da = New SqlDataAdapter(sql, con)
da.Fill(ds)
If ds.Tables(0).Rows.Count=1 Then
 Session("type") = ds.Tables(0).Rows(0)(3)
 If Session("type") = 1 Then
  Response.Redirect("meneger.aspx")
 ElseIf Session("type") = 2 Then
  Response.Redirect("default.aspx")
 Else
 Response.Redirect("view.aspx")
 End If
Else
 lblError.Text="عزيزي المستخدم انت غير مسجل"
End if
Else
lblError.Text="فضلا ادخل اسم المستخدم وكلمة المرور"
End If
 

      
      

      
.:: Wish to become better and better ::.

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…