VB.NET如何通过OleDb实现类似VB6 ADO快速提取数据表单值

完全可以通过OleDb实现和VB6 ADO类似的简洁写法，不需要构造DataSet、DataAdapter这类冗余对象，有两种常用实现方式：

方式1：使用ExecuteScalar（推荐，专门用于查询返回单个值的场景） #

这个方法是ADO.NET专门为单值查询设计的，性能最高，写法最简单：

Dim conn As OleDb.OleDbConnection = DBConnect.getDbConnection()
Try
    conn.Open() ' 直接使用Command需要手动打开连接，DataAdapter会自动打开无需此步骤
    Dim selectSql = "select payed as P from mytable where Val(ID) = '4' "
    Dim cmd As New OleDb.OleDbCommand(selectSql, conn)
    Dim result As Object = cmd.ExecuteScalar()
    ' 后续可按需转换类型，示例转为Decimal：
    Dim payedValue As Decimal = If(IsDBNull(result), 0, CDec(result))
Finally
    conn.Close()
    conn.Dispose()
End Try

这种写法比你当前用DataSet的方案性能高很多，也更简洁，完全满足单值提取需求。

方式2：模拟VB6的字段取值写法（更贴近你记忆中的VB6语法） #

如果你需要更接近VB6 Execute("sql")("字段名")的写法，可以用OleDbDataReader读取第一行数据后直接按字段名取值：

Dim conn As OleDb.OleDbConnection = DBConnect.getDbConnection()
Try
    conn.Open()
    Dim selectSql = "select payed as P from mytable where Val(ID) = '4' "
    Dim cmd As New OleDb.OleDbCommand(selectSql, conn)
    Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReader()
    Dim payedValue As Object = DBNull.Value
    If reader.Read() Then ' 读取第一行数据
        payedValue = reader("P") ' 直接按字段名取值，和VB6写法几乎一致
    End If
    reader.Close()
Finally
    conn.Close()
    conn.Dispose()
End Try

• 一定要手动管理连接的打开和关闭，避免连接泄漏
• 取值前建议判断是否为DBNull，避免空值报错
• 如果后续查询条件是动态传入的，建议用参数化查询代替拼接SQL，避免注入风险

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