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

نسخة كاملة : Ado : مساعدة في كود دخول المستخدمين للبرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم


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

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

* اسم الجدول users
* عمود الاسم username
* عمود الباسوورد password


وشكرا لكل من يساعدني
PHP كود :
If Text1 "" Or Text2 "" Then
MsgBox 
" Sorry,You Must Type The Username And Password "vbCritical vbMsgBoxRight" ErrorLogin "
Exit Sub
End 
If
SQLs "SELECT * FROM Users WHERE UserName ='" Text1.Text "'  and  Password='" Text2.Text "'"
If RS.State adStateOpen Then RS.Close
RS
.Open SQLsDBadOpenKeysetadLockPessimistic

If RS.EOF Then
MsgBox 
" Sorry, The Username And Password Is Wrong ! "vbCritical vbMsgBoxRight" Error Login "
Else ' Save This Inforamtion
UserNames = Text1
UserPassword = Text2
Set RS = Nothing
Set DB = Nothing
MDIForm1.Show
Unload Me
End If 

ان شاء الله هذا الكود يساعدك
احذف كلمة Save This Inforamtion
وخلى كلمة Else
بالتوفيق
انا عملت لك مثال على السريع
المثال واضح
تحياتى لك
انا بدي استعمل الكود دة في برنامج اخر


http://www13.0zz0.com/2012/11/28/19/560717946.jpg
تأكد من انك معرف SQLs فى قسم التصريحات General
PHP كود :
Dim SQLs As String 

نفس الخطأ
اخي
حاول تتاكد من اسماء الحقول وإسم الجدول والتكست او إرفق المشروع لو امكن, لانى لا اعرف السبب احتمال فى قاعدة البيانات او التسمية
الكود تمام 100%
الصفحات : 1 2