[تنبيه - عنوان غير مناسب : ]طالب مبتدء

الأخ الكريم/الأخت الكريمة

السلام عليكم ورحمة الله وبركاته

مرحباً بكم في منتدى الفريق العربي للبرمجة

نود تنبيهك أن العنوان غير مناسب.

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

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

/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم

أخي الكريم في البداية أدخل على تعديل ومن ثم عدل عنوان الموضوع ليكون الموضوع واضح من عنوانه

لو استخدمت البحث لوجدت الكثير من الامثلة

وعلى العموم هذا كود الدخول:

Dim CN As New ADODB.Connection
Dim US As New ADODB.Recordset
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Data Source=" & App.Path & "\mydatabase.MDB"
    If US.State = 1 Then US.Close
    US.ActiveConnection = CN
    US.CursorType = adOpenDynamic
    US.Source = "SELECT * FROM userstable WHERE username= '" & Text1.Text & "' and password= '" & Text2.Text & "'"
    US.LockType = adLockOptimistic
    US.CursorLocation = adUseClient
    US.Open

    If US.RecordCount = 0 Then
        msg = MsgBox("Wrong username or password", vbCritical + vbMsgBoxRtlReading, "Error")
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
    Else
       Unload Me
        Form2.Show
    End If