AccessViolationException was unhandled error - نسخة قابلة للطباعة

كود :

Imports System.Data.OleDb

Public Class LoginFrm



    Private Sub LoginFrm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        If UsersCount() = True Then

            MsgBox("There is no user in your system, you will be redirected to another form to add new user.", MsgBoxStyle.Information, "Login")

            AddUserFrm.MdiParent = MainFrmvb

            AddUserFrm.Show()

            'Me.Hide()

            Me.Close()

            Exit Sub

        End If

    End Sub



    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        If Me.TextBox1.Text = "" Then

            MsgBox("You should enter the user name", vbOKOnly, "Login")

            Exit Sub

        ElseIf Me.TextBox2.Text = "" Then

            MsgBox("You should enter the password", vbOKOnly, "Login")

            Exit Sub

        ElseIf Me.TextBox1.Text = "Administrator" AndAlso Me.TextBox2.Text = "Administrator" Then ' this code I should remove it from here

            AfterLogin.MdiParent = MainFrmvb

            AfterLogin.Show()

            'Me.Hide()

            Me.Close()

        Else

            If UserLoggedIn() = True Then

                MsgBox("Wrong username or password", vbCritical, "Login")

            Else

                'checkpermissions()

                MsgBox("You logged in successfully", vbInformation, "Login")

                AfterLogin.Label1.Text = test()

                AfterLogin.MdiParent = MainFrmvb

                AfterLogin.Show()

                'Me.Hide()

                Me.Close()

            End If

        End If

    End Sub



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

        Application.Exit()

    End Sub

    Function UsersCount()

        ' get the password from the database

        Dim DA As New ERPDataSetTableAdapters.User_Tbl_localTableAdapter

        Dim TB = DA.User_Count

        If TB = 0 Then

            Return True

        Else

            Return False

        End If

    End Function

    Function UserLoggedIn()

        ' get the password from the database

        Dim DA As New ERPDataSetTableAdapters.User_Tbl_localTableAdapter

        Dim TB = DA.GetDataByUserNamePass(Trim(Me.TextBox1.Text), Trim(Me.TextBox2.Text))

        If TB.Rows.Count = 0 Then

            Return True

        Else

            Return False

        End If

    End Function

    Function test()

        Dim DA As New ERPDataSetTableAdapters.User_Tbl_localTableAdapter

        Dim TBS = DA.GetDataByUserNamePass(Trim(Me.TextBox1.Text), Trim(Me.TextBox2.Text))

        Return TBS.Rows(0).Item(1)

    End Function

End Class

كود :

Private Sub LoginFrm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        'If UsersCount() = True Then

        MsgBox("There is no user in your system, you will be redirected to another form to add new user.", MsgBoxStyle.Information, "Login")

        AddUserFrm.MdiParent = MainFrmvb

        AddUserFrm.Show()

        Me.Hide()

        'Me.Close()

        'Exit Sub

        'End If

End Sub

PHP كود :

if openfiledialog.showdialog=dialogresulut.ok then
'your code here
end if

PHP كود :

Function UsersCount()
        ' get the password from the database
        Dim DA As New ERPDataSetTableAdapters.User_Tbl_localTableAdapter
        Dim TB = DA.User_Count
        If TB = 0 Then
            Return True
        Else
            Return False
        End If
    End Function

,Hi bro
.Thanks for replying me
:The following code is about a query in the Dataset that counts the users in the Users_Table

()Function UsersCount
get the password from the database
Dim DA As New ERPDataSetTableAdapters.User_Tbl_localTableAdapter
Dim TB = DA.User_Count
If TB = 0 Then
Return True
Else
Return False
End If
End Function

The problem is not in the (OpenFileDialog), it is in calling of these two (Functions -UsersCount- and -UserLoggedIn-) as I think but I'm not sure.

And the Function UserLoggedIn is to check if the user entered the correct username and password that were stored in the Users_Table.

I hope you got all the information that could help you to understand my issue.

I'll appreciate your help.
Best.

,Hi hoob computer

"Unhandled Exception: System.AccessViolationException: Attempted to read or write protected memory. This is often an indication that other memory is corrupt”

: This issue shouldn't happen in managed code
You can try setting Visual Studio Debugger to bypass this exception

"Tools menu ->Options -> Debugging -> General -> Uncheck this option "Suppress JIT optimization on module load

I hope this will be helpful to your issue.

Best regards,

.Hi amgadtamer, thanks for your reply
:I used the following code

PHP كود :

Dim da As New ERPDataSetTableAdapters.User_Tbl_localTableAdapter
        Dim counter As Integer
        If da.GetDataByUserNamePass(Trim(LoginFrm.TextBox1.Text), Trim(LoginFrm.TextBox2.Text)).HasErrors Then
            counter = 0
        Else
            counter = CInt(da.GetDataByUserNamePass(Trim(LoginFrm.TextBox1.Text), Trim(LoginFrm.TextBox2.Text)).Rows.Count)
        End If
        If counter = 0 Then
            Return False
        Else
            Return True
        End If
    End Function

    Public Function UsersCount()
        Dim da As New ERPDataSetTableAdapters.User_Tbl_localTableAdapter '.USERSTBTableAdapter
        Dim counter As Integer
        If da.User_Count.HasValue Then
            counter = CInt(da.User_Count)
        Else
            counter = 0
        End If
        If counter <> 0 Then
            Return False
        Else
            Return True
        End If
    End Function 

.but the issue still appears
?what should I do

?Really
?Why isn't it run on my computer without errors
?Did you try to run the OpenFileDialog

.Before I called the UserLoggedIn, it was working fine
.I tried to remove that function and create another one, but nothing happened and the issue still appears

.I've even created a new project and put everything in it, but the same issue appeared again

.I have another projects, they run fine on my computer

?So, what do you suggest to me