Kusasisha Ujumbe wa ADO
- Kuuja ja Kuingiza ya ADO
- Pya ja Kufungua ya ADO
Tunaweza kutumia SQL Update kuwasilisha taarifa kwenye tablica ya database.
Sasisha taarifa kwenye tablica ya database
Tunawafikia mawasiliano ya Northwind katika tablica ya Customers. Kwanza tunahitaji kumuea tafriki, inayoshiriki wote katika Customers.
<html> <body> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "c:/webdata/northwind.mdb" set rs=Server.CreateObject("ADODB.Recordset") rs.open "SELECT * FROM customers",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)="customerid" then> <td> <input type="submit" name="customerID" value="<%=x.value%>"> </td> <%else%> <td><%Response.Write(x.value)%></td> <%end if> next %> </form> <%rs.MoveNext%> </tr> <% loop conn.close %> </table> </body> </html>
Kama mtu anafikia butoni kwenye kina "customerID", itaonesha faili mpya "demo_update.asp". Faili hii ina muhimu wa kumwengaa kwa kichwa cha kusasisha, ambao kinahusiana na hisia za kirekodi katika database, na pia ina butoni wa kusasisha "Sasisha":
<html> <body> <h2>Sasisha Rekodi</h2> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "c:/webdata/northwind.mdb" cid=Request.Form("customerID") if Request.form("jina la kampuni")="" then set rs=Server.CreateObject("ADODB.Recordset") rs.open "MUHARURO * FROM customers WHERE customerID='" & 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="Sasisha rekodi"> </form> <% else sql="MUHARURO customers SET " sql=sql & "jina la kampuni='" & Request.Form("jina la kampuni") & "'," sql=sql & "jina la muungano='" & Request.Form("jina la muungano") & "'," sql=sql & "adresi='" & Request.Form("adresi") & "'," 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>
- Kuuja ja Kuingiza ya ADO
- Pya ja Kufungua ya ADO