inner join テーブル結合 VB.NET

      2017/07/13


テーブルを結合しましょう。
meiboテーブルと部署テーブルを結合して
nameとnumberと部署名をグリッドに表示します。

Imports System.Data.SqlClient
Public Class Form1
Dim cn As New SqlConnection(
"Data Source=(local)\SQL;" +
"Initial Catalog=ADO;" +
"Integrated Security=True;Pooling=False")
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim cmd As New SqlCommand("select name,number,部署名 from meibo inner join 部署 on meibo.部署コード = 部署.部署コード", cn)

Dim adapter As New SqlDataAdapter(cmd)
Dim table As New DataTable()
adapter.Fill(table)
DataGridView1.DataSource = table
End Sub
End Class

Dim cmd As New SqlCommand("select name,number,部署名 from meibo inner join 部署 on meibo.部署コード = 部署.部署コード", cn)

selectで列名を選択
from meiboテーブル inner join 部署
on で 部署コード を紐づける。

実行すると空の列名のデータが表示されます。
一致するデータがないですから。

テーブルを追加した
meibo.部署コードはNULLですよね。

更新をしないといけません。

プログラムを作成をするのがメンドクサイのでsqlserverのほうで上位200行を編集でデータを入力しました。

するとデータが表示されました。

PR



 - ADO.NET

Translate »