المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
سبب الخطأ انت تطالب بقيمة حقل لم تدرجه في جملة الاستعلام انت تستعلم عن حقلين userid , Pass
والاندكس يكون في جملة الاستعلام يبدأ من صفر 0
فالرقم 2 = 3 في dt
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
04-09-15, 03:53 AM
(آخر تعديل لهذه المشاركة : 04-09-15, 04:06 AM {2} بواسطة أبو عمر.)
ثواني اشوف
If dt.Rows(0)(2) = "admin" Then
admin
اسم الحقل والا قيمة داخل حقل؟
اذا قيمة داخل حقل اخبرني عن اسم الحقل
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 10
المواضيع 3
الإنتساب : Dec 2014
السمعة :
0
الشكر: 30
تم شكره 211 مرات في 8 مشاركات
Admin
قيمة داخل العمود المسمى بـ Status
بحيث انه اذا كان Admin يفتح له الفورم ويفتح له خيار الطباعة
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
اجل بسيط عدل الشرط الى هذا
If dt.Rows(0)("status") = "admin" Then
جرب ورد لي خبر لان مشروعك ;ريستال ريبورت وانا اكره الكريستال الغبي
:-D
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 10
المواضيع 3
الإنتساب : Dec 2014
السمعة :
0
الشكر: 30
تم شكره 211 مرات في 8 مشاركات
للأسف اظغط على زر دخول ولا يتم أى إجراء مادرى وش السبب
هل فيه طريقة اخرى استخدم فيها الصلاحيات
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
لحظة
غير الشروط بهذا الكود من جملة if
If dt.Rows.Count = 0 Then
MsgBox("invalid user name or password")
End If
If dt.Rows(0)("status").ToString = "admin" Then
Form1.Show()
Form1.Tprint.Visible = True
ElseIf dt.Rows(0)("status") = "user" Then
Form1.Show()
End If
جرب الان
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 10
المواضيع 3
الإنتساب : Dec 2014
السمعة :
0
الشكر: 30
تم شكره 211 مرات في 8 مشاركات
انت اضفت فقط .Tostring
لكن للأسف مايحصل أى أجراء عند الضغط على زر دخول
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
طيب حط بعد
da.fill(dt)
هذي الرسالة
MsgBox(dt.Rows(0)("status").ToString)
وشوف
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات