データーベース作成


  SQLServer



  
' **********************************************
' 接続
' **********************************************
' DB を作成する為に 既存の DB に接続します
Result = Database.Connect( 2, "sv\msde2000,master,sa,password" ) 
if Result <> "" then
	MsgOk( Result )
	quit
end if

' **********************************************
' DB 作成
' **********************************************
Query = "sp_helpdb MyDB"
if Database.Query( Query ) then
	' MyDB が存在する場合は削除します
	Query = "drop database MyDB"
	if not Database.Query( Query ) then
		MsgOk("MyDB の削除に失敗しました")
		Database.DisConnect
		quit
	end if
end if

' MyDB を作成します
Query = "create database MyDB"
if not Database.Query( Query ) then
	MsgOk("MyDB の作成に失敗しました")
	Database.DisConnect
	quit
end if

' **********************************************
' カレントデータベースを MyDB に変更
' **********************************************
Query = "use MyDB"
if not Database.Query( Query ) then
	MsgOk("カレントデータベースを MyDB に変更できません")
	Database.DisConnect
	quit
end if

' **********************************************
' 社員テーブルの作成
' **********************************************
' NVARCHAR は UNICODE です
Query = "create table [社員テーブル] ("
Query = Query & "[社員コード] VARCHAR(4)"
Query = Query & ",[氏名] NVARCHAR(50)"
Query = Query & ",[所属] VARCHAR(4)"
Query = Query & ",[性別] INT"
Query = Query & ",[給与] INT"
Query = Query & ",[手当] INT"
Query = Query & ",[作成日] DATETIME"
Query = Query & ",[更新日] DATETIME"
Query = Query & ",primary key([社員コード])"
Query = Query & ")"

' **********************************************
' SQL実行
' **********************************************
if not Database.Query( Query ) then
	MsgOk("社員テーブルの作成に失敗しました")
end if

' **********************************************
' 接続解除
' **********************************************
Database.DisConnect

MsgOk("処理が終了しました")
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  イラストAC  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ