Update do ADO

Se você quiser conservar ou fazer todas as mudanças ao registro atual de uma tabela na base de dados. Para esta necessidade nós podemos usar o comando do UPDATE do SQL atualizar ou mudar o registro em uma tabela em uma base de dados.

Sintaxe do método do Update

recordset.Update Fields, Values

Parâmetros do método do Update

Campos

Um Variant opcional que representam um único nome ou uma disposição Variant que representam nomes ou posições ordinais do campo ou dos campos que você deseja modificar.

Valores

Um Variant opcional que representam um único nome ou uma disposição Variant que representam nomes ou posições ordinais do campo ou dos campos que você deseja modificar.

Este exemplo usou o ADO atualizar um registro existente. A indicação do SQL é a chave e mudando esse nós podemos atualizar o que registro nós queremos atualizar.

<% ID = 7 %>
<% NAME = "Joe Smoe" %>
<% MESSAGE = "This is another test" %>

Dim DataConn
Dim CmdUpdateRecord
Dim MYSQL

Set DataConn = Server.CreateObject("ADODB.Connection")
Set CmdUpdateRecord = Server.CreateObject("ADODB.Recordset")

DataConn.Open "DBQ=" & Server.Mappath("../_database/dataone.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

MYSQL = "SELECT some_table.* FROM some_table WHERE (ID = " & ID & ")"

CmdUpdateRecord.Open MYSQL, DataConn, 1, 3

CmdUpdateRecord.Fields("NAME") = NAME
CmdUpdateRecord.Fields("MESSAGE") = MESSAGE
CmdUpdateRecord.Update

CmdUpdateRecord.Close
Set CmdUpdateRecord = Nothing
DataConn.Close
Set DataConn = Nothing
%>

Atualizar um registro em uma tabela

Se nós quisermos atualizar um registro na tabela do empregado na base de dados do dataone. Nós criamos primeiramente uma tabela que aliste todos os registros na tabela do empregado:

<html>
<body>

<%

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/database/dataone.mdb"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM employee",conn

%>

<h2>List Database</h2>
<table border="1" width="100%">
<tr>

<%

for each x in rs.Fields
response.write("<th>" & ucase(x.name) & "</th>")
next

%>

</tr>
<% do until rs.EOF %>
<tr>
<form method="post" action="demo_update.asp">

<%

for each x in rs.Fields
if lcase(x.name)="employeeid" then%>
<td>
<input type="submit" name="employeeID"
value="<%=x.value%>">
</td>
<%else%>
<td><%Response.Write(x.value)%></td>
<%end if
next

%>
</form>
<%rs.MoveNext%>
</tr>
<%

loop
conn.close
%>

</table>
</body>
</html>

Se qualquer usuário estalar sobre a tecla no “employeeID” a coluna he/she estará feita exame a uma lima nova chamada “demo_update.asp”. A lima de “demo_update.asp” contem o código de fonte em como criar os campos da entrada baseados nos campos de um registro na tabela da base de dados. Contem também do “uma tecla record Update” que conserve suas mudanças:

<html>
<body>
<h2>Update Record</h2>

<%

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/database/dataone.mdb"
cid=Request.Form("employeeID")
if Request.form("companyname")="" then
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM employee WHERE employeeID='" & cid & "'",conn

%>

<form method="post" action="demo_update.asp">
<table>
<%for each x in rs.Fields%>
<tr>
<td><%=x.name%></td>
<td><input name="<%=x.name%>" value="<%=x.value%>"></td>
<%next%>
</tr>
</table>
<br /><br />
<input type="submit" value="Update record">
</form>

<%

else
sql="UPDATE employee SET "
sql=sql & "companyname='" & Request.Form("companyname") & "',"
sql=sql & "contactname='" & Request.Form("contactname") & "',"
sql=sql & "address='" & Request.Form("address") & "',"
sql=sql & "city='" & Request.Form("city") & "',"
sql=sql & "postalcode='" & Request.Form("postalcode") & "',"
sql=sql & "country='" & Request.Form("country") & "'"
sql=sql & " WHERE customerID='" & cid & "'"
on error resume next
conn.Execute sql
if err<>0 then
response.write("No update permissions!")
else
response.write("Record " & cid & " was updated!")
end if
end if
conn.close

%>

</body>
</html>