将AccessDataSource迁移至VB后台代码，求GridView绑定现成代码

没问题，我帮你整理一套适配现有GridView的VB.NET后台绑定方案，用你熟悉的OleDB替代AccessDataSource，步骤和代码都给你写得明明白白：

1. 先调整前端GridView标记 #

首先把GridView里的DataSourceID="AccessDataSource1"属性去掉——因为我们要通过后台代码手动绑定数据，修改后的GridView开头应该是这样：

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" 
    BackColor="White" BorderColor="#999999" BorderStyle="Solid" BorderWidth="1px" 
    CellPadding="3" ForeColor="Black" GridLines="Vertical" AllowSorting="True">
    <Columns>
        <!-- 你的现有列定义完全保留，不用改动 -->
    </Columns>
</asp:GridView>

2. 后台VB.NET绑定代码（含排序支持） #

在页面的后台代码文件（.aspx.vb）里，添加以下代码，你只需要根据自己的实际情况替换数据库路径、查询语句即可：

Imports System.Data.OleDb

Partial Class YourPageClassName ' 替换成你页面的实际类名
    Inherits System.Web.UI.Page

    ' Access数据库连接字符串，根据你的文件位置调整
    Private ReadOnly connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("~/App_Data/YourDatabase.accdb") & ";"

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            ' 首次加载页面时绑定数据，这里可以设置默认排序字段
            BindGridView("YourDefaultSortColumn ASC")
        End If
    End Sub

    ' 通用数据绑定方法，支持传入排序表达式
    Private Sub BindGridView(sortExpression As String)
        Dim dataTable As New DataTable()
        ' 使用Using语句自动释放资源，避免连接泄漏
        Using conn As New OleDbConnection(connString)
            ' 替换成你原来AccessDataSource中的SELECT语句，拼接排序条件
            Dim sqlQuery As String = $"SELECT Column1, Column2, Column3 FROM YourTargetTable ORDER BY {sortExpression}"
            Using cmd As New OleDbCommand(sqlQuery, conn)
                Using dataAdapter As New OleDbDataAdapter(cmd)
                    dataAdapter.Fill(dataTable)
                End Using
            End Using
        End Using

        ' 将数据绑定到GridView
        GridView1.DataSource = dataTable
        GridView1.DataBind()
    End Sub

    ' 处理GridView的排序事件（因为你的GridView开启了AllowSorting="True"）
    Protected Sub GridView1_Sorting(sender As Object, e As GridViewSortEventArgs) Handles GridView1.Sorting
        ' 从ViewState获取当前排序方向，默认升序
        Dim sortDir As String = If(ViewState("CurrentSortDir") = "ASC", "DESC", "ASC")
        ' 保存当前排序方向到ViewState，避免回发后丢失
        ViewState("CurrentSortDir") = sortDir
        ' 重新绑定数据，传入新的排序表达式
        BindGridView($"{e.SortExpression} {sortDir}")
    End Sub
End Class

关键注意事项 #

• 务必替换connString中的YourDatabase.accdb为你实际的Access数据库文件名，确保路径正确（推荐放在App_Data文件夹下，用Server.MapPath获取物理路径）
• 把SELECT Column1, Column2, Column3 FROM YourTargetTable替换成你原来AccessDataSource里的SELECT语句，保证字段和GridView列对应
• 如果不需要排序功能，可以直接删掉GridView1_Sorting方法，在BindGridView里写固定的SELECT语句即可
• 别忘了导入System.Data.OleDb命名空间，否则会出现编译错误

这样修改后，就完全替代了AccessDataSource的功能，而且和你其他页面使用的OleDB/ADO技术保持一致，兼容性拉满。

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