ALTER Table VB.NETテーブルを変更と列を追加

      2017/07/13

テーブルを変更します。
テーブル追加で作成したソースを流用します。
前は部署テーブルを作成しました。

今回はmeiboに部署コードを追加したいと思います。

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 meibo", 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("ALTER Table meibo ADD 部署コード Char(8)", cn)

cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
End Sub

End Class

テーブル変更 カラム追加のsql文です。

ALTER Table テーブル名 ADD 列名 データ型",

結果はボタン2をクリックしてからボタン1をクリックして表示してください。

PR



 - ADO.NET

Translate »