Si vous voulez économise ou faire tous les changements au disque courant d'une table dans la base de données. Pour ce besoin nous pouvons employer la commande de MISE À JOUR de SQL de mettre à jour ou changer le disque dans une table dans une base de données.

Syntaxe de méthode de mise à jour

recordset.Update Fields, Values

Paramètres de méthode de mise à jour

Champs

Une variante facultative représentant un nom simple ou une rangée variable représentant des noms ou positions ordinales du champ ou des champs que vous souhaitez modifier.

Valeurs

Une variante facultative représentant un nom simple ou une rangée variable représentant des noms ou positions ordinales du champ ou des champs que vous souhaitez modifier.

Cet exemple a employé l'AGITATION pour mettre un disque existant. Le rapport de SQL est la clef et en changeant ce nous pouvons mettre quelque à jour disque nous voulions mettre.

<% 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
%>

Mettre un disque dans un Tableau

Si nous voulons mettre un disque dans la table des employés dans la base de données de dataone. Nous créons d'abord un tableau qui présente tous les disques dans la table des employés :

<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>

Si des clics d'utilisateur sur le bouton dans la colonne he/she de « employeeID » seront pris à un nouveau dossier appelé le « demo_update.asp ». Le dossier de « demo_update.asp » contient le code source sur la façon dont créer des champs d'entrée basés sur les champs d'un disque dans la table de base de données. Il contient également un bouton record de « mise à jour » qui sauvera vos changements :

<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>