@DIV
DbText プロパティは、SQL を作る為の文字列が最適化されています。
1) DbType プロパティの指定により、シングルクォートの必要・不必要を判断
2) データが無い場合は、NULL またはデフォルト値をセット
( デフォルトは、DbDefault プロパティで設定し、使うかどうかは DbType プロパティの指定で決まる )
@END

[[新規:変更前]]
@DIV
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 += ")"
@END

[[新規:変更後]]
@DIV
Query = "insert into 社員マスタ ("
Query += "社員コード,氏名,フリガナ,所属,性別,作成日"
Query += ",更新日,給与,手当,管理者,生年月日) values("
Query += Me.社員コード.DbText
Query += "," + Me.氏名.DbText
Query += "," + Me.フリガナ.DbText
Query += "," + Me.所属.DbText
Query += "," + Me.性別.DbText
Query += ",Now"
Query += ",Now"
Query += "," + Me.給与.DbText
Query += "," + Me.手当.DbText
Query += "," + Me.管理者.DbText
Query += "," + Me.生年月日.DbText
Query += ")"
@END


[[修正:変更前]]
@DIV
Query = "update 社員マスタ set "
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"
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 += " where 社員コード = '" + Me.社員コード.InnerText + "'"
@END

[[修正:変更後]]
@DIV
Query = "update 社員マスタ set "
Query += " 氏名 = " + Me.氏名.DbText
Query += " ,フリガナ = " + Me.フリガナ.DbText
Query += " ,所属 = " + Me.所属.DbText
Query += " ,性別 = " + Me.性別.DbText
Query += " ,更新日 = Now"
Query += " ,給与 = " + Me.給与.DbText
Query += " ,手当 = " + Me.手当.DbText
Query += " ,管理者 = " + Me.管理者.DbText
Query += " ,生年月日 = " + Me.生年月日.DbText
Query += " where 社員コード = " + Me.社員コード.DbText
@END

[[削除:変更後]]
@DIV
Query = "delete from 社員マスタ "
Query += " where 社員コード = " + Me.社員コード.DbText
@END