テーブルを追加する。
今回は部署テーブルを作成するコード
ボタン1で作成された部署テーブルをグリッドに表示する。
ボタン2で部署テーブルを作成する。
※ボタン2で一回作成したら重複するのでエラーになる。
今回のソース
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 * from 部署”, cn)
Dim adapter As New SqlDataAdapter(cmd)
Dim table As New DataTable()
adapter.Fill(table)
DataGridView1.DataSource = table
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim cmd As New SqlCommand(“Create Table 部署(部署コード Char(8),部署名 Char(16))”, cn)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
End Sub
End Class
Dim cmd As New SqlCommand(“Create Table 部署テーブル名(列名 Char(8),列名 Char(16),)”, cn)
部署テーブルに部署コードと部署名が作成されました。
部署コードだけだと人間にはわかりませんね。
部署名だとわかりますね。
Charは1文字で漢字は二文字分です。