Create Table テーブル追加 VB.NET

      2017/07/13


テーブルを追加する。

今回は部署テーブルを作成するコード
ボタン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文字で漢字は二文字分です。

PR



 - ADO.NET

Translate »