사용자 정보가있는 사용자 테이블을 표시하는 페이지가 있습니다. 각 행의 끝에있는 단추를 클릭하여 테이블의 행을 업데이트 할 수 있기를 원합니다. 나는 코딩에 완전히 새로운 사람이 나를 도울 수 있고 그들의 대답을 조금 벙어리로 말할 수 있다면 정말 고맙겠습니다.ADO를 사용하여 SQL 테이블에서 행을 업데이트하는 방법
감사합니다.
이것은 시도한 코드이지만 작동시키지 못하는 것 같습니다.
<html>
<body>
<%
Dim conn, oRs, ID, sql
Set Conn=Server.CreateObject("ADODB.Connection")
ID = Request.Form("ID")
If Request.Form("ID")="" then
Set oRs=Server.CreateObject("ADODB.Recordset")
oRs.open "SELECT * FROM tICTStaff WHERE ID ='" & ID & "'",Conn
%>
<form method="post" action="employeeUpdate.asp">
<table>
<%for each x in oRs.Fields%>
<tr>
<td><%=x.name%></td>
<td><input name="<%=x.name%>" value="<%=x.value%>"></td>
<%next%>
</tr>
</table>
<br /><br />
</form>
<%
Else
sql="UPDATE table_name SET "
sql=sql & "Forename ='" & Request.Form("Forename") & "',"
sql=sql & "Surname ='" & Request.Form("Surname") & "',"
sql=sql & "Active ='" & Request.Form("Active") & "',"
sql=sql & "Address ='" & Request.Form("Address") & "',"
sql=sql & "DOB ='" & Request.Form("DOB") & "',"
sql=sql & " WHERE ID ='" & ID & "'"
on error resume next
Conn.Execute sql
If err<>0 then
Response.Write("Error updating Record!")
Else
Response.Write("Record " & ID & " was updated!")
End If
End if
Conn.close
%>
<meta HTTP-EQUIV="REFRESH" content="0; url=Page.index.asp?msg=The record has been updated!">
</body>
</html>
당신은 ADO를 언급하고 있지만 "asp-classic"으로 질문을 태그했습니다. 고전 ASP에서이 작업을 수행하고 있습니까? – ulluoink
@ulluoink - 당신이 내 코드를 쓰지 않기를 바랄뿐입니다.하지만 그 일을 통해 아무 것도 배우지 않을 것입니다. 시도한 코드를 원래 게시물에 복사하고 초기 질문을 할 때 잊어 버렸습니다. 나는 ASP에서 그것을 쓰고 있는데 왜 ASP Classic을 사용했는지 모르겠다. 나는 틀린 일을해야만했다. – CodingNewbie
ok asp-classic을 사용하고 있습니다. – ulluoink