[[場所 : 更新.Click]]


● DB 接続とDB 接続解除の間に記述します。
● 修正処理に並ぶように記述します
@DIV
' ************************
' 新規
' ************************
If Me.処理区分.SelectedValue = 1 Then
	If db.QueryAndRead(Query) Then
		db.Close()
		MessageBox.Show("入力された社員コードは他で作成されました　　　　", _
		"エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
		Return
	Else

		If Me.性別.SelectedIndex = -1 Then
			db.Close()
			MessageBox.Show("入力された社員コードは他で削除されました　　　　", _
			"エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
			Return
		End If

		Query = "insert into 社員マスタ ("
		Query += "社員コード,氏名,フリガナ,所属,性別,作成日"
		Query += ",更新日,給与,手当,管理者,生年月日) values("
		Query += "'" + Me.社員コード.InnerText + "'"
		Query += ",'" + Me.氏名.InnerText + "'"
		If (Me.フリガナ.InnerText).Trim() = "" Then
			Query += ",NULL"
		Else
			Query += ",'" + Me.フリガナ.InnerText + "'"
		End If
		If Me.所属.SelectedIndex = -1 Then
			Query += ",NULL"
		Else
			Query += ",'" + Me.所属.SelectedValue + "'"
		End If
		Query += "," + Me.性別.SelectedValue
		Query += ",Now"
		Query += ",Now"
		If (Me.給与.InnerText).Trim() = "" Then
			Query += ",NULL"
		Else
			Query += "," + Me.給与.InnerText
		End If
		If (Me.手当.InnerText).Trim() = "" Then
			Query += ",NULL"
		Else
			Query += "," + Me.手当.InnerText
		End If
		If (Me.管理者.InnerText).Trim() = "" Then
			Query += ",NULL"
		Else
			Query += ",'" + Me.管理者.InnerText + "'"
		End If
		If (Me.生年月日.InnerText).Trim() = "" Then
			Query += ",NULL"
		Else
			Query += ",'" + Me.生年月日.InnerText + "'"
		End If
		Query += ")"

		If -2 = db.Execute(Query) Then
			db.Close()
			MessageBox.Show("データベースの更新に失敗しました　　　", _
			"エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
			Return
		End If
	End If
End If
@END