HTML Tutorials |
|
XML Tutorials |
|
Browser Scripting |
|
Server Scripting |
|
.NET (dotnet) |
|
Multimedia |
|
Web Building |
|
Java Tutorials |
|
Programming Langauges |
|
Soft Skills |
|
Database Tutorials |
|
Operating System |
|
Software Testing |
|
SAP Module |
|
Networking Programming |
|
Microsoft Office |
|
Accounting |
|
|
Wenn du speicherst w�nschst oder, alle m�gliche �nderungen an der gegenw�rtigen Aufzeichnung einer Tabelle in der Datenbank vornehmen. F�r diese Notwendigkeit k�nnen wir den SQL UPDATE-Befehl verwenden, die Aufzeichnung in einer Tabelle in einer Datenbank zu aktualisieren oder zu �ndern.
|
recordset.Update Fields, Values
|
|
Eine wahlweise freigestellte Variante, die einen einzelnen Namen oder eine verschiedene Reihe darstellen Namen darstellen oder Ordnungspositionen auffangene oder f�ngt dich Wunsch auf, um zu �ndern.
|
Eine wahlweise freigestellte Variante, die einen einzelnen Namen oder eine verschiedene Reihe darstellen Namen darstellen oder Ordnungspositionen auffangene oder f�ngt dich Wunsch auf, um zu �ndern.
|
Dieses Beispiel verwendete AUFHEBEN, um eine vorhandene Aufzeichnung zu aktualisieren. Die SQL Aussage ist der Schl�ssel und indem wir diese �ndern, k�nnen wir aktualisieren, was Aufzeichnung wir aktualisieren m�chten.
|
<% 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
%>
|
|
Eine Aufzeichnung in einer Tabelle aktualisieren
|
Wenn wir eine Aufzeichnung in der Angestellttabelle in der dataone Datenbank aktualisieren m�chten. Wir stellen zuerst eine Tabelle her, die alle Aufzeichnungen in der Angestellttabelle verzeichnet:
|
<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>
|
|
Wenn irgendein Benutzer an die Taste im �employeeID� klickt, wird Spalte he/she zu einer neuen Akte genommen, die �demo_update.asp� genannt wird. Die �demo_update.asp� Akte enth�lt das Quellenprogramm auf, wie man Eingang auff�ngt gegr�ndet auf auff�ngt von einer Aufzeichnung in der Datenbanktabelle verursacht. Sie enth�lt auch eine �Updaterekord� Taste, die deine �nderungen speichert:
|
<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>
|
|
|
|
Schl�sselw�rter:ADO Update, Aufhebennettoupdate, Aufhebenupdateaufzeichnung, Aufheben recordset Update, grundlegendes sichtlichaufheben
|
|
HTML Quizes |
|
XML Quizes |
|
Browser Scripting Quizes |
|
Server Scripting Quizes |
|
.NET (dotnet) Quizes |
|
Multimedia Quizes |
|
Web Building Quizes |
|
Java Quizes |
|
Programming Langauges Quizes |
|
Soft Skills Quizes |
|
Database Quizes |
|
Operating System Quizes |
|
Software Testing Quizes |
|
SAP Module Quizes |
|
Networking Programming Quizes |
|
Microsoft Office Quizes |
|
Accounting Quizes |
|
|