fixes to exposing Table type

* add a sample on how to refer to the table and row types in docs/contents/output.fsx
* expose Row type as a inner type of Table type
* changed SqlClient.Tests.fsproj to compile with

Author: smoothdeveloper

docs/content/output.fsx

@@ -113,6 +113,14 @@ let table = (new QueryPersonInfoSingletoneDataTable()).AsyncExecute(PersonId = 2
 for row in table.Rows do
     printfn "Person info:Id - %i,FirstName - %O,LastName - %O" row.PersonID row.FirstName row.LastName 
 
+// you can refer to the table type
+let table2 : QueryPersonInfoSingletoneDataTable.Table = (new QueryPersonInfoSingletoneDataTable()).Execute(PersonId = 2)
+
+// you can refer to the row type
+for row : QueryPersonInfoSingletoneDataTable.Table.Row in table2.Rows do
+  printfn "Person info:Id - %i,FirstName - %O,LastName - %O" row.PersonID row.FirstName row.LastName 
+
+
 (**
 
  * Same as previous but using `SqlProgrammabilityProvider<...>`

src/SqlClient.Tests/DataTablesTests.fs

@@ -9,7 +9,8 @@ open FSharp.Data
 open FSharp.Data.SqlClient
 open Xunit
 
-type AdventureWorks = SqlProgrammabilityProvider<ConnectionStrings.AdventureWorksNamed>
+open ProgrammabilityTest
+
 //Tables types structured as: [TypeAlias].[Namespace].Tables.[TableName]
 type ShiftTable = AdventureWorks.HumanResources.Tables.Shift
 type ProductCostHistory = AdventureWorks.Production.Tables.ProductCostHistory
@@ -273,6 +274,8 @@ type DataTablesTests() =
     [<Fact>]
     member __.``Can use Table type when ResultType = ResultType.DataTable`` () =
       let t : GetArbitraryDataAsDataTable.Table = (new GetArbitraryDataAsDataTable()).Execute()
+      for (r: GetArbitraryDataAsDataTable.Table.Row) in t.Rows do
+        ()
       Assert.NotNull(t)
       Assert.Equal(1, t.Rows.[0].a)
       Assert.Equal(2, t.Rows.[0].b)

src/SqlClient/DesignTime.fs

@@ -191,6 +191,10 @@ type DesignTime private() =
         then
             let dataRowType = DesignTime.GetDataRowType outputColumns
             let dataTableType = DesignTime.GetDataTableType dataRowType 
+            
+            // add .Row to .Table
+            dataTableType.AddMember dataRowType
+
             {
                 ProvidedType = dataTableType
                 ErasedToType = typeof<DataTable<DataRow>>

src/SqlClient/SqlClientProvider.fs

@@ -540,7 +540,12 @@ type public SqlProgrammabilityProvider(config : TypeProviderConfig) as this =
                         addRedirectToISqlCommandMethod typeof<string> "ToTraceString" 
 
                     commands.AddMember cmdProvidedType
-                    output.ProvidedRowType |> Option.iter cmdProvidedType.AddMember
+                    if resultType = ResultType.DataTable then
+                        // if we don't do this, we get a compile error
+                        // Error The type provider 'FSharp.Data.SqlProgrammabilityProvider' reported an error: type 'Table' was not added as a member to a declaring type <type instanciation name> 
+                        output.ProvidedType |> cmdProvidedType.AddMember
+                    else
+                        output.ProvidedRowType |> Option.iter cmdProvidedType.AddMember
 
                     let designTimeConfig = 
                         let expectedDataReaderColumns = 

src/SqlClient/SqlCommandProvider.fs

@@ -141,11 +141,11 @@ type public SqlCommandProvider(config : TypeProviderConfig) as this =
         do  
             cmdProvidedType.AddMember(ProvidedProperty("ConnectionStringOrName", typeof<string>, [], IsStatic = true, GetterCode = fun _ -> <@@ connectionStringOrName @@>))
 
-        do  
-            //for ResultType.Record and ResultType.DataTable
-            output.ProvidedRowType |> Option.iter cmdProvidedType.AddMember
-            
-            if resultType = ResultType.DataTable then
+        do
+            if resultType = ResultType.Records then
+                // Add .Record
+                output.ProvidedRowType |> Option.iter cmdProvidedType.AddMember
+            elif resultType = ResultType.DataTable then
                 // add .Table
                 output.ProvidedType |>  cmdProvidedType.AddMember