أفضل طريقة لعمل اسم مستخدم وكلمة السر لقاعدة البيانات لبرنامجك

كود :

[color=#000000][COLOR=#0000bb] Dim fa [/color][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][color=#dd0000]"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password = admin ; Data Source =" [/color][color=#007700]& [/color][color=#0000bb]Application[/color][color=#007700].[/color][color=#0000bb]StartupPath [/color][color=#007700]& [/color][COLOR=#dd0000]"\secure.mdb"

    [/COLOR][color=#0000bb]Dim co [/color][color=#007700]As New [/color][color=#0000bb]OleDbConnection[/color][color=#007700]([/color][color=#0000bb]fa[/color][COLOR=#007700])

    [/COLOR][color=#0000bb]Dim da [/color][color=#007700]As New [/color][color=#0000bb]OleDbDataAdapter[/color][color=#007700]([/color][color=#0000bb]sqs[/color][color=#007700], [/color][color=#0000bb]co[/color][COLOR=#007700])

    [/COLOR][color=#0000bb]Dim ds [/color][color=#007700]As New [/color][COLOR=#0000bb]DataSet

    Dim sqs [/COLOR][color=#007700]As [/color][COLOR=#0000bb]String  

[/COLOR][/COLOR]

كود :

[color=#000000][COLOR=#007700]Public [/color][color=#0000bb]Sub check[/color][COLOR=#007700]()

        Try

            [/COLOR][color=#0000bb]sqs [/color][color=#007700]= [/color][color=#dd0000]"SELECT * FROM secure WHERE name = '" [/color][color=#007700]& [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][COLOR=#dd0000]"'"

            [/COLOR][color=#0000bb]co[/color][color=#007700].[/color][color=#0000bb]Open[/color][COLOR=#007700]()

            [/COLOR][color=#0000bb]Dim da [/color][color=#007700]As New [/color][color=#0000bb]OleDbDataAdapter[/color][color=#007700]([/color][color=#0000bb]sqs[/color][color=#007700], [/color][color=#0000bb]co[/color][COLOR=#007700])

            [/COLOR][color=#0000bb]ds[/color][color=#007700].[/color][color=#0000bb]Clear[/color][COLOR=#007700]()

            [/COLOR][color=#0000bb]da[/color][color=#007700].[/color][color=#0000bb]Fill[/color][color=#007700]([/color][color=#0000bb]ds[/color][color=#007700], [/color][color=#dd0000]"secure"[/color][COLOR=#007700])

            [/COLOR][color=#0000bb]co[/color][color=#007700].[/color][color=#0000bb]Close[/color][COLOR=#007700]()

            [/COLOR][color=#0000bb]lb1[/color][color=#007700].[/color][color=#0000bb]DataBindings[/color][color=#007700].[/color][color=#0000bb]Add[/color][color=#007700]([/color][color=#dd0000]"Text"[/color][color=#007700], [/color][color=#0000bb]ds[/color][color=#007700], [/color][color=#dd0000]"secure.name"[/color][COLOR=#007700])

            [/COLOR][color=#0000bb]lb2[/color][color=#007700].[/color][color=#0000bb]DataBindings[/color][color=#007700].[/color][color=#0000bb]Add[/color][color=#007700]([/color][color=#dd0000]"Text"[/color][color=#007700], [/color][color=#0000bb]ds[/color][color=#007700], [/color][color=#dd0000]"secure.pass"[/color][COLOR=#007700])

        Catch [/COLOR][color=#0000bb]ex [/color][color=#007700]As [/color][COLOR=#0000bb]Exception

        End [/COLOR][COLOR=#007700]Try

    [/COLOR][COLOR=#0000bb]End Sub  

[/COLOR][/COLOR]

قم باستدعاء دالة الفحص في حدث TextBox1_KeyUp

أخيرا في حدث الضغط علي زر الدخول :

كود :

[COLOR=#000000][COLOR=#007700]Try

            If [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]lb1[/color][color=#007700].[/color][COLOR=#0000bb]Text Then

                [/COLOR][color=#007700]If [/color][color=#0000bb]TextBox2[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]lb2[/color][color=#007700].[/color][COLOR=#0000bb]Text Then

                    Form2[/COLOR][color=#007700].[/color][color=#0000bb]Show[/color][COLOR=#007700]()

                    [/COLOR][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Hide[/color][COLOR=#007700]()

                Else

                    [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"اسم المستخدم او كلمة المرور غير صحيحة الرجاء المحاولة مرة أخري "[/color][COLOR=#007700])

                    [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]""

                    [/COLOR][color=#0000bb]TextBox2[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]""

                    [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Select[/color][COLOR=#007700]()

                [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If

            Else

                [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"اسم المستخدم او كلمة المرور غير صحيحة الرجاء المحاولة مرة أخري "[/color][COLOR=#007700])

                [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]""

                [/COLOR][color=#0000bb]TextBox2[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]""

                [/COLOR][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Select[/color][COLOR=#007700]()

            [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If

        Catch [/COLOR][color=#0000bb]ex [/color][color=#007700]As [/color][COLOR=#0000bb]Exception

            [/COLOR][COLOR=#007700]Return

        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]Try  

[/COLOR][/COLOR]

لتحميل المثال :
password.zip