Il ADO aggiunge

Nel ADO aggiungere l'oggetto � usato per aggiungono i dati o l'annotazione alla tabella in una base di dati. Possiamo usare l'INSERTO di ordine di SQL per nella aggiunta dell'annotazione ad una tabella in una base di dati.

Aggiunta

Aggiungendo il recordsin la base di dati � tanto come updateing, a meno che usiate AddNew anzich� pubblichiate. Aggiungiamo un nuovo pulsante di comando alla nostra applicazione. Denominiamola �cmdNew� =). Qui � il codice che � usato per aggiunge una nuova annotazione.

Private Sub cmdNew_Click()

rsMyRS.AddNew
rsMyRS!Name = "A New Person"
lstRecords.AddItem rsMyRS!Name
lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!ID
rsMyRS!Phone = "Person's Phone Number"
rsMyRS.Update

End Sub

Spiegazione:

Il metodo di AddNew prende un insieme di nuove scatole e di aggiunta dell'annotazione al nostro RecordSet. Allora mettiamo alcuni altri nuovi valori in loro e chiudiamo i coperchi con l'aggiornamento. Come potete vedere che non abbiamo dichiarato mai alcun valu e per �l'identificazione�, ma come vi ricordate di, questo � un campo di tipo �il contro� wich ottiene automaticamente un valore unico. Il codice inoltre aggiunge questa nuova annotazione alla casella di riepilogo in modo che possiate cambiare il numero di telefono di questa persona.

Aggiungere un'annotazione ad una Tabella in una base di dati

Se dobbiamo aggiungere una nuova annotazione alla tabella degli impiegati nella base di dati di dataone. In primo luogo generiamo una forma che contiene i campi che desideriamo raccogliere i dati da:

<html>
<body>

<form method="post" action="demo_add.asp">
<table>
<tr>
<td>emloyeeID:</td>
<td><input name="empid"></td>
</tr><tr>
<td>Company Name:</td>
<td><input name="compname"></td>
</tr><tr>
<td>Contact Name:</td>
<td><input name="contname"></td>
</tr><tr>
<td>Address:</td>
<td><input name="address"></td>
</tr><tr>
<td>City:</td>
<td><input name="city"></td>
</tr><tr>
<td>Postal Code:</td>
<td><input name="postcode"></td>
</tr><tr>
<td>Country:</td>
<td><input name="country"></td>
</tr>
</table>
<br /><br />
<input type="submit" value="Add New">
<input type="reset" value="Cancel">
</form>

</body>
</html>

Quando l'utente preme il tasto di presentazione la forma � trasmessa ad una lima chiamata �demo_add.asp�. La lima �di demo_add.asp� contiene il codice che aggiungendo una nuova annotazione alla tabella degli impiegati:

<html>
<body>

<%

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/empdata/dataone.mdb"
sql="INSERT INTO employee (employeeID,companyname,"
sql=sql & "contactname,address,city,postalcode,country)"
sql=sql & " VALUES "

sql=sql & "('" & Request.Form("empid") & "',"
sql=sql & "'" & Request.Form("compname") & "',"
sql=sql & "'" & Request.Form("contname") & "',"
sql=sql & "'" & Request.Form("address") & "',"
sql=sql & "'" & Request.Form("city") & "',"
sql=sql & "'" & Request.Form("postcode") & "',"
sql=sql & "'" & Request.Form("country") & "')"

on error resume next
conn.Execute sql,recaffected
if err<>0 then
Response.Write("No update permissions!")
else
Response.Write("<h3>" & recaffected & "
record added</h3>")
end if
conn.close
%>

</body>
</html>

Punte con l'ordine di Sql:

Allways vi preoccupate quando l'ordine dell'INSERTO di SQL sar� usato.

Se la tabella contiene la chiave primaria, quella si assicura collegare un valore unico e non nullo al campo chiave primario.

Se qualunque tabella contiene un campo di AutoNumber, non includere questo campo nell'ordine dell'INSERTO di SQL (il valore di questo campo sar� preso la cura automaticamente vicino del fornitore).