|
|
|
|
 |
|
공영임 / 2001-07-19 / 오전 10:36:18 / 211.33.136.24
조회수 : 118
|
| [질문] 질문입니다...
|
챙선배...
궁금한게 있어서요...
Private Sub schupdate_UserEvent(ByVal EventName As String)
'데이타 수정처리
Dim update1, update2, update3 As String
Dim update4, update5, update6 As String
Dim update7, update8, update9, meventname As String
Dim schupdate As New ADODB.Recordset
update1 = Left(Request.Form("sa_code"), 5)
update2 = Request.Form("work_code")
update3 = Request.Form("start_date")
update4 = Request.Form("end_date")
update5 = Request.Form("plan_date")
update6 = Request.Form("status")
update7 = Request.Form("work_contents")
update8 = Request.Form("docno")
update9 = Request.Form("note")
With Response
.write "<html>"
.write "<head>"
.write "<title> </title>"
.write "<script language='javascript'>"
.write "function check() {"
.write "alert('수정하나');"
.write "var ans;"
.write "if(confirm('수정하시겠습니까?')) {"
.write "} else {"
.write "ans='javascript:history.go(-1)';"
.write "location.href=ans;"
.write " }"
.write "}"
.write "</script>"
.write "</head>"
.write "<body onload='check()'>"
.write "</body>"
.write "</html>"
End With
End Sub
위에서 confirm 값이 true가 넘어오면 아래에 있는 update문을 실행해야 하거든요...script문 내에서 sql을 사용할 수 있다면 좋을텐데...그렇지 않으면 아예 다른 sub함수를 호출하는 방법은 없을까요?
With schupdate
.ActiveConnection = DataEnv.ADOCON
.Source = "update schedule_m set " & _
"s_code='" & update1 & "'," & _
"s_work_num='" & update2 & "'," & _
"s_start_day ='" & update3 & "'," & _
"s_end_day='" & update4 & "'," & _
"s_plan_day='" & update5 & "'," & _
"s_status='" & update6 & "'," & _
"s_work='" & update7 & "'," & _
"s_doc_no='" & update8 & "', " & _
"s_note='" & update9 & "' " & _
"where s_work_num='" & EventName & "'"
.open
MsgBox "수정 되었습니다."
End With
meventname = update2 + "," + update1 + "," + Trim(Mid(Request.Form("sa_code"), 7, 15))
schtitleview_UserEvent (meventname)
End Sub |
|
|
|