SqlDataRecord reflection resolution is different depending the SqlClient library, tests passing now.

Author: smoothdeveloper

src/SqlClient.DesignTime/DesignTime.fs

@@ -611,7 +611,7 @@ type DesignTime private() =
                 //record.SetValues(values) |> ignore
 
                 //done via reflection because not implemented on Mono
-                let sqlDataRecordType = typeof<SqlCommand>.Assembly.GetType("Microsoft.SqlServer.Server.SqlDataRecord", throwOnError = true)
+                let sqlDataRecordType = TypeResolution.sqlDataRecordType
                 let record = Activator.CreateInstance(sqlDataRecordType, args = [| %%Expr.Coerce(Expr.NewArray(typeof<SqlMetaData>, sqlMetas), typeof<obj>) |])
                 sqlDataRecordType.GetMethod("SetValues").Invoke(record, [| values |]) |> ignore
 

src/SqlClient/ISqlCommand.fs

@@ -61,6 +61,16 @@ module internal TypeResolution =
             Type.GetType(stripped, throwOnError = true)
         | t -> t
 
+    let sqlDataRecordType =
+        typeof<SqlCommand>
+          .Assembly
+          #if SYSTEM_DATA_SQLCLIENT
+          .GetType("Microsoft.SqlServer.Server.SqlDataRecord", throwOnError = true)
+          #endif
+          #if MICROSOFT_DATA_SQLCLIENT
+          .GetType("Microsoft.Data.SqlClient.Server.SqlDataRecord", throwOnError = true)
+          #endif
+
 [<CompilerMessageAttribute("This API supports the FSharp.Data.SqlClient infrastructure and is not intended to be used directly from your code.", 101, IsHidden = true)>]
 type RowMapping = obj[] -> obj
 
@@ -264,7 +274,7 @@ type ``ISqlCommand Implementation``(cfg: DesignTimeConfig, connection: Connectio
 
                         //done via reflection because not implemented on Mono
 
-                        let sqlDataRecordType = typeof<SqlCommand>.Assembly.GetType("Microsoft.SqlServer.Server.SqlDataRecord", throwOnError = true)
+                        let sqlDataRecordType = TypeResolution.sqlDataRecordType
                         let records = typeof<Linq.Enumerable>.GetMethod("Cast").MakeGenericMethod(sqlDataRecordType).Invoke(null, [| value |]) 
                         let hasAny = 
                             let anyMeth =