تقييم الموضوع :
  • 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] كيف ممكن اوقف عدد كبير من BackgroundWorker دفعة واحدة e-coder 2 63 23-05-17, 03:40 AM
آخر رد: silverlight
  ممكن طريقة عمل راديو اذاعات القرآن الكريم عن طريق aassa 5 89 20-05-17, 12:49 AM
آخر رد: alma2
  [سؤال] ممكن مسساعدة في تصدير مشروع بقاعدة بيانات MySql & vb.net2013 فراس الغزي 1 59 19-05-17, 12:45 PM
آخر رد: Adrees
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 206 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  مساعده في قاعدة بيانات بالفيجوال a_abdullah 9 284 11-05-17, 11:54 AM
آخر رد: khaled12345
  هل هذا ممكن ام لا rabeh.ram 2 63 10-05-17, 12:49 AM
آخر رد: rabeh.ram
  [سؤال] ممكن طريقة اضافة سنوات في التاريخ Abdulaziz Hazazi 2 89 06-05-17, 09:59 PM
آخر رد: أسامة السالمي
  [VB.NET] مساعده بسيطه - مثال TreeView dubai.eig 7 179 03-05-17, 08:48 AM
آخر رد: dubai.eig
Smile ممكن رسم سهم بهذا الكود abdalamask 16 372 02-05-17, 10:50 AM
آخر رد: silverlight
  ممكن شرح هذا الجمله using ابراهيم كركوكي 0 66 29-04-17, 10:50 AM
آخر رد: ابراهيم كركوكي

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


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