TRABALHANDO COM TABELAS MSACESS:

Atualizando Registros:

A seguir veremos como atualizar dados de uma tabela MSAcess utilizando comandos SQL:

! -- Se a QueryString variaveldeacao = atualiza geramos a pagina de atualização.
<%
ELSEIF variaveldeacao="atualizar" THEN
IF Len(TRIM(Request.Form("flag"))) = 0 THEN
SQL = "SELECT * FROM cliente WHERE ID=" & Request.QueryString("Recid")
Set rs = conexao.Execute(SQL)
IF NOT RS.EOF THEN %>
<form method="post" action="registro.asp?variaveldeacao=atualizar">
Nome: <input type="text" name="Nome" value="<%=rs("Nome")%>"> <br>
Endereco: <input type="text" name="Endereco" value="<%=rs("Endereco")%>"> <br>
<input type="hidden" name="flag" value="2">
<input type="hidden" name="Recordid" value="<%=rs("Id")%>">
<input type="submit" value="Atualiza" name="submit">
</form>
<%
rs.MoveNext
rs.Close
END IF
ELSEIF
Request.Form("flag")="2" THEN
SQLstmt = "UPDATE cliente SET "
SQLstmt = SQLstmt & "Nome='" & TRIM(Request.Form("Nome")) & "', "
SQLstmt = SQLstmt & "Endereco= '" & TRIM(Request.Form("Endereco")) & "'" SQLstmt = SQLstmt & " WHERE ID=" & TRIM(Request.Form("Recordid"))
Conexao.Execute (SQLstmt)
Response.Write "Operação efetuada com sucesso"
End if
%>
! -- Criamos um recordset que armazenara os dados até que eles sejam finalmente atualizados na tabela e finalizamos a operação.

---

Copyright 2000 ALL4ALL Website
Todos os Direitos Reservados