' **********************************************
' 接続
' **********************************************
' DB を作成する為に 既存の DB に接続します
Result = Database.Connect( 3, "MySQL,mysql,root," ) 
if Result <> "" then
	MsgOk( Result )
	quit
end if

' **********************************************
' DB 作成
' **********************************************
' MySQL には 小文字で登録されます
Query = "show databases like 'mydb'"
' この場合、行が返されると true です
if Database.Query( Query ) then
	' MyDB が存在する場合は削除します
	' SQL 文では大文字小文字は区別されません
	Query = "drop database MyDB"
	if not Database.Query( Query ) then
		MsgOk("MyDB の削除に失敗しました")
		Database.DisConnect
		quit
	end if
end if

' MyDB を作成します
' SQL 文では大文字小文字は区別されません
Query = "create database MyDB"
if not Database.Query( Query ) then
	MsgOk("MyDB の作成に失敗しました")
	Database.DisConnect
	quit
end if

' **********************************************
' カレントデータベースを MyDB に変更
' **********************************************
' SQL 文では大文字小文字は区別されません
Query = "use MyDB"
if not Database.Query( Query ) then
	MsgOk("カレントデータベースを MyDB に変更できません")
	Database.DisConnect
	quit
end if

' **********************************************
' 社員テーブルの作成
' **********************************************
' 漢字 50 文字が入るように VARCHAR(100) にしています
Query = "create table `社員テーブル` ("
Query = Query & "`社員コード` VARCHAR(4)"
Query = Query & ",`氏名` VARCHAR(100)"
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("処理が終了しました")