Back to Top

プログラムの覚書

Category: VB.NET

VB.NET

VB.NET レコード数を取得する

テーブルのレコード数を取得する方法を記載します。

レコード数の取得は、ExecuteScalar メソッドを使用します。

レコード数を取得する

Dim builder As SqlConnectionStringBuilder = New SqlConnectionStringBuilder()
builder.DataSource = ".\SQLEXPRESS"
builder.AttachDBFilename = "D:\DB\TestDB.mdf"
builder.IntegratedSecurity = True
builder.UserInstance = True
builder.MultipleActiveResultSets = True
Dim ConnectString As String = builder.ToString()

Using sqlConnect As New SqlConnection(ConnectString)
    sqlConnect.Open()

    Dim command As SqlCommand = New SqlCommand("SELECT COUNT(*) FROM Table_1", sqlConnect)

    Dim Count As Integer = command.ExecuteScalar()

    MessageBox.Show(Count.ToString)
End Using

 

VB.NET DataTableにレコードを読み込む

DataTableにデータベースのレコードを簡単に読み込む方法を説明します。

欠点としてあまり大きいデータだと制御がしばらく戻ってきません。またメモリーオーバーになることもあります。

読み込む前にガーベージを行ってメモリーをあけるとそれなりに読み込めます。

DataTableにレコードを読み込む

Dim builder As SqlConnectionStringBuilder = New SqlConnectionStringBuilder()
builder.DataSource = ".\SQLEXPRESS"
builder.AttachDBFilename = "D:\DB\TestDB.mdf"
builder.IntegratedSecurity = True
builder.UserInstance = True
builder.MultipleActiveResultSets = True
Dim ConnectString As String = builder.ToString()

Using sqlConnect As New SqlConnection(ConnectString)
    sqlConnect.Open()

    Dim tbl As DataTable = New DataTable()

    Using command As SqlCommand = sqlConnect.CreateCommand()
        command.CommandText = "SELECT * FROM Table_1"

        Dim reader As SqlDataReader = command.ExecuteReader()
        tbl.Load(reader)
        reader.Close()
    End Using

End Using