꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	챙선배... 궁금한게 있어서요... 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

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *