tk/FreeSql
1
0
Fork 0
mirror of https://github.com/nsnail/FreeSql.git synced 2025-06-18 20:08:15 +08:00
Code Issues Packages Projects Releases Wiki Activity

add vb.net tests

Browse Source
This commit is contained in:
28810
2019-12-16 10:49:35 +08:00
parent c7b63ef474
commit 38d5580c54
12 changed files with 81 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
FreeSql.Tests.VB/UnitTest1.vb Normal file
View File

@ -0,0 +1,23 @@
Imports System
Imports Xunit
Namespace FreeSql.Tests.VB
Public Class UnitTest1
<Fact>
Sub TestSub()
REM VB.net <20><><EFBFBD><EFBFBD>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD>
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})
End Sub
End Class
End Namespace
Class Testvb
Property Id As Integer
Property Title As String
End Class