Private Function DataTableForServerType(ByVal Connection As SqlConnection, ByVal ServerTypeName As String) As DataTable
Dim SanitisedQualifiedTypeName As String
Using cmd = New SqlCommand()
cmd.Connection = Connection
cmd.CommandType = CommandType.Text
cmd.CommandText = "select top (1) quotename(schema_name([schema_id]), '[') + N'.' + quotename([name], '[') from [sys].[types] where [name] = parsename(@type_name,1) and [schema_id] = isnull(schema_id(parsename(@type_name,2)), [schema_id]) and [is_table_type] = 1;"
cmd.Parameters.Add("@type_name", SqlDbType.NVarChar, 128).Value = ServerTypeName
SanitisedQualifiedTypeName = CType(cmd.ExecuteScalar(), String)
If String.IsNullOrEmpty(SanitisedQualifiedTypeName) Then
Throw New Exception(String.Format("Table type '{0}' does not exist or you don't have permission.", ServerTypeName))
End If
End Using
Using ada = New SqlDataAdapter("declare @t " & SanitisedQualifiedTypeName & "; select * from @t;", Connection)
Dim res As New DataTable
ada.Fill(res)
Return res
End Using
End Function