..


Sponzorované odkazy

Editácia dát v databáze

Ako vec editácia databázy prostredníctvom HTML formulára je paradoxne oveľa zložitejšie, než len pridanie filozoficky, pretože musíte najprv vybrať záznam, ktorý chcete zmeniť, a potom skutočne zmeniť.

Tu je kód v súbore "modifica_autore.asp" 






 <% @ LANGUAGE = VBScript%>







 <%



    



 Dim SC, KN, RS



    



 SC = "Driver = {Microsoft Access Driver (*. mdb)}; DBQ ="



    



 Set cn = Server.CreateObject ("ADODB.Connection")



    



 Set rs = Server.CreateObject ("ADODB.Recordset")



    



 Dim id



    



 id = Request.QueryString ("id")







 %>







 <html>







 <head>







 Upraviť <title> autor </ title>







 </ Head>







 <body>









 Upraviť <h1> autor </ h1>









 <Formulári method = "post" action = "modifica_autore.asp? Id = <% = id%>">







 Vyberte upraviť autor: <br>







 <Vyberte name = "Autor"







 OnChange = "location.href = 'modifica_autore.asp? Id =' + this.value">







 <OPTION value=""> </ option>







 <%



    



 rs.Open "SELECT * FROM autori ORDER BY aut_id ASC", KN, 1



    



 Kým rs.EOF = False







 %>







 <Hodnota opcie ="<%= rs ("aut_id ")%>"><%= rs (" aut_nome ")%></ možnosť>







 <%



        



 rs.MoveNext



    



 Ísť



    



 rs.Close







 %>







 </ Select> <br>







 <%



    



 Ak je id <> "" Then



        



 %>







 Meno autora úpravy <br>







 <Input type = "text" name = "meno" maxlength = "50"







 Hodnota ="<%= rs ("aut_nome ")%>">







 <br>







 <input type="submit" name="modifica" value="Modifica autore">







 </ Form>







 <%



        



 rs.Close



    



 End If



    



 If Request.Form ("Edit") <> "" Then



        



 Dim názov



        



 name = Request.Form ("name")



        



 Ak je name = "" Tak







 %>







 <p> Určuje meno autora </ p>







 <%



        



 Iný



            



 Dim SQL



            



 rs.Open SQL, KN, 3, 3



            



 rs ("aut_nome") = meno



            



 rs.Update



            



 rs.Close







 %>







 Upraviť <p> prebehne úspešne </ p>







 <%



        



 End If



    



 End If







 %>









 </ Body>







 </ Html>







 <%



    



 Set rs = Nothing



    



 cn.Close



    



 Set cn = Nothing







 %>
To je to, čo sme urobili: Máme obývaných Rozbaľovacia ponuka so záznamami v tabuľke, na ktorom konať, aby si mohli zvoliť záznam, ktorý chceme, akonáhle ste si vybrali záznam znovu načítať stránku, prešiel rekordný číslo v QueryString, ktorý nás zaujíma, a My ho používame ako filter na dotaz, ktorý vyplní formulár s HTML záznam upravovať.

Na tomto mieste napísať, čo nás zaujíma do textového poľa a odoslať nové údaje, ktoré používame Recordset prečítať záznam pred nami, budeme konať na požadovanú oblasť a aktualizovať. Kód je veľmi podobný tomu vstupných dát, s tým rozdielom, že nebudeme používať, avšak metóda "AddNew".

Ak chcete, nemôžeme použiť Recordset, ale len metóda "Execute" Pripojenie objektu takto: 






 Dim SQL







 SQL = ""







 cn.Execute (SQL)
miesto: 





 Dim SQL







 rs.Open SQL, KN, 3, 3







 rs ("aut_nome") = meno







 rs.Update







 rs.Close
Spustite súbor na 
 



 http://localhost/test_db/modifica_autore.asp
otestovať výsledok.

Nechávam čitateľa k realizácii Upraviť stránku knihy.

Nápoveda ASP a databázy
E-Learning
ASP kurzu ASP kurzu
Celý kurz pre tvorbu dynamických webových stránok. -15% Zľavy až do 15/11/2011.
ASP kurzu od nuly ASP kurzu od nuly
Microsoft ASP a VBScript učiť sa od nuly. V pouhých 29 €.
ASP a prístup kurzu ASP a prístup kurzu
Správa databázy MS Access s ASP. V pouhých 29 €.
Sponzorované odkazy