VB.NET WinForms如何将SQL Server聚合查询结果直接存入变量

完全不需要借助DataTable，你可以直接使用SqlCommand.ExecuteScalar()方法来获取聚合查询返回的单行单列结果，这是处理这类场景最简洁的方式。

重构后的代码示例： #

' 1. 构造查询命令（建议用参数化查询避免SQL注入）
sCMD = New SqlCommand("Select (Min(t.year_published)-22) as Born " _
& "FROM Authors a, titles t, Title_Author ta " _
& "where a.Au_ID = @AuthorID and a.Au_ID=ta.Au_ID and ta.ISBN=t.ISBN GROUP BY a.AU_ID", Books_CN)
sCMD.Parameters.AddWithValue("@AuthorID", iAuthor) ' 参数化传递ID

' 2. 直接获取查询结果
Dim result As Object = sCMD.ExecuteScalar()
Dim iBorn As Integer = 1900 ' 默认值设为1900，处理无匹配数据的情况
If result IsNot DBNull.Value Then
    iBorn = Convert.ToInt32(result)
    ' 注意：原代码中SQL已计算(Min(year)-22)，后续又在代码里减了22，需确认是否为重复逻辑
    ' 若业务确实需要二次减22，添加此行：iBorn = iBorn - 22
End If

' 3. 处理年份阈值
If iBorn < 1899 Then    
   iBorn = 1900    
End If

' 4. 执行更新（同样用参数化查询）
sCMD = New SqlCommand("Update Authors Set Year_Born = @BornYear WHERE Au_ID = @AuthorID", Books_CN)
sCMD.Parameters.AddWithValue("@BornYear", iBorn)
sCMD.Parameters.AddWithValue("@AuthorID", iAuthor)
sCMD.ExecuteNonQuery()

关键说明： #

• ExecuteScalar()会直接返回查询结果的第一行第一列值，若没有匹配数据则返回DBNull.Value，因此需要做非空判断。
• 原代码的SQL拼接写法存在注入风险，改用参数化查询是数据库操作的最佳实践，能避免攻击同时提升代码稳定性。
• 需核对原逻辑中“SQL内减22+代码内再减22”是否为重复计算，避免业务结果偏差。

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