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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ممكن تعديل الكود التالي D-Z 0 36 21-09-17, 06:34 PM
آخر رد: D-Z
  [سؤال] ممكن طريقة عمل برنامج وارسال التحديثات اليه عندما يتوفر تحديث Mina Botros 3 91 20-09-17, 01:11 AM
آخر رد: سعود الشامان
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 36 19-09-17, 03:33 PM
آخر رد: أبو نوره
  جديد علي الفجول بيسك ...احتاج مساعده (اسعدكم الله جميعا) Abdulhadi 13 367 18-09-17, 05:57 PM
آخر رد: Abdulhadi
  ممكن طريقه طباعه محتويات داتاجريد فيو من خلال الكريستال ريبورت hashish2003 7 254 11-09-17, 10:05 PM
آخر رد: hashish2003
Photo ممكن الرد ضرورى aliomar333 2 87 11-09-17, 09:55 PM
آخر رد: aliomar333
  [VB.NET] ممكن شرح بكل مايتعلق بـ DataGridView 0theghost0 1 110 08-09-17, 07:08 PM
آخر رد: جميل علي
  مساعده فى حماية او تشفير ملفات البرنامج نبيل فتحى 2 124 06-09-17, 08:16 AM
آخر رد: نبيل فتحى
  [VB.NET] مساعده لو سمحتم امل عوض 1 88 26-08-17, 11:10 PM
آخر رد: Amir_alzubidy
  مساعده فى التحزيم من الخبراء نبيل كونكت 2 132 26-08-17, 07:33 PM
آخر رد: امل عوض

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


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