SqlCommandのExecuteNonQueryメッソドを使って以下のテーブルを作成します。
| | | | | | | |
| インスタンス名 | SQLEXPRESS | データベース名 | SAMPLE_DB |
| 論理テーブル名 | 商品マスタ | 物理テーブル名 | M_ITEM |
| 列定義 |
| No | 論理名 | 物理名 | データ型 | Nullを許容 | 主キー |
| 1 | 商品CD | ITEM_CD | nvarchar(4) | No | Yes |
| 2 | 商品名 | ITEM_NM | nvarchar(32) | No | |
| 3 | 単価 | PRICE | numeric(8,0) | No | |
- DBへコネクションを接続
- テーブルを作成するSQL文を記述
- SqlCommandのCommandTextへSQL文を設定およびコネクションを設定
- SqlCommandを実行
Imports System.Data.SqlClient
Module Module1
Sub Main()
Dim con As New SqlConnection
'DB接続
con.ConnectionString = "Data Source=localhost\SQLEXPRESS;Initial Catalog=SAMPLE_DB;Integrated Security=True"
con.Open()
'商品マスタの作成
Dim strSql As String = "CREATE TABLE M_ITEM(ITEM_CD nvarchar(4) NOT NULL," _
+ "ITEM_NM nvarchar(32) NOT NULL," _
+ "PRICE numeric(8, 0) NOT NULL," _
+ "CONSTRAINT PK_M_ITEM PRIMARY KEY (ITEM_CD))"
'SQLCommand設定
Dim sqlcom As SqlCommand = New SqlCommand(strSql, con)
'SQLCommand実行
sqlcom.ExecuteNonQuery()
'接続を閉じる
con.Close()
'オブジェクトの解放
sqlcom.Dispose()
con.Dispose()
Console.WriteLine("SQLCommandを実行しました。")
End Sub
End Module
|
サーバーエクスプローラーでテーブルを確認 |
0 件のコメント:
コメントを投稿