VB.Net连接Access数据库注册表单无法新增记录求助

嘿，我看了你写的VB.NET注册表单代码，发现了几个导致数据无法插入数据库的关键问题，咱们一步步来解决：

先明确你的场景 #

• 注册表单包含：姓名（TextBox1）、用户名（TextBox2）、密码（TextBox3）、确认密码（TextBox4）、邮箱（TextBox5）输入框，性别下拉选择框（ComboBox1）和提交按钮
• Access数据库的User表，主键IDUSR是自动编号类型，其他字段对应表单输入项

核心问题梳理 #

1. 数据库连接未打开：你创建了连接对象，但完全没调用conn.Open()，数据库连都没连上，肯定插不进去数据！
2. 字段名不匹配：代码里SQL语句写的是Pass，但你数据库里的密码字段是Password，数据库找不到这个字段，插入直接失败。
3. ComboBox取值错误：如果你的下拉框是手动添加的选项，SelectedValue会返回空值，得用SelectedItem.ToString()才能拿到选中的性别文本。
4. 手动生成主键多此一举还危险：IDUSR是自动编号类型，数据库会自动递增生成主键值，你手动随机生成ID很容易和已有的值重复，触发主键冲突。
5. 资源未妥善管理：用完连接和命令对象没关闭释放，时间长了会导致数据库连接泄漏。
6. 异常提示太模糊：出问题只显示笼统的提示，根本不知道哪错了，没法快速调试。
7. SQL拼接有风险：直接把用户输入拼进SQL语句，不仅容易因为特殊字符出错，还会存在SQL注入的安全隐患。

修复后的完整代码 #

我把这些问题都修复了，还加了注册成功后的表单清空逻辑，异常提示也改成了具体错误信息，方便排查问题：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 检查所有必填项是否为空
    If String.IsNullOrWhiteSpace(TextBox1.Text) OrElse 
       String.IsNullOrWhiteSpace(TextBox2.Text) OrElse 
       String.IsNullOrWhiteSpace(TextBox3.Text) OrElse 
       String.IsNullOrWhiteSpace(TextBox4.Text) OrElse 
       String.IsNullOrWhiteSpace(TextBox5.Text) Then
        MsgBox("Please Fill All The Box First !!!")
        Return
    End If

    ' 检查密码匹配和长度要求
    If TextBox3.Text <> TextBox4.Text OrElse TextBox3.TextLength <= 8 Then
        MsgBox("Password do not match or length is less than 8 characters !!!")
        Return
    End If

    ' 数据库连接字符串
    Dim dbsource As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Michael\Tugas Materi Kuliah\VB\TA\DBUtama.accdb"
    
    ' Using语句自动管理连接和命令资源，无需手动关闭释放
    Using conn As New OleDbConnection(dbsource)
        ' 参数化SQL语句，修正字段名，去掉手动插入的IDUSR
        Dim strSql As String = "INSERT INTO [User] ([Nama], [Uname], [Password], [Jenis Kelamin], [Email]) 
                                VALUES (@Nama, @Uname, @Password, @JenisKelamin, @Email)"
        
        Using cmd As New OleDbCommand(strSql, conn)
            ' 添加参数，对应SQL里的占位符
            cmd.Parameters.AddWithValue("@Nama", TextBox1.Text)
            cmd.Parameters.AddWithValue("@Uname", TextBox2.Text)
            cmd.Parameters.AddWithValue("@Password", TextBox3.Text)
            cmd.Parameters.AddWithValue("@JenisKelamin", ComboBox1.SelectedItem.ToString())
            cmd.Parameters.AddWithValue("@Email", TextBox5.Text)

            Try
                conn.Open() ' 关键：打开数据库连接
                Dim rowsAffected As Integer = cmd.ExecuteNonQuery()
                If rowsAffected > 0 Then
                    MsgBox("Registration successful!")
                    ' 清空表单，提升用户体验
                    TextBox1.Clear()
                    TextBox2.Clear()
                    TextBox3.Clear()
                    TextBox4.Clear()
                    TextBox5.Clear()
                    ComboBox1.SelectedIndex = -1
                End If
            Catch ex As Exception
                ' 显示具体错误信息，方便排查问题
                MsgBox($"Error occurred: {ex.Message}")
            End Try
        End Using
    End Using
End Sub

额外小建议 #

• 密码别明文存储！一定要用哈希算法（比如BCrypt）加密后再存入数据库，避免数据泄露时用户密码直接暴露。
• 可以添加邮箱格式验证，用正则表达式检查用户输入的是不是合法邮箱，避免无效数据存入数据库。

内容的提问来源于stack exchange，提问作者Michael