Visual Basic连接关系型数据库 实现闪卡与用户账号绑定

核心问题排查 #

你的代码目前存在3个核心问题导致无法关联用户：

• INSERT语句未包含两张表关联的外键loginID字段，写入闪卡时没有同步写入对应用户的ID
• 参数设置完全错位：添加的username、password参数既和SQL语句里的占位符不匹配，还错误将闪卡正面/背面的内容赋值给了这两个无效参数
• 提前弹出成功提示：还未执行数据库写入操作就提示添加成功，逻辑错误

修复步骤 #

1. 先存储当前登录用户的ID：用户登录成功后，将对应账号的loginID（也就是login表的主键ID）存为全局可访问的变量，比如可以在项目中添加一个模块，定义公共变量：

' 模块中定义全局变量存储当前登录用户ID
Public Module GlobalVars
    Public CurrentLoginID As Integer
End Module

用户登录校验通过时，把查询到的对应用户的loginID赋值给GlobalVars.CurrentLoginID即可。

2. 修正按钮点击事件的代码，改用全参数化查询，添加loginID字段写入：

Imports System.Data.OleDb

Public Class CreateFlashcards
    Private Const connstring As String = "provider=microsoft.ACE.OLEDB.12.0;Data Source=flashcard login.accdb"

    Private Sub btnCreateFlashcard_Click(sender As Object, e As EventArgs) Handles btnCreateFlashcard.Click
        ' 用Using语句自动管理连接资源，无需手动关闭释放
        Using myconnection As New OleDbConnection(connstring)
            Try
                myconnection.Open()
                ' INSERT语句新增loginID字段，全用参数占位符，不拼接字符串
                Dim command As String = "INSERT INTO Flashcards ([Front], [Back], [loginID]) VALUES (@Front, @Back, @LoginID)"
                Dim cmd As New OleDbCommand(command, myconnection)
                ' 参数一一对应赋值
                cmd.Parameters.AddWithValue("@Front", txtFront.Text.Trim())
                cmd.Parameters.AddWithValue("@Back", txtBack.Text.Trim())
                cmd.Parameters.AddWithValue("@LoginID", GlobalVars.CurrentLoginID)

                cmd.ExecuteNonQuery()
                ' 执行成功后再弹提示
                MsgBox("You have successfully added the flashcard into your deck!")
                ' 清空输入框
                txtFront.Clear()
                txtBack.Clear()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Using
    End Sub
End Class

注意事项 #

• 确认Flashcards表中的loginID字段数据类型和login表主键ID的字段类型完全一致，且外键关联配置正确
• 不要使用字符串拼接的方式拼接SQL语句，参数化查询既可以避免SQL注入风险，也能避免闪卡内容包含单引号等特殊字符时的SQL语法错误
• 使用Using语句管理数据库连接、命令对象，会在代码执行完成后自动释放资源，无需手动调用Dispose、Close方法，避免资源泄露

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