C# VB Web システム開発の部屋

システム開発で役に立つコードを厳選したブログです。

【VB.NET】SELECT結果をデータテーブルに格納する ーモジュール①ー

 

<プログラムの説明>

SELECT文の結果をデータテーブルに格納して返します。エラーが発生した場合はNothingを返します。

 

<引数の説明>

SqlCmdText ・・・ SQL Query(SELECT文)

 

<DebuggerStepThrough>
Public Function SqlST(ByVal SqlCmdText As String) As DataTable

        Dim dt As New DataTable

        Using SqlConnection As New SqlClient.SqlConnection
            Dim SqlCommand As SqlClient.SqlCommand = SqlConnection.CreateCommand
            Dim SqlDataAdapter As New SqlClient.SqlDataAdapter

            'My.SettingのSQL Serverデータベースを開
            SqlConnection.ConnectionString = My.Settings.SqlCon

            '最大待機時間を10分に設定
            SqlCommand.CommandTimeout = 600

            Try
                SqlCommand.CommandText = SqlCmdText
                SqlDataAdapter.SelectCommand = SqlCommand

                'データテーブルに格納
                SqlDataAdapter.Fill(dt)

                Return dt

            Catch ex As Exception
                MessageBox.Show(ex.Message)
            Finally
                SqlCommand.Dispose()
            End Try

        End Using

    End Function