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

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

【VB.NET】SELECT結果(1行目)を配列に格納する ーモジュール②ー

 

<プログラムの説明>

 SELECT結果(1行目)を配列に格納して返します。0行の場合はNothingを返します。

 

<引数の説明>

 SqlCmdText・・・SQL Query(SELECT文)    

 

 <DebuggerStepThrough>
 Public Function SqlSA(ByVal SqlCmdText As String) As String()

     Using SqlConnection As New SqlClient.SqlConnection
         Dim SqlCommand As SqlClient.SqlCommand = SqlConnection.CreateCommand
         Dim SqlDataReader As SqlClient.SqlDataReader = Nothing

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

         SqlConnection.Open()

         Try
             SqlCommand.CommandText = SqlCmdText
             SqlDataReader = SqlCommand.ExecuteReader

             If SqlDataReader.HasRows = True Then
                 'データを取得できた場合

                 '1行目を読み込む
                 SqlDataReader.Read()

                 '配列に格納する
                 Dim ary(SqlDataReader.FieldCount - 1) As String
                 Dim intI As Integer = 0
                 Do While intI < SqlDataReader.FieldCount
                     ary(intI) = SqlDataReader(intI).ToString.Trim
                     intI += 1
                 Loop

                 Return ary
             Else
                 'データを取得できなかった場合
                 Dim str(0) As String
Return str End If Catch ex As Exception MessageBox.Show(ex.Message) Finally If Not SqlDataReader Is Nothing Then SqlDataReader.Close() End If SqlCommand.Dispose() End Try End Using End Function