VB データベースからデータを読み込んで表示する

データベースからデータを読み込んで表示する

この記事は SQL Server 2000 で動作確認しています。他のデータベースでも宣言の部分を変更すれば同じコードが実行できます。

以下の例では、SQL Server付属のサンプルデータベース pubs から[authors]テーブルの内容を読み込んでDaraGridに表示する。

Dim Cn As SqlClient.SqlConnection

'データベースへの接続方法は環境により異なります。以下の行を適当に書き換えてください。
Cn = New SqlClient.SqlConnection("Server=(local);User ID=sa;Password=;Initial Catalog=pubs")

Dim sqlSelect As New SqlClient.SqlCommand("SELECT * FROM authors", Cn)
Dim Adapter As New SqlClient.SqlDataAdapter(sqlSelect)
Dim Table As New DataTable

Adapter.Fill(Table)

DataGrid1.DataSource = Table

VB2005ではDataGridをDataGridViewに置き換えるだけでまったくおなじコードが利用できます。