[سعود]

اولا اخي الكريم لا ترسل برنامجك او مشروعك الحالي صمم مثال جديد بالفكرة  نفسها وارفعه هنا على المرفقات.

كود :

like'" & ComboBox1.Text & "'

ثانيا حين تريد استخدام Like فهو يتطلب علامة او رمز % تكتبها بالمكان المناسب ودرج وشاع ان تكتب في الجانبين اي قبل الاسم وبعده هكذا

كود :

like'%" & ComboBox1.Text & "%'

ثم لماذا تستخدم المعامل Like في البحث عن معلومات حساسة كهذه؟
ولا تنسى ان تصمم مثال جديد بالفكرة افضل لدي من ارسال مشروع كامل لا اضمن حل مشكلاته.

[raoe-041]

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

اولا انا لمى استخدم % يدخل الي البرنامج بمجرد ان يكون الرقم السري صحيح حتى لو كان الاسم غير كامل يعني مثلا نفرض ان الاسم هو عادل ياسين لو كتبت عاد يدخل الى البرنامج و لا يدقق .............


اذا لم استخدم like فماذا علي ان استخدم ...............
هو برنامجي فقط صلاحيات المستخدم و اريد بعد التعديل عليه و ساقوم بنشره هنا في المنتدى حتى تعم الفائدة .........
و شكرا

[الوليد ☺]

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

أنت تقول (يدخل الى البرنامج و لا يدقق) طيب لو فيه مستخدمان الأول (محمد) والثاني (محمود) وتصادف تشابه كلمة المرور
وأراد (محمود) الدخول فكتب (محم) أكيد البرنامج راح يختار الأول وهو (محمد) ويتفاجأ (محمود) أنه دخل بيت ثاني

[raoe-041]

نعم اخي الوليد هذه هي المشكلة لو استخدمت علامت (%) لذلك لم استخدم هذه العلامة و اريد من البرنامج ان يطابق النص كاملة ......... و لكن المشكلة لا يقوم بتحميل البيانات مرة اخرى للاداة combobox و ايضا لا يدقق من خلال خاصية combobox . text ارجو الحل من احد الاخوة و لكم جزيل الشكر ........و بحثت في الانترنيت و لم اجد الجواب ...........

[الوليد ☺]

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

ردي السابق لأني فهمت أن هذيك رغبتك، آسف. واسمك حاول أجيبه بالعربي ما لقيت أي اسم يركب على الحروف raoe تعبني

شوف هذا الكود اسم الاجراءين ComboBoxFill وLogin من مشروع أحد الأخوة الله يذكره بالخير،
وحطيت لك أسطر الاستخدام معاه عشان تعرف الطريقة

الاجراء ComboBoxFill لتعبئة أي كمبوبكس بس أرسل له اسم الكمبوبكس والكونكشن واسم الجدول واسم الحقل الأساسي والحقل الثاني اختياري

PHP كود :

Dim conn As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source = Database1.accdb;")

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    ComboBoxFill(Me.ComboBox1, conn, "Users", "Username", "ID")

End Sub


Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    If Login(Me.ComboBox1.Text, Me.TextBox1.Text) Then
        MsgBox("مرحباً بك")
    Else
        MsgBox("عفواً... إسم المستخدم أو كلمة المرور غير صحيحة")
        Me.TextBox1.Clear()
        Me.TextBox1.Focus()
    End If
End Sub


Public Sub ComboBoxFill(comboBox As ComboBox, connection As OleDbConnection, table As String, display As String, Optional value As String = "")
    Try
        Using da As New OleDbDataAdapter(" SELECT * FROM [" & table & "] ", connection)
            Dim dt As New DataTable
            da.Fill(dt)
            comboBox.DataSource = dt
            comboBox.DisplayMember = display
            comboBox.ValueMember = value
        End Using
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

Public Function Login(username As String, password As String) As Boolean
    Try
        Using da As New OleDbDataAdapter("SELECT * FROM [Users] WHERE [Username] = @Username AND [Password] = @Password ", conn)
            da.SelectCommand.Parameters.AddWithValue("@Username", username)
            da.SelectCommand.Parameters.AddWithValue("@Password", password)
            Using myDatatable As New DataTable
                If da.Fill(myDatatable) > 0 Then Return True
            End Using
        End Using
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Function 


[raoe-041]

اخي الوليد عاجز عن شكرك و لكن اقول لك جزاك الله خيرا ...............
الكود يظهر لدي الكثير من الاخطاء و حتى اني قمت بتصحيح الاخطاء و لكن لم يحمل البيانات مرة اخرى و بالاخص comboboxfill ..............

و شكرا لك على اهتمامك بمساعدة الاخرين .............

[الوليد ☺]

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

أشكرك أخي/أختي (اسم غير معروف)

أنا لا أضع الأكواد إلا بعد تجربتها

لم تذكر الأخطار ولو وضعت صورة للشاشة مع إزاحة رسالة الخطأ يميناً لنرى الكود الذي يقف عليه فهذه الطريقة تسهل الحل على كل من يمر على الموضوع.

[raoe-041]

اخي الوليد شكرا لك انحلت المشكلة .............
المشكلة كانت بسيظة لم اقم بتحميل جدول البيانات بعد رسالة الخظأ .........

PHP كود :

Else
            MsgBox("اسم المستخدم او كلمة السر خاطئة")

            User_Table_Load()

        End If 


و ياريت اخي الوليد تفعل خاصية الرسائل لديك ...............