クラス定義無しでSQLの結果を受け取りたい

Question

前提・実現したいこと

VBでSQLを投げ、帰ってきた結果を表示させようと思います。
今まではクラスを作成し、そこにマッピングさせていたのですが、
今回はこの場所でしか使わないSQLであるため、クラスを作るのが面倒に思いました。
クラスを宣言せずに結果を入手することはできますでしょうか？

発生している問題・エラーメッセージ

A parameterless default constructor or one matching signature (System.Int32 id, System.String name, System.Decimal quantity) is required for System.Tuple`4[[System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089],[System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089],[System.Decimal, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089]] materialization

以下、スタックトレース
   場所 Dapper.SqlMapper.GetTypeDeserializerImpl(Type type, IDataReader reader, Int32 startBound, Int32 length, Boolean returnNullIfFirstMissing)
   場所 Dapper.SqlMapper.TypeDeserializerCache.GetReader(IDataReader reader, Int32 startBound, Int32 length, Boolean returnNullIfFirstMissing)
   場所 Dapper.SqlMapper.TypeDeserializerCache.GetReader(Type type, IDataReader reader, Int32 startBound, Int32 length, Boolean returnNullIfFirstMissing)
   場所 Dapper.SqlMapper.GetDeserializer(Type type, IDataReader reader, Int32 startBound, Int32 length, Boolean returnNullIfFirstMissing)
   場所 Dapper.SqlMapper.<QueryImpl>d__69`1.MoveNext()
   場所 System.Collections.Generic.List`1..ctor(IEnumerable`1 collection)
   場所 System.Linq.Enumerable.ToList[TSource](IEnumerable`1 source)
   場所 Dapper.SqlMapper.Query[T](IDbConnection cnn, String sql, Object param, IDbTransaction transaction, Boolean buffered, Nullable`1 commandTimeout, Nullable`1 commandType)
   場所 Test.Database.DBAccessDapper.SelectSql[T](String sql, Object parameters) 場所 ***Test\Database\DBAccessDapper.vb:行 212
   場所 Test.MyProject.TestDao.GetList[T](DBAccessDapper db, Boolean deleteContain) 場所 ***Test\MyProject\Dao\Impl\TrnTestDao.vb:行 277

該当のソースコード

Imports System.IO
Imports System.Reflection
Imports MyProject.Utils
Imports Dapper
Imports Npgsql

Namespace Database

    Public Class DBAccessDapper
        Implements IDisposable

#Region "定数"

        Private Const DATABASE_ENCODING As String = "UTF8"

#End Region

#Region "Private変数"

        Private Connection As IDbConnection
        Private Transaction As IDbTransaction
        Private Shared _DbConfigData As DbConfigData
        Private ReadOnly Property IsConnected As Boolean
            Get
                Return If(Connection IsNot Nothing, Connection.State = ConnectionState.Open, False)
            End Get
        End Property

#End Region

#Region "Publicメソッド"

        ''' <summary>
        ''' コンストラクタ
        ''' </summary>
        Public Sub New()
            Try
                DefaultTypeMap.MatchNamesWithUnderscores = True
                GetDbConfiData()
                Open()
            Catch ex As Exception
                Throw New Exception("接続に失敗しました。" & " : " & ex.Message, ex)
            End Try
        End Sub

        ''' <summary>
        ''' コンストラクタ
        ''' </summary>
        Public Sub New(ByVal hostName As String, ByVal port As Integer, ByVal userName As String, password As String, ByVal databaseName As String)
            Try
                DefaultTypeMap.MatchNamesWithUnderscores = True
                Open(hostName, port, userName, password, databaseName)
            Catch ex As Exception
                Throw New Exception("接続に失敗しました。" & " : " & ex.Message, ex)
            End Try
        End Sub

        ''' <summary>
        ''' データベースへの接続処理
        ''' ※接続情報を設定ファイルから取得
        ''' </summary>
        Public Sub Open()
            Open(_DbConfigData.ServerName, _DbConfigData.Port, _DbConfigData.UserId, _DbConfigData.Password, _DbConfigData.DatabaseName)
        End Sub

        ''' <summary>
        ''' データベースへの接続処理
        ''' ※接続情報を引数から取得
        ''' </summary>
        ''' <param name="hostName">ホスト名</param>
        ''' <param name="port">ポート</param>
        ''' <param name="userName">ユーザー名</param>
        ''' <param name="password">パスワード</param>
        ''' <param name="dbName">データベース名</param>
        Public Sub Open(ByVal hostName As String, ByVal port As Integer, ByVal userName As String, password As String, ByVal dbName As String)
            If Connection Is Nothing Then Connection = New NpgsqlConnection

            Dim connStrBuilder As New NpgsqlConnectionStringBuilder
            Try
                '接続情報の設定
                connStrBuilder.Host = hostName
                connStrBuilder.Port = port
                connStrBuilder.UserName = userName
                connStrBuilder.Password = password
                connStrBuilder.Database = dbName

                '接続文字列の作成
                Connection.ConnectionString = connStrBuilder.ToString

                '接続
                Connection.Open()
            Catch ex As Exception
                Throw New Exception("接続に失敗しました。" & " : " & ex.Message & "|" & connStrBuilder.ToString, ex)
            End Try
        End Sub

～省略～

        ''' <summary>
        ''' SQLの実行(SELECT)
        ''' </summary>
        ''' <typeparam name="T"></typeparam>
        ''' <param name="sql">SQL文</param>
        ''' <param name="parameters">SQLパラメーター</param>
        ''' <returns></returns>
        Public Function SelectSql(Of T)(ByVal sql As String, Optional ByVal parameters As Object = Nothing) As IEnumerable(Of T)
            If Not IsConnected Then Throw New InvalidOperationException("データベースに接続されていません。")

            Return If(parameters IsNot Nothing, Connection.Query(Of T)(sql, parameters), Connection.Query(Of T)(sql))
        End Function

        ''' <summary>
        ''' データ取得
        ''' </summary>
        ''' <remarks></remarks>
        Public Function GetList(Of T)(db As DBAccessDapper, Optional ByVal deleteContain As Boolean = False) As IEnumerable(Of T)
            Dim query As New StringBuilder
            query.
            Append("SELECT ").
            Append("  id ").
            Append(", name ").
            Append(", quantity ").
            Append("FROM ").
            Append("  mst_Test").

            Try
                Dim temp = db.SelectSql(Of Tuple(Of Integer, String, Decimal))(query.ToString)

                Return temp
            Catch ex As Exception
                Throw New Exception(ex.Message, ex)
            End Try
        End Function

id(integer)	name(character varying(128))	quantity(numeric(16,6))
1	一郎	1.5
2	二郎	1.8
3	三郎	1.75

試したこと

Tupleもしくは匿名型を使えばなんとかなりそうだと思ったのですが、書き方が分かりませんでした。
(現状のソースはTupleを使ってみようとしています)
参考：Dapperで匿名型を使う
こういった場合のベストプラクティスをご教授いただけると幸いです。
どうぞよろしくお願いいたします。

補足情報（FW/ツールのバージョンなど）

VB 2012
.NET Framework 4
Postgresql 9.3
Windows Forms使用

Comments

[退会済みユーザー]

VBじゃなくてVB.NETにするとよさげ。

[heart_crimson]

コメントありがとうございます。修正しました。

[退会済みユーザー]

Windows Forms アプリの話ですか？ Dapper とか使ってます？ それぐらいは質問に含めて書きましょうよ。

[heart_crimson]

コメントありがとうございます。情報が足りず大変申し訳ございません。追記いたしました。まだ不足がございましたらご指摘いただけますと幸いです。

[退会済みユーザー]

Dapper を使うのが必須条件ということですと自分は回答できませんが、必須でなくて、単純に IEnumerable(Of T) の　T を定義するのが面倒ということであれば、そのクラス定義を含めてコードを自動生成してくれる ADO.NET Emtity Data Model のウィザードを使うというのはいかがですか？　PostgreSQL のデザイナがどこまでサポートしているか不明ですが SQL Server と同等ならすべて自動生成してくれます。そんなとは十分ご承知で、そんな単純な話ではないということでしたら失礼しました。

[heart_crimson]

Tの定義が面倒というのが事の発端です。「ADO.NET」というものを初めて聞きました。他の個所でもDapperを使用しているのでこちらも同じように使いたいですが、ADO.NETの使い勝手や仕様によっては使ってみようと思います。貴重なご意見ありがとうございます。

Answer 1

sqlをxmlなどのＤＢへ格納し、プログラムでそこからsqlを読み出し
必要な個所を置き換えsqlを発行する方法でどうでしょうか？xmlに登録することにより（外部ファイル）sqlの整合性チェック（explain　により）により確認したり
ｓｑｌとその説明を関連ずけることにより、sqlの仕様書を発行させる機能を提供することができるかと思います。また、explanにはsqlに所要する時間も計測する機能も（実際に更新するのでrollbackが必要）あります。これによりプログラム的な問題とsqlの問題を切り離して確認することができます。このように構築することにより、別システムでも再利用（利用するsqlを置き換えるだけで）することも可能になり、生産性向上にもつながるかと思います。
セキュリティに問題があるようであれば、xmlに登録したsqlを暗号化することも考慮するとより堅牢となることと思います。