إخواني الأعزاء تحية طيبة
عملت برنامج صغير و هو متكامل و يعمل بصورة جيدة سوى فورم الدخول بحيث أريد أن أخذ البيانات من قاعدة البيانات يعني المثال كما في الحدث الخاص بالدخول كالتالي :
On Error GoTo err
con.Open "carInfo"
rs.Open "select * from users where username like '" & username.Text & "' and password like '" & pass.Text & "'", con, adOpenDynamic, adLockReadOnly
con.Close
form2.Show
err:
msgbox"user Doesn't Exist"
loginForm.Show
بس على ما أعتقد وضعية مكان الـ Error Handler غير صحيحة لأنو بيتم الدخول
أرجو المساعدة مع جزيل الشكر مقدماً
حليت المسألة بصورة متخلفة يعني يكون في إسم مستخدم واحد فقط مع كلمة مرور لكن عاوز الدخو يكون عن طريق قاعدة البيانات
عشان نتيح للمسخدم يغير في كلمة المرور و تكون مرنة
الطرقة المتخلفة التي لا ترضيني و غستخدمتها هي :
If KeyAscii = 13 Then
If username.Text = "username" And pass.Text = "Pass" Then
multi.Show
Else
msgbo"user is not Correct "
username.SetFocus
End If
End If