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

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

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

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

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


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



وشكرا

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

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

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

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

ثواني اشوف

---

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

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

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

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

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

لحظة

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

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

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

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

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