[عبـدالله]

هذا تعديل للكود

PHP كود :

Imports System.Data.OleDb

Public Class Form1

    Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\work.mdb")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim i As Integer = 0

            Dim cm As New OleDbCommand("SELECT COUNT(*) FROM [user_log] WHERE ([userid]=@username) AND (password=@pass)", cn)
            cm.Parameters.AddWithValue("@username", TextBox1.Text.Trim)
            cm.Parameters.AddWithValue("@pass", TextBox2.Text)

            If cn.State <> ConnectionState.Open Then cn.Open()
            i = cm.ExecuteScalar
            cn.Close()

            If i > 0 Then
                Me.Hide()
                Dim x As New Mainform
                x.Show()

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

            End If

        Catch ex As Exception
            MsgBox(ex.Message)
            End
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

End Class 


ولاحظ أن كلمة المرور لا يتم عمل Trim لها لأنها قد تكون تحتوي مسافات في بدايتها أو نهايتها قد قصد المستخدم وضعها.

ولكن الأفضل لسطر تكوين الاتصال أن يكون في Module جديد على أن تغير Dim إلى Public مثل

PHP كود :

Public cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\work.mdb") 


من أجل أن لا تحتاج اضافته في كل فورم، فقط استدع المتغير cn من أي مكان في المشروع.

والأفضل أن تستخدم هذا السطر لفتح الإتصال، لتفادي خطأ أن يكون الإتصال مفتوح من قبل

PHP كود :

If cn.State <> ConnectionState.Open Then cn.Open()