Vb.net 基于VB的系统中出现未处理的异常错误，

我在为我的学位项目开发的VB系统中遇到了这个问题

列表中没有任何错误，但出现了一条弹出消息，说明“应用程序中发生了未处理的异常。如果单击“继续”，应用程序将忽略继续的尝试…”

弹出窗口显示后，exe挂起并退出

这是密码。该代码旨在接受有关管理员的一些详细信息，并将其保存在名为CQFOS的MicrosoftAccess数据库中，该数据库的表名为adminrecords

Imports System.Data.OleDb
Imports System.Configuration

Public Class adminadd

    'must put everytime, global bro
    Dim con As New OleDbConnection
    Dim cmd As New OleDbCommand

    Private Sub addadmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addadmin.Click

        Dim TA As New CQFOSDataSet1TableAdapters.adminrecordsTableAdapter
        Dim cmd As New OleDbCommand
        Dim con As New OleDbConnection


        'Dim yourconnection As String = ConfigurationManager.ConnectionStrings("yourConnectionString").ConnectionString()
        Dim yourconnection As String = ConfigurationManager.ConnectionStrings("yourconnectionstring").ConnectionString

        'con = New OleDbConnection(yourconnectionString)
        con = New OleDbConnection(yourconnection)

        cmd.CommandType = CommandType.Text


        Dim connectionString As String = ConfigurationManager.ConnectionStrings("CQFOSConnectionString").ConnectionString
        con = New OleDbConnection(connectionString)

        cmd.CommandType = CommandType.Text


        cmd.CommandText = "INSERT INTO adminrecords (AdminID,Name,DOB,Gender,Address,PhoneNo,Email) VALUES (@AdminID, @Name,@DOB,@Gender,@Address,@PhoneNo,@Email)"

        cmd.Parameters.AddWithValue("@AdminID", adminidtxt.Text)
        cmd.Parameters.AddWithValue("@Name", nametxt.Text)
        cmd.Parameters.AddWithValue("@DOB", dobtxt.Text)
        cmd.Parameters.AddWithValue("@Gender", gendertxt.Text)
        cmd.Parameters.AddWithValue("@Address", addtxt.Text)
        cmd.Parameters.AddWithValue("@PhoneNo", cnotxt.Text)
        cmd.Parameters.AddWithValue("@Email", emailtxt.Text)

        cmd.Connection = con

        Dim RowsAffected As Integer
        con.Open()

        'rowaffected returns the number or row affected
        RowsAffected = cmd.ExecuteNonQuery()

        Dim selectQuery As String = "Select FROM adminrecords"
        If RowsAffected = 1 Then
            MsgBox("New Record is saved.", MsgBoxStyle.OkOnly, "CQFOS")
        End If
        con.Close()

    End Sub

End Class

感谢您的帮助。先谢谢你

cmd.CommandText = "INSERT INTO adminrecords   
(AdminID,Name,DOB,Gender,Address,PhoneNo,Email) VALUES
(@AdminID, @Name,@DOB,@Gender,@PhoneNo,@Address, @Email)"

---

您的PhoneNo和Address参数是错误的。

请尝试单步执行代码，以确定问题发生在哪一行。在adminhome.Show（）行上放置一个断点，看看会发生什么。我删除了adminhome.hide子文件本身。但仍然没有错误。这次我无法分析您的代码a，但我发现当您将VS配置为在抛出和未处理的CLR异常时中断时，调试异常要容易得多。要执行此操作，请转到Debug=>Exceptions并选中CLR异常的两个框。您的代码现在将在问题行中断，以便更轻松地调试。错误到底抛出在哪里？我得到这2个错误。错误12无法将文件“obj\x86\Debug\Mark1.exe”复制到“bin\Debug\Mark1.exe”。进程无法访问文件“bin\Debug\Mark1.exe”，因为另一个进程正在使用它。C:\Windows\Microsoft.NET\Framework\v4.0.30319\Microsoft.Common.targets 3390错误11无法将“obj\x86\Debug\Mark1.exe”复制到“bin\Debug\Mark1.exe”。已超过重试计数10。失败。C:\Windows\Microsoft.NET\Framework\v4.0.30319\Microsoft.Common.targets 3390