Access数据库仅运行时保留账号，重启需重注册问题求助

这不是开发阶段的正常现象，核心原因是你的Access数据库文件每次运行程序时被覆盖，导致注册的数据无法持久保存，同时代码里还有几处小疏漏需要修正。

一、数据库文件被覆盖的解决步骤 #

这是最常见的触发原因：

• 在Visual Studio的解决方案资源管理器中找到你的Access数据库文件（后缀通常是.accdb或.mdb）
• 右键点击该文件 → 选择「属性」
• 将「复制到输出目录」的选项从「始终复制」改为「如果较新则复制」或「不复制」
  • 选「如果较新则复制」：仅当项目里的数据库文件比输出目录的版本新时才会复制，避免覆盖已有用户数据
  • 选「不复制」：完全依赖输出目录里的数据库文件，适合项目稳定后的场景

二、确认数据库连接字符串的正确性 #

检查你的con对象的连接字符串，确保它指向程序运行目录下的数据库文件，推荐使用相对路径写法：

' 替换成你的数据库文件名
Dim conString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\YourDatabase.accdb;"
Dim con As New OleDbConnection(conString)

避免使用绝对路径（比如C:\xxx\db.accdb），否则换设备运行会出现路径错误。

三、代码中的疏漏修正 #

1. 登录方法的参数名不匹配
   你的SQL语句里写的是@loginusername和@loginpass，但添加参数时用的是@uname和@pass，会导致参数绑定逻辑错误，修正后代码：

   Private Sub loginsignin_Click(sender As Object, e As EventArgs) Handles loginsignin.Click
       If txtloginusername.Text = Nothing Or txtloginpass.Text = Nothing Then
           MessageBox.Show("Please enter credentials", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If
   
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
   
       ' 修正SQL参数名，与后续添加的参数保持一致
       Using Command As New OleDbCommand("SELECT COUNT(*) FROM tbllogin WHERE uname = @uname AND pass = @pass", con)
           Command.Parameters.AddWithValue("@uname", OleDbType.VarChar).Value = txtloginusername.Text.Trim
           Command.Parameters.AddWithValue("@pass", OleDbType.VarChar).Value = txtloginpass.Text.Trim
   
           Dim count = Convert.ToInt32(Command.ExecuteScalar())
   
           If count > 0 Then
               Me.Hide()
               Dashboard.Show()
           Else
               MessageBox.Show("Oops!, Invalid Credentials", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
           End If
       End Using
       con.Close()
   End Sub
   

2. 注册方法未关闭数据库连接
   当前注册方法打开了con但未关闭，会导致数据库连接泄漏，在方法末尾添加关闭代码：

   Private Sub btnsignup_Click(sender As Object, e As EventArgs) Handles btnsignup.Click
       ' 原有校验逻辑...
   
       Using create As New OleDbCommand("INSERT INTO tbllogin ([uname], [pass], [mobile], [fname], [lname]) VALUES (@uname,
       @pass, @mobile, @fname, @lname)", con)
           ' 原有参数添加逻辑...
   
           If create.ExecuteNonQuery Then
               MessageBox.Show("Account created", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
           Else
               MsgBox("Registration Failed.")
           End If
       End Using
       ' 添加连接关闭代码
       con.Close()
   End Sub
   

按照以上步骤修改后，注册的账号数据就能持久保存在Access数据库中，重启程序后无需重新注册。

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