FreeSql/FreeSql.Tests.VB/UnitTest1.vb

Imports System
Imports Xunit

Namespace FreeSql.Tests.VB
    Public Class UnitTest1
        <Fact>
        Sub TestSub()

            REM VB.net ±í´ïʽ½âÎö¼æÈÝÐÔ²âÊÔ
            Dim List1 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Id = 100).ToList()
            Dim List2 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Title = "xxx").ToList()
            Dim List3 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.Title <> "xxx").ToList()

            Dim List4 = g.sqlserver.Select(Of Testvb).ToList(Function(a) New With {a, a.Id, a.Title})

            Dim List5 = g.sqlserver.Select(Of Testvb).Where(Function(a) a.IsDeleted).ToList()

        End Sub
    End Class
End Namespace

Class Testvb
    Property Id As Integer
    Property Title As String
    Property IsDeleted As Boolean
End Class