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

Question

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

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

有没有办法在运行时动态选择“来自”表，如果你能提供一些具体的例子或指出我的方向吗？

非常感谢你。

---

编辑

---

所以两个答案似乎都在说同一个一般的想法。我将尝试将 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))

感谢您的帮助。 BBL

Answer 1

见Get table-data from table-name in 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)