コメント |
[[場所 : 更新.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
|