[kalotibi]

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

انا لدى قاعدة بيانات SQL  فيها جدولين جدول للمستخدين مع الصلاحيات وجدول اخر فيه حفظ البيانات

اريد عند الدخول ك صفة مستخدم له صلاحيات اعلى تفتح له خانة الطباعة  الصور تتحدث اتمني من لدية خبرة ان يفيدني

جدول اليوزرات


كود الذي يظهر به خطأ مالسبب فيه



وشكرا

[أبو عمر]

سبب الخطأ انت تطالب بقيمة حقل لم تدرجه في جملة الاستعلام انت تستعلم عن حقلين userid , Pass
والاندكس يكون في جملة الاستعلام يبدأ من صفر 0

فالرقم 2 = 3 في dt

[kalotibi]

مانفع غيرت الكود ارفقت لك الملف

https://drive.google.com/file/d/0BwpJvru...sp=sharing

[أبو عمر]

ثواني اشوف

---

If dt.Rows(0)(2) = "admin" Then
admin
اسم الحقل والا قيمة داخل حقل؟
اذا قيمة داخل حقل اخبرني عن اسم الحقل

[kalotibi]

Admin
قيمة داخل العمود المسمى بـ Status

بحيث انه اذا كان Admin يفتح له الفورم ويفتح له خيار الطباعة

[أبو عمر]

اجل بسيط عدل الشرط الى هذا
If dt.Rows(0)("status") = "admin" Then
جرب ورد لي خبر لان مشروعك ;ريستال ريبورت وانا اكره الكريستال الغبي
:-D

[kalotibi]

للأسف اظغط على زر دخول ولا يتم أى إجراء مادرى وش السبب
هل فيه طريقة اخرى استخدم فيها الصلاحيات

[أبو عمر]

لحظة

غير الشروط بهذا الكود من جملة 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
جرب الان

[kalotibi]

انت اضفت فقط .Tostring

لكن للأسف مايحصل أى أجراء عند الضغط على زر دخول

[أبو عمر]

طيب حط بعد
da.fill(dt)
هذي الرسالة

MsgBox(dt.Rows(0)("status").ToString)
وشوف