المشاركات : 355
المواضيع 66
الإنتساب : May 2016
السمعة :
6
الشكر: 773
تم شكره 385 مرات في 204 مشاركات
Private Sub Command1_Click
()
On Error Resume Next: Err.Clear
Adodc1.RecordSource = "select * from logtable where names='" & Text1.Text & "' and pass='" & Text2.Text
" '" &
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "error to enter passward", vbCritical, "please make sure username password
"
Else
MsgBox ("success
")
Form2.Show
Unload Me
End If
End Sub
ارجو المساعدة اريد اولا تعديل الكود ثم كلما اضفت في القاعدة اسم مستخدم يظهر في الكومبو 1
المشاركات : 113
المواضيع 12
الإنتساب : Jan 2015
السمعة :
2
الشكر: 267
تم شكره 324 مرات في 65 مشاركات
10-07-16, 11:41 AM
(آخر تعديل لهذه المشاركة : 10-07-16, 11:43 AM {2} بواسطة Ashraf Elafify.)
اخى العزيز
بالنسبه للبند الثانى و هو اضافه اسم المستخدم فى الكومبو1 كما تريد يرجى تغير اسم الجدول وقاعدة البيانات و مايلزم فى الكود التالى :-
فى Declarations
ضع الكود التالى
Dim cn3 As New adodb.Connection
Dim rsitem2 As New adodb.Recordset
Option Explicit
وفى حدث ال form load ضع الكود التالى
If rsitem2.State = 1 Then rsitem2.Close
If cn3.State = 0 Then
cn3.Open "Provider=microsoft.jet.oledb.4.0;data source=Sys.sys"
End If
rsitem2.Open "select * from logtable ", cn3, adOpenDynamic, adLockOptimistic
1:
If Not rsitem2.EOF Then
Combo1.AddItem rsitem2!names
rsitem2.MoveNext
GoTo 1
End If
بالنسبه لتعديل الكود
ممكن التوضيح اكثر فيما تريدة
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
المشاركات : 355
المواضيع 66
الإنتساب : May 2016
السمعة :
6
الشكر: 773
تم شكره 385 مرات في 204 مشاركات
هدا المطلوب شكرا جزيلا الله يرضى عليك