如何在MS Access与VB.NET中实现数据搜索及更新（附代码）

嘿，我看你已经把VB.NET连接MS Access的基础架子搭起来了，接下来咱们把数据搜索和更新的功能给补上。先从完善你的现有代码开始，再一步步实现核心功能。

第一步：完善数据库连接代码 #

你当前的代码里还没补全数据库文件后缀，也没完成连接字符串的拼接和合理的连接管理，先修正这部分：

Imports System.Data.OleDb
Public Class Form5
    Dim provider As String
    Dim dataFile As String
    Dim connString As String
    Public myConnection As OleDbConnection = New OleDbConnection
    Public dr As OleDbDataReader

    Private Sub Form5_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
        dataFile = "C:\Users\Admin\Desktop\project database\Database5.accdb" ' 补全.accdb后缀
        connString = provider & dataFile
        ' 建议不要在Form_Load就打开连接，用到的时候再开，避免长期占用资源
    End Sub

第二步：实现数据搜索功能 #

假设你的Access数据库里有一张名为Users的表，包含ID、Name、Email字段，咱们做一个根据ID搜索记录的示例（你可以根据自己的表结构调整）：

' 绑定到搜索按钮的点击事件，假设按钮名为btnSearch
Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
    myConnection.ConnectionString = connString

    Try
        myConnection.Open()
        ' 用参数化查询！绝对不要直接拼接SQL，防止SQL注入和特殊字符错误
        Dim searchQuery As String = "SELECT * FROM Users WHERE ID = @UserID"
        Dim cmd As New OleDbCommand(searchQuery, myConnection)
        ' 添加参数，这里假设txtID是你输入搜索ID的文本框
        cmd.Parameters.AddWithValue("@UserID", Integer.Parse(txtID.Text))

        dr = cmd.ExecuteReader()
        ' 检查是否有匹配结果
        If dr.HasRows Then
            dr.Read()
            ' 将查询结果显示到对应的文本框，比如txtName、txtEmail
            txtName.Text = dr("Name").ToString()
            txtEmail.Text = dr("Email").ToString()
        Else
            MessageBox.Show("没找到匹配的记录哦")
        End If
    Catch ex As Exception
        MessageBox.Show("搜索出错啦：" & ex.Message)
    Finally
        ' 不管成功失败，都要关闭DataReader和连接
        dr?.Close()
        myConnection.Close()
    End Try
End Sub

第三步：实现数据更新功能 #

基于搜索到的记录，咱们做一个更新信息的功能，同样用参数化查询保证安全：

' 绑定到更新按钮的点击事件，假设按钮名为btnUpdate
Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
    myConnection.ConnectionString = connString

    Try
        myConnection.Open()
        Dim updateQuery As String = "UPDATE Users SET Name = @UserName, Email = @UserEmail WHERE ID = @UserID"
        Dim cmd As New OleDbCommand(updateQuery, myConnection)

        ' 添加上要更新的参数
        cmd.Parameters.AddWithValue("@UserName", txtName.Text)
        cmd.Parameters.AddWithValue("@UserEmail", txtEmail.Text)
        cmd.Parameters.AddWithValue("@UserID", Integer.Parse(txtID.Text))

        ' 执行更新，返回受影响的行数
        Dim rowsUpdated As Integer = cmd.ExecuteNonQuery()
        If rowsUpdated > 0 Then
            MessageBox.Show("记录更新成功！")
        Else
            MessageBox.Show("没找到要更新的记录哦")
        End If
    Catch ex As Exception
        MessageBox.Show("更新出错啦：" & ex.Message)
    Finally
        myConnection.Close()
    End Try
End Sub

几个关键注意事项 #

• 参数化查询是必须的：直接拼接SQL语句不仅有安全风险（SQL注入），还会因为单引号、特殊字符导致查询失败，参数化能完美解决这些问题。
• 连接管理要规范：遵循“晚开早关”的原则，用完连接就关闭，不要在窗体加载时就一直保持连接打开，避免占用数据库资源。
• 异常处理不能少：数据库操作很容易因为路径错误、权限问题、数据格式不对出错，加上异常处理能让程序更稳定，还能给用户明确的错误提示。
• Provider版本对应：如果你的数据库是.mdb格式（旧版Access），要把Provider改成Microsoft.Jet.OLEDB.4.0；.accdb用Microsoft.ACE.OLEDB.12.0没问题，但要确保你的电脑安装了Access Runtime或者Office组件，不然会找不到驱动。

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