SqlDataReaderを利用したSQLの実行方法です。
※Windows認証を利用
メモとしてコードのみざっと記載してみます。
Public Class SQLSample
Public Sample Sub Main()
‘データベースへの接続
Dim Con As New SqlClient.SqlConnection
Con.ConnectionString = _
“Data Source = [サーバ名];” & _
“Initial Catalog = [データベース名];” & _
“Integrated Security = SSPI”
Try
Con.Open()
Dim command As New SqlClient.SqlCommand
‘コネクションの指定
command.Connection = Con
‘コマンドの種類をテキストにする(省略可)
command.CommandType = CommandType.Text
‘実行するSQLを指定
command.CommandText = “SELECT * FROM [テーブル名]”
‘SQLの結果を取得する
Dim sr As SqlClient.SqlDataReader
sr = command.ExecuteReader()
command.Dispose()
‘取得した結果を出力する
While sr.Read
‘レコードの最初の項目を出力
Console.Write(sr(0).ToString & “,”)
‘レコードの2番目の項目を出力
Console.Write(sr(1).ToString)
End While
Finally
‘コネクションの破棄
If Con.State <> ConnectionState.Closed Then
Con.Close()
Con.Dispose()
End If
End Try
End Sub
End Class
Public Sample Sub Main()
‘データベースへの接続
Dim Con As New SqlClient.SqlConnection
Con.ConnectionString = _
“Data Source = [サーバ名];” & _
“Initial Catalog = [データベース名];” & _
“Integrated Security = SSPI”
Try
Con.Open()
Dim command As New SqlClient.SqlCommand
‘コネクションの指定
command.Connection = Con
‘コマンドの種類をテキストにする(省略可)
command.CommandType = CommandType.Text
‘実行するSQLを指定
command.CommandText = “SELECT * FROM [テーブル名]”
‘SQLの結果を取得する
Dim sr As SqlClient.SqlDataReader
sr = command.ExecuteReader()
command.Dispose()
‘取得した結果を出力する
While sr.Read
‘レコードの最初の項目を出力
Console.Write(sr(0).ToString & “,”)
‘レコードの2番目の項目を出力
Console.Write(sr(1).ToString)
End While
Finally
‘コネクションの破棄
If Con.State <> ConnectionState.Closed Then
Con.Close()
Con.Dispose()
End If
End Try
End Sub
End Class
ちなみに、
SqlClient.SqlDataReaderに格納されている項目数は、
FieldCountプロパティを利用して調べることができます。
Debug.WriteLine(“項目数 = ” + sr.FieldCount())