تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن مساعده عااااااجلة
#1
اخوان ممكن المساعده....مافائده هذه الاكواد البرمجية
...
ارجو الرد بسرعه تحياتي لكم...

Dim db As Database
Dim Rs As Recordset

Private Sub Combo1_DropDown()
Do While Not Rs.EOF
Combo1.AddItem Rs("name")
Rs.MoveNext
Loop
End Sub

Private Sub Command1_Click()

Dim cn As ADODB.Connection
Dim Rs1 As ADODB.Recordset
Dim strsql As String, dbPassWord As String

Set cn = New ADODB.Connection
'التصال بقاعدة البيانات
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\clinc.mdb;" & _
"Jet OLEDBBig Grinatabase "

Set Rs1 = New ADODB.Recordset

strsql = "SELECT * FROM login where name='" & Trim$(Combo1.Text) & "'"

Set Rs1 = cn.Execute(strsql)

If Rs1.RecordCount = 0 Then MsgBox "المستخدم غير موجود": Exit Sub

If Combo1.Text = "" And Text2.Text = "" Then
MsgBox "لم تدخل اسم مستخدم ولا كلمة مرور يرجى ادخال المعلومات المناسبة للدخول الى البرنامج", vbOKOnly + vbCritical + vbMsgBoxRight, "خطأ"
Exit Sub
ElseIf Combo1.Text = "" Then
MsgBox "لم تدخل اسم مستخدم يرجى ادخال المعلومات المناسبة للدخول الى البرنامج", vbOKOnly + vbCritical + vbMsgBoxRight, "خطأ"
Exit Sub
End If
dbPassWord = Rs1.Fields("password").Value
'التحقق من الباسورد
If StrComp(dbPassWord, Trim$(Text2.Text)) = 0 Then


Records.Show
Unload Me

Else
MsgBox "أسم المستخدم او كلمة المرور خطأ.. حاول مرة اخرى", vbOKOnly + vbCritical + vbMsgBoxRight, "خطأ"

End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Set db = OpenDatabase("clinc.mdb")
Set Rs = db.OpenRecordset("login", 2)



End Sub
الرد }}}}
تم الشكر بواسطة:
#2
يا أخي العزيز ...
هذه الاكواد بلغة VB6 وانت في قسم اسئلة VB .Net
وهي أكواد مستخدمة لشاشة تسجيل دخول بالاسم وكلمة المرور عن طريق قاعدة بيانات Access

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة: سعود , a_almisery


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن يا جماعة سورس كود لبرنامج إدارة كافيه المبرمج العبقري 0 53 01-01-17, 01:31 PM
آخر رد: المبرمج العبقري
  مساعده اريد كود لحذف عدد من الصفوف من الداتا قرد فيو وكذلك تنحذف من قاعدة البيانات معتز الجازوي 2 103 25-12-16, 01:44 PM
آخر رد: thevirus
  ممكن كود الفرق بين وقتين Riad Soft 3 1,805 18-12-16, 08:48 PM
آخر رد: gigantic
  ممكن شرح هذا الكود؟ rafaag777 1 140 08-12-16, 11:33 PM
آخر رد: الماجيك مسعد
  ممكن تفيدونا في DevExpress adel27 5 638 08-12-16, 07:31 PM
آخر رد: Atef Bidier
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 4 181 07-12-16, 02:39 PM
آخر رد: a_abdullah
Question [VB.NET] ممكن احد يشرح لي المطلوب :( a_abdullah 2 104 05-11-16, 08:43 PM
آخر رد: a_abdullah
  ممكن مساعدة اخواني في Inherits ابراهيم كركوكي 2 101 03-11-16, 09:19 PM
آخر رد: ابراهيم كركوكي
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 2 152 30-10-16, 10:14 PM
آخر رد: adel27
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 0 80 29-10-16, 08:37 PM
آخر رد: mmm650

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم