如何在VB.NET的LINQ中使用变量指定表和列获取数据？

我完全懂你想要的——把那段传统ADO.NET代码改成LINQ风格，既能统一代码写法，又能实现动态指定表和列来生成自动补全的字符串集合。之前尝试简化写法没跑通？别担心，我给你两种靠谱的实现方案，你可以根据自己的项目情况选：

方案一：原生ADO.NET + LINQ（无额外依赖） #

这种方案不需要引入任何第三方库，直接用.NET自带的LINQ来查询数据读取器的结果，完美兼容动态表和列的需求，还能保持代码的简洁性：

Imports System.Data.SqlClient
Imports System.Linq
Imports System.Windows.Forms

Public Function GetAutoCompleteValues(connectionString As String, targetTable As String, targetColumn As String) As AutoCompleteStringCollection
    Dim autoCompleteList As New AutoCompleteStringCollection()

    ' Using语句自动释放连接、命令和读取器，避免资源泄漏
    Using conn As New SqlConnection(connectionString)
        ' 给表名和列名加方括号，避免和SQL关键字冲突
        Dim sqlQuery As String = $"SELECT [{targetColumn}] FROM [{targetTable}]"
        
        Using cmd As New SqlCommand(sqlQuery, conn)
            conn.Open()
            
            Using reader As SqlDataReader = cmd.ExecuteReader()
                ' 把SqlDataReader转成可枚举的IDataRecord集合，这样就能用LINQ查询了
                Dim validItems = From record In reader.Cast(Of IDataRecord)()
                                 ' 过滤掉数据库空值，避免自动补全出现空条目
                                 Where Not record.IsDBNull(record.GetOrdinal(targetColumn))
                                 ' 提取列值并转成字符串，顺便去掉前后空格
                                 Select record(targetColumn).ToString().Trim()

                ' 把LINQ查询结果批量添加到自动补全集合
                autoCompleteList.AddRange(validItems.ToArray())
            End Using
        End Using
    End Using

    Return autoCompleteList
End Function

为什么这个能跑通？ #

• reader.Cast(Of IDataRecord)是关键：SqlDataReader本身不是可枚举的泛型集合，我们把它转成IEnumerable(Of IDataRecord)后，就能用LINQ的所有查询方法了。
• 加了空值过滤和去空格处理，让自动补全的内容更干净实用。
• Using语句确保所有资源自动释放，比原来的写法更安全。

方案二：Entity Framework + 动态LINQ（适合已用EF的项目） #

如果你的项目已经在用Entity Framework（EF6或EF Core），可以用动态LINQ库来实现动态表和列的查询，代码会更贴合EF的风格：

首先需要安装NuGet包：System.Linq.Dynamic.Core

Imports System.Linq.Dynamic.Core
Imports Microsoft.EntityFrameworkCore ' EF6的话换成Imports System.Data.Entity

Public Function GetAutoCompleteValuesEF(dbContext As YourDbContext, targetTable As String, targetColumn As String) As AutoCompleteStringCollection
    Dim autoCompleteList As New AutoCompleteStringCollection()

    ' 动态获取对应表的DbSet
    Dim targetDbSet = dbContext.GetType().GetProperty(targetTable)?.GetValue(dbContext) As IQueryable(Of Object)
    If targetDbSet Is Nothing Then
        Throw New ArgumentException($"数据库中不存在名为 {targetTable} 的表")
    End If

    ' 用动态LINQ语法指定要查询的列，过滤空字符串
    Dim validItems = targetDbSet.Select($"{targetColumn}")
                                .Cast(Of String)()
                                .Where(Function(s) Not String.IsNullOrWhiteSpace(s))
                                .ToList()

    autoCompleteList.AddRange(validItems.ToArray())
    Return autoCompleteList
End Function

注意事项 #

1. 防SQL注入：不管用哪种方案，都要对传入的targetTable和targetColumn做验证——比如检查是否属于预先定义的白名单，或者用正则验证是否是合法的SQL标识符，不要直接接受用户输入的原始值。
2. 性能优化：如果数据量很大，可以考虑给查询的列加索引，或者添加分页逻辑（自动补全不需要返回所有数据）。
3. 配置文件管理：连接字符串不要硬编码，放在app.config或appsettings.json里更易于维护。

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