[mohammed bin ali]

(13-11-15, 04:26 PM)Microformt كتب :

(13-11-15, 03:10 PM)mohammed bin ali كتب : السلام عليكم
كيف الحال ان شاء الله بخير

انا عامل برنامج وحاب اعملة حمايه باسم مستخدم وكلمة مرور
بس يكون لعدة اشخاص وكل شخص له اسم المستخدم والرقم السري الخاص فيه
فا ضروري يتربط بالــ(Database)

وجالس ابحث عن الكود مش محصلة ليا 3 ايام
فا اللي عنده الكود يفيدني او برنامج شبيه له مفتوح المصدر وانا بطلع الاكواد



وشاكر لكم مقدما

 اخي العزيز
 السلام عليكم ورحمة وبركاته
 هذا مثال  يمكن إضافة اكثر من مستخدم وكلمة ومرور
 تحياتي

الله يعطيك العافيه اخي بس طلعتلي مشكله الي بالون الاحمر

Set DB = OpenDatabase(App.Path & "/a12.mdb", 2)

Set RS = DB.OpenRecordset("select * from jd1 Where Name='" & Trim(Text1.Text) & "' and password='" & Trim(Text2.Text) & "'", 2)

If RS.RecordCount <= 0 Then

MsgBox "ÇáÑÌÇÁ ÇáÊÇßÏ ãä ÅÏÎÇá ÃÓã ÇáãÓÊÎÏã æßáãÉ ÇáãÑæÑ ÇáÕÍíÍÉ", vbCritical + vbMsgBoxRtlReading

RS.Close

DB.Close

Text1 = ""

Text2 = ""

Text1.SetFocus

Exit Sub

End If

Unload Me

Form2.Show

RS.Close

DB.Close

انا ما عرفت هوا رابط القاعدة باي طريقة
انا رابطها ب(adodc)