add vb.net tests

Examples/test_vb/Program.vb

@@ -1,26 +0,0 @@
-Imports System
-
-Module Program
-    Sub Main(args As String())
-        Console.WriteLine("Hello World!")
-
-        Dim fsql = New FreeSql.FreeSqlBuilder() _
-            .UseConnectionString(FreeSql.DataType.Sqlite, "data source=testvb.db") _
-            .UseAutoSyncStructure(True) _
-            .UseMonitorCommand(Sub(cmd) Trace.WriteLine(cmd.CommandText)) _
-        .Build()
-
-        REM Microsoft.VisualBasic.CompilerServices.Operators.CompareString()
-        Dim List1 = fsql.Select(Of Testvb).Where(Function(a) a.Id = 100).ToList()
-        Dim List2 = fsql.Select(Of Testvb).Where(Function(a) a.Title = "xxx").ToList()
-        Dim List3 = fsql.Select(Of Testvb).Where(Function(a) a.Title <> "xxx").ToList()
-
-        fsql.Dispose()
-    End Sub
-End Module
-
-Class Testvb
-    Property Id As Integer
-    Property Title As String
-End Class
-

Examples/test_vb/test_vb.vbproj

@@ -1,13 +0,0 @@
-<Project Sdk="Microsoft.NET.Sdk">
-
-  <PropertyGroup>
-    <OutputType>Exe</OutputType>
-    <RootNamespace>test_vb</RootNamespace>
-    <TargetFramework>netcoreapp3.1</TargetFramework>
-  </PropertyGroup>
-
-  <ItemGroup>
-    <ProjectReference Include="..\..\Providers\FreeSql.Provider.Sqlite\FreeSql.Provider.Sqlite.csproj" />
-  </ItemGroup>
-
-</Project>

Extensions/FreeSql.Generator/FreeSql.Generator.csproj

@@ -9,7 +9,7 @@
     <Authors>2881099</Authors>
     <Company>2881099</Company>
     <Product>FreeSql123</Product>
-    <Description>使用 FreeSql 快速生成数据库的实体类； dotnet tool install -g FreeSql.Generator</Description>
+    <Description>使用 FreeSql 快速生成数据库的实体类，安装：dotnet tool install -g FreeSql.Generator</Description>
     <PackageProjectUrl>https://github.com/2881099/FreeSql</PackageProjectUrl>
     <RepositoryUrl>https://github.com/2881099/FreeSql</RepositoryUrl>
     <Version>0.12.20</Version>

FreeSql.DbContext/FreeSql.DbContext.csproj

@@ -5,7 +5,7 @@
     <Version>0.12.20</Version>
     <GeneratePackageOnBuild>true</GeneratePackageOnBuild>
     <Authors>YeXiangQin</Authors>
-    <Description>FreeSql is the most convenient ORM in .NetCore, .NetFramework, And Xamarin. It supports Mysql, Postgresql, SqlServer, Oracle, Sqlite, And Odbc.</Description>
+    <Description>FreeSql is the ORM in .NetCore, .NetFramework, And Xamarin. It supports Mysql, Postgresql, SqlServer, Oracle, Sqlite, And Odbc. 达梦</Description>
     <PackageProjectUrl>https://github.com/2881099/FreeSql.DbContext</PackageProjectUrl>
     <PackageTags>FreeSql ORM DbContext</PackageTags>
     <RepositoryType>git</RepositoryType>

FreeSql.DbContext/FreeSql.DbContext.xml

@@ -110,13 +110,6 @@
             清空状态数据
             </summary>
         </member>
-        <member name="M:FreeSql.DbSet`1.RemoveAsync(System.Linq.Expressions.Expression{System.Func{`0,System.Boolean}})">
-            <summary>
-            根据 lambda 条件删除数据
-            </summary>
-            <param name="predicate"></param>
-            <returns></returns>
-        </member>
         <member name="M:FreeSql.DbSet`1.Add(`0)">
             <summary>
             添加

FreeSql.Repository/FreeSql.Repository.csproj

@@ -4,7 +4,7 @@
     <TargetFrameworks>netstandard2.0;net45;net40</TargetFrameworks>
     <Version>0.12.20</Version>
     <Authors>YeXiangQin</Authors>
-    <Description>FreeSql Implementation of General Repository, Support MySql/SqlServer/PostgreSQL/Oracle/Sqlite, and read/write separation、and split table.</Description>
+    <Description>FreeSql Implementation of General Repository, Support MySql/SqlServer/PostgreSQL/Oracle/Sqlite/达梦, and read/write separation、and split table.</Description>
     <PackageProjectUrl>https://github.com/2881099/FreeSql/wiki/Repository</PackageProjectUrl>
     <PackageTags>FreeSql ORM Repository</PackageTags>
     <GeneratePackageOnBuild>true</GeneratePackageOnBuild>

FreeSql.Tests.VB/FreeSql.Tests.VB.vbproj

@@ -0,0 +1,23 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <RootNamespace>FreeSql.Tests.VB</RootNamespace>
+    <TargetFramework>netcoreapp3.1</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="16.2.0" />
+    <PackageReference Include="xunit" Version="2.4.0" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.4.0" />
+    <PackageReference Include="coverlet.collector" Version="1.0.1" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <ProjectReference Include="..\Extensions\FreeSql.Extensions.LazyLoading\FreeSql.Extensions.LazyLoading.csproj" />
+    <ProjectReference Include="..\FreeSql.DbContext\FreeSql.DbContext.csproj" />
+    <ProjectReference Include="..\Providers\FreeSql.Provider.SqlServer\FreeSql.Provider.SqlServer.csproj" />
+  </ItemGroup>
+
+</Project>

FreeSql.Tests.VB/UnitTest1.vb

@@ -0,0 +1,23 @@
+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})
+
+        End Sub
+    End Class
+End Namespace
+
+Class Testvb
+    Property Id As Integer
+    Property Title As String
+End Class

FreeSql.Tests.VB/g.vb

@@ -0,0 +1,18 @@
+Imports System.Threading
+
+Public Class g
+
+    Shared sqlserverLazy As Lazy(Of IFreeSql) = New Lazy(Of IFreeSql)(New Func(Of IFreeSql)(Function() New FreeSqlBuilder() _
+        .UseConnectionString(DataType.SqlServer, "Data Source=.;Integrated Security=True;Initial Catalog=freesqlTest;Pooling=true;Max Pool Size=3") _
+        .UseAutoSyncStructure(True) _
+        .UseMonitorCommand(Sub(cmd) Trace.WriteLine("\r\n线程" & Thread.CurrentThread.ManagedThreadId & ": " & cmd.CommandText)) _
+        .UseLazyLoading(True) _
+        .Build()))
+
+    Public Shared ReadOnly Property sqlserver As IFreeSql
+        Get
+            Return sqlserverLazy.Value
+        End Get
+    End Property
+
+End Class

FreeSql.sln

@@ -68,7 +68,7 @@ Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "orm_vs_net40", "Examples\or
 EndProject
 Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "FreeSql.Generator", "Extensions\FreeSql.Generator\FreeSql.Generator.csproj", "{6A3A4470-7DF7-411B-AAD7-755D7A9DB5A4}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "test_vb", "Examples\test_vb\test_vb.vbproj", "{0A2206B1-1D34-45F4-B028-E3C5D6F02295}"
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "FreeSql.Tests.VB", "FreeSql.Tests.VB\FreeSql.Tests.VB.vbproj", "{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
@@ -404,18 +404,18 @@ Global
 		{6A3A4470-7DF7-411B-AAD7-755D7A9DB5A4}.Release|x64.Build.0 = Release|Any CPU
 		{6A3A4470-7DF7-411B-AAD7-755D7A9DB5A4}.Release|x86.ActiveCfg = Release|Any CPU
 		{6A3A4470-7DF7-411B-AAD7-755D7A9DB5A4}.Release|x86.Build.0 = Release|Any CPU
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}.Debug|x64.ActiveCfg = Debug|Any CPU
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295}.Debug|x64.Build.0 = Debug|Any CPU
+		{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}.Debug|x64.Build.0 = Debug|Any CPU
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}.Debug|x86.ActiveCfg = Debug|Any CPU
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295}.Debug|x86.Build.0 = Debug|Any CPU
+		{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}.Debug|x86.Build.0 = Debug|Any CPU
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295}.Release|Any CPU.Build.0 = Release|Any CPU
+		{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}.Release|Any CPU.Build.0 = Release|Any CPU
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295}.Release|x64.ActiveCfg = Release|Any CPU
+		{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}.Release|x64.ActiveCfg = Release|Any CPU
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295}.Release|x64.Build.0 = Release|Any CPU
+		{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}.Release|x64.Build.0 = Release|Any CPU
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295}.Release|x86.ActiveCfg = Release|Any CPU
+		{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}.Release|x86.ActiveCfg = Release|Any CPU
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295}.Release|x86.Build.0 = Release|Any CPU
+		{A4FB811A-15EF-4E4C-AC15-826F9BB44E2D}.Release|x86.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
@@ -440,7 +440,6 @@ Global
 		{C57444BA-8BF7-4790-A864-7F237123219B} = {2A381C57-2697-427B-9F10-55DA11FD02E4}
 		{1674BCE3-EEB4-4003-A2A7-06F51EFAEA23} = {94C8A78D-AA15-47B2-A348-530CD86BFC1B}
 		{6A3A4470-7DF7-411B-AAD7-755D7A9DB5A4} = {4A92E8A6-9A6D-41A1-9CDA-DE10899648AA}
-		{0A2206B1-1D34-45F4-B028-E3C5D6F02295} = {94C8A78D-AA15-47B2-A348-530CD86BFC1B}
 	EndGlobalSection
 	GlobalSection(ExtensibilityGlobals) = postSolution
 		SolutionGuid = {089687FD-5D25-40AB-BA8A-A10D1E137F98}

FreeSql/FreeSql.csproj

@@ -5,7 +5,7 @@
 		<Version>0.12.20</Version>
 		<GeneratePackageOnBuild>true</GeneratePackageOnBuild>
 		<Authors>YeXiangQin</Authors>
-		<Description>FreeSql is the most convenient ORM in .NetCore, .NetFramework, And Xamarin. It supports Mysql, Postgresql, SqlServer, Oracle, Sqlite, And Odbc.</Description>
+		<Description>FreeSql is the ORM in .NetCore, .NetFramework, And Xamarin. It supports Mysql, Postgresql, SqlServer, Oracle, Sqlite, And Odbc. 达梦</Description>
 		<PackageProjectUrl>https://github.com/2881099/FreeSql</PackageProjectUrl>
 		<RepositoryUrl>https://github.com/2881099/FreeSql</RepositoryUrl>
 		<RepositoryType>git</RepositoryType>