VB.net如何从Access数据库中检索指定客户ID对应的特定数据

修正方案 #

你需要先给SQL语句的@CustID参数绑定组合框的选中值，同时修正原有数据读取逻辑的错误，修改后的代码如下：

' 推荐用Using语句自动释放数据库连接资源，无需手动调用Close
Using con As New OleDbConnection()
    con.ConnectionString = "Provider =Microsoft.ACE.OLEDB.12.0; data source= C:\Users\Hamza\Documents\POS system1.accdb "
    con.Open()
    
    Dim cmd As New OleDbCommand("Select Points from customers WHERE CustID= @CustID", con)
    ' 绑定参数值，这里假设你的组合框名称为cboCustID，可根据实际组件名修改
    ' 如果CustID是数字类型，可先转成对应类型再传入，例如CInt(cboCustID.Text)
    cmd.Parameters.AddWithValue("@CustID", cboCustID.Text)
    
    ' 仅需取单个值的场景，用ExecuteScalar比ExecuteReader更简便
    Dim points As Object = cmd.ExecuteScalar()
    ' 先判断是否读到有效数据，避免空值报错
    If points IsNot Nothing AndAlso Not IsDBNull(points) Then
        txtdiscount.Text = points.ToString()
    Else
        txtdiscount.Text = "0" ' 未查到对应客户时的默认值，可按需调整
    End If
End Using

关键修改说明 #

• 参数绑定：调用OleDbCommand.Parameters.AddWithValue方法给SQL中的占位参数赋值，值直接取组合框的选中内容即可，该写法同时可以避免SQL注入风险。
• 简化单值读取：你只需要取Points单个字段的单条结果，用ExecuteScalar方法比ExecuteReader更高效，不需要额外处理DataReader的读取逻辑。
• 空值兼容：增加了查询结果为空的判断逻辑，避免客户ID不存在时程序抛出异常。
• 资源自动释放：用Using包裹数据库连接对象，执行完代码块后会自动关闭、释放连接，不需要手动写con.Close()，避免连接泄漏。

如果需要保留原有DataReader的写法，可将读取部分替换为如下代码：

Dim dr As OleDbDataReader = cmd.ExecuteReader()
If dr.Read() Then
    txtdiscount.Text = dr("Points").ToString()
End If
dr.Close()

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