1

我在 C# 中有一个查询，它可以让我查询实体框架的元数据。我需要将其转换为 VB.NET，但我正在努力将 AS 关键字转换为“cast”元到 System.Data.Metadata.Edm.EntityType。我尝试过 TryCast、CType、Cast 等。

这是 C# 中的查询：

var queryResult = from meta in oc.MetadataWorkspace.GetItems(System.Data.Metadata.Edm.DataSpace.CSpace)
                  .Where(m => m.BuiltInTypeKind == System.Data.Metadata.Edm.BuiltInTypeKind.EntityType)
                                  from p in (meta as System.Data.Metadata.Edm.EntityType).Properties
                                  .Where(p => p.DeclaringType.Name == entityClassType.Name
                                  && p.Name == propertyName)
                                  select p;

这是我最接近让它在 VB.NET 中编译的方法（As 关键字在下划线中表示'）'预期：

Dim query2 = _
             From meta In entityObjectContext.MetadataWorkspace.GetItems(System.Data.Metadata.Edm.DataSpace.CSpace) _
                  .Where(Function(m) m.BuiltInTypeKind = System.Data.Metadata.Edm.BuiltInTypeKind.EntityType) _
                  From p In (meta As System.Data.Metadata.Edm.EntityType).Properties _
                  .Where(Function(p) p.DeclaringType.Name = entity.GetType().Name _
                         And p.Name = propertyName) _
                  Select p

这是要了我的命。我这么近...

4

2 回答 2

2

您可以使用 CType 进行类型转换：

...
From p In CType(meta, System.Data.Metadata.Edm.EntityType).Properties _
...

更新：再次查看查询，我建议使用OfType()代替：

From meta In entityObjectContext.MetadataWorkspace.GetItems(System.Data.Metadata.Edm.DataSpace.CSpace) _
             .OfType(Of System.Data.Metadata.Edm.EntityType)() _
From p In meta.Properties _
Where p.DeclaringType.Name = entity.GetType().Name _
    And p.Name = propertyName _
Select p

更新 2：此外，看起来 GetItems() 有一个通用版本，我怀疑它只会返回您想要的类型的项目：

From meta In entityObjectContext.MetadataWorkspace.GetItems(Of System.Data.Metadata.Edm.EntityType)(System.Data.Metadata.Edm.DataSpace.CSpace) _
From p In meta.Properties _
Where p.DeclaringType.Name = entity.GetType().Name _
    And p.Name = propertyName _
Select p
于 2009-07-26T05:09:43.010 回答
0

如果我在 VB.NET 中编写此查询，我会在没有 lambda 的情况下这样做。我认为它更容易阅读，但你这样做的方式可能会让 C# 开发人员更容易阅读。

Dim query2 = _
    From meta In entityObjectContext.MetadataWorkspace.GetItems(System.Data.Metadata.Edm.DataSpace.CSpace) _
        Where m.BuiltInTypeKind = System.Data.Metadata.Edm.BuiltInTypeKind.EntityType _
            From p In CType(meta, System.Data.Metadata.Edm.EntityType).Properties _
                Where p.DeclaringType.Name = entity.GetType().Name _
                     And p.Name = propertyName) _
            Select p
于 2009-07-26T05:43:50.240 回答