Don't attatch non-provided types

Author: Sam Hanes

src/SqlClient/DesignTime.fs

@@ -62,10 +62,15 @@ module internal SharedLogic =
     let alterReturnTypeAccordingToResultType (returnType: ReturnType) (cmdProvidedType: ProvidedTypeDefinition) resultType =
         if resultType = ResultType.Records then
             // Add .Record
-            returnType.PerRow |> Option.iter (fun x -> cmdProvidedType.AddMember x.Provided)
+            returnType.PerRow |> Option.iter (fun x -> 
+                if x.Provided <> x.ErasedTo
+                then cmdProvidedType.AddMember x.Provided
+            )
         elif resultType = ResultType.DataTable then
             // add .Table
-            returnType.Single |> cmdProvidedType.AddMember
+            returnType.Single |> function
+            | :? ProvidedTypeDefinition -> cmdProvidedType.AddMember returnType.Single
+            | _ -> ()
 
 module Prefixes =
     let tempTable = "##SQLCOMMANDPROVIDER_"

src/SqlClient/SqlClient.fsproj

@@ -26,7 +26,7 @@
     <DocumentationFile>
     </DocumentationFile>
     <StartAction>Program</StartAction>
-    <StartProgram>C:\Program Files (x86)\Microsoft Visual Studio 14.0\Common7\IDE\devenv.exe</StartProgram>
+    <StartProgram>C:\Program Files (x86)\Microsoft Visual Studio\2017\Professional\Common7\IDE\devenv.exe</StartProgram>
     <StartArguments>..\Tests.sln</StartArguments>
     <NoWarn>101</NoWarn>
     <OtherFlags>--warnon:1182</OtherFlags>

src/SqlClient/SqlClientProvider.fs

@@ -515,9 +515,14 @@ type SqlProgrammabilityProvider(config : TypeProviderConfig) as this =
                     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> 
-                        cmdProvidedType.AddMember( returnType.Single) 
+                        returnType.Single |> function
+                        | :? ProvidedTypeDefinition -> cmdProvidedType.AddMember returnType.Single
+                        | _ -> ()
                     else
-                        returnType.PerRow |> Option.iter (fun x -> cmdProvidedType.AddMember x.Provided)
+                        returnType.PerRow |> Option.iter (fun x -> 
+                            x.Provided |> function 
+                                | :? ProvidedTypeDefinition -> cmdProvidedType.AddMember x.Provided 
+                                | _ -> ())
 
                     let designTimeConfig = 
                         let expectedDataReaderColumns =