如何使用 Dynamic LINQ 在运行时动态选择表

Question

我正在开发一个应用程序，允许工程师通过选择数据库、表、字段对我们的数据库进行简单的单表/视图查询。

我了解了如何使用动态 LINQ 库示例来在运行时动态选择 Select、Where 和 Order by 子句，但我在如何分配表选择方面陷入了僵局。

有没有一种方法可以在运行时动态选择“来自”表，以及您如何提供一些具体的示例或为我指出有的人的方向？

非常感谢你。

---

编辑

---

所以这两个答案似乎都在说相同的一般想法。我将尝试将 C# 转换为 VB 并使其运行。

第一个答案转换为

NotInheritable Class DataContextExtensions
    Private Sub New()
    End Sub
    <System.Runtime.CompilerServices.Extension> _
    Public Shared Function GetTableByName(context As DataContext, tableName As String) As ITable
        If context Is Nothing Then
            Throw New ArgumentNullException("context")
        End If
        If tableName Is Nothing Then
            Throw New ArgumentNullException("tableName")
        End If
        Return DirectCast(context.[GetType]().GetProperty(tableName).GetValue(context, Nothing), ITable)
    End Function
End Class

，但它向我抛出一个错误，指出扩展方法只能在模块中定义。 但是当我将它包装在模块标签中时，它仍然给出相同的错误。

因此，我通过将其包装在模块标签中并剥离类标签来编译它。我也可以从中取出最后一行并将其直接推入我的基本方法中，这允许我执行它，但是，它似乎返回为空。当我尝试列举结果时，没有任何结果。不确定这是我的代码问题还是新代码问题，我会进行更多测试。

---

这是我对第二个示例的转换，现在我要尝试看看是否能让它们工作。经过一些测试后，我会带着问题或结果回来。

'get the table from a type (which corresponds to a table in your context)
Dim dataContextNamespace = "My.DataContext.Namespace"
Dim type = Type.[GetType](dataContextNamespace + tableName)
Dim table = dc.GetTable(type

'add where clauses from a list of them
For Each whereClause As String In whereClauses
    table = table.Where(whereClause)
Next

'generate the select clause from a list of columns
Dim query = table.[Select]([String].Format("new({0})"), [String].Join(",", selectColumns))

感谢您的帮助。乙肝病毒

Answer 1

请参阅从 LINQ DataContext 中的表名获取表数据。

实际上，使用直接 SQL 语句可能会更好。 LINQ 只会妨碍你。

VB 转换：

NotInheritable Class DataContextExtensions
    Private Sub New()
    End Sub
    <System.Runtime.CompilerServices.Extension> _
    Public Shared Function GetTableByName(context As DataContext, tableName As String) As ITable
        If context Is Nothing Then
            Throw New ArgumentNullException("context")
        End If
            If tableName Is Nothing Then
                Throw New ArgumentNullException("tableName")
            End If
        Return DirectCast(context.[GetType]().GetProperty(tableName).GetValue(context, Nothing), ITable)
    End Function
End Class

用法：

Dim myDataContext as New MyCustomDataContext
myDataContext.GetTableByName("ORDERS").Where("...")

Answer 2

您可以使用 GetTable() 获取您数据的相应 ITable。然后结合使用 DLINQ，使其相对容易。

此示例使用 AdventureWorks 数据库。我的项目在 DatabaseTest.AdventureWorks 命名空间的 DatabaseTest 程序集中定义了上下文。

'' need my database and DLINQ extensions up top
Imports DatabaseTest.AdventureWorks
Imports System.Linq.Dynamic

'' sample inputs
Dim dc = New AdventureWorksDataContext()
Dim tableName = "Contact"
Dim whereClauses() = {"FirstName = ""John"" OR LastName = ""Smith"""}
Dim selectColumns() = {"FirstName", "LastName"}

'' get the table from a type (which corresponds to a table in your database)
Dim typeName = "DatabaseTest.AdventureWorks." & tableName & ", DatabaseTest"
Dim entityType = Type.GetType(typeName)
Dim table = dc.GetTable(entityType)
Dim query As IQueryable = table

'' add where clauses from a list of them
For Each whereClause As String In whereClauses
    query = query.Where(whereClause)
Next

'' generate the select clause from a list of columns
query = query.Select(String.Format("new({0})", String.Join(",", selectColumns)))

回想起来，使用反射可能是获取表的更简单的方法，因为您已经有了名称。但这些名称可能没有一一对应，因此您必须对此进行补偿。

Dim table As ITable = dc.GetType().GetProperty(tableName & "s").GetValue(dc, Nothing)