تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [VB.NET] ممكن احد يشرح لي المطلوب :( a_abdullah 2 82 05-11-16, 08:43 PM
آخر رد: a_abdullah
  ممكن مساعدة اخواني في Inherits ابراهيم كركوكي 2 70 03-11-16, 09:19 PM
آخر رد: ابراهيم كركوكي
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 2 116 30-10-16, 10:14 PM
آخر رد: adel27
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 0 53 29-10-16, 08:37 PM
آخر رد: mmm650
  هل ممكن مساعدة من أهل الخبرة sambro 1 85 27-10-16, 11:50 PM
آخر رد: sambro
  [VB.NET] كيف ممكن اجعل هذا الاتصال بتصل بip مختلف عن ip اتصالي 3asfa~mdmra 0 57 27-10-16, 09:56 PM
آخر رد: 3asfa~mdmra
  ممكن شرح هذا الكود؟ rafaag777 0 70 26-10-16, 10:18 AM
آخر رد: rafaag777
Exclamation [VB.NET] سؤال احتاج مساعده فيه a_abdullah 11 160 25-10-16, 03:20 PM
آخر رد: a_abdullah
  ممكن دورة عن فضاء تسمية io ابراهيم كركوكي 2 73 25-10-16, 02:42 PM
آخر رد: xlmnxp
  مساعده من الخبراء المبرمجين والمختصيين محمد بوقزاحة 0 51 21-10-16, 12:19 PM
آخر رد: محمد بوقزاحة

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


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