L'AGITATION s'ajoutent

Dans l'AGITATION ajouter l'objet est employé pour ajoutent les données ou le disque à la table dans une base de données. Nous pouvons employer l'INSERTION de commande de SQL DANS pour ajouter un disque à une table dans une base de données.

S'ajouter

Ajoutant le recordsin la base de données est tout comme updateing, à moins que vous employiez AddNew au lieu de éditiez. Ajoutons un plus de bouton de commande à notre application. Appelons-la « cmdNew » =). Voici le code pour lequel est employé ajoute un nouveau disque.

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

Explication :

La méthode d'AddNew prend un ensemble de nouvelles boîtes et d'ajouter le disque à notre RecordSet. Nous alors mettons quelques autres nouvelles valeurs dans elles et fermons les couvercles avec la mise à jour. Comme vous pouvez voir que nous n'avons jamais énoncé n'importe quel valu e pour la « identification », mais comme vous vous rappelez, c'est un champ de type le « que contre- » wich obtient automatiquement une valeur unique. Le code ajoute également ce nouveau disque à la boîte de liste de sorte que vous puissiez changer le nombre de téléphone de cette personne.

Ajouter un disque à un Tableau dans une base de données

Si nous devons ajouter un nouveau disque à la table des employés dans la base de données de dataone. Nous créons d'abord une forme qui contient les champs que nous voulons rassembler des données de :

<html>
<body>

action= " demo_add.asp " de " poteau " de method= de <form >
<table>
<tr>
<td>emloyeeID : </td>
name= " empid " ></td> de <td><input
</tr><tr>
Nom <td>Company : </td>
name= " compname " ></td> de <td><input
</tr><tr>
Nom de <td>Contact : </td>
name= " contname " ></td> de <td><input
</tr><tr>
<td>Address : </td>
name= " adresse " ></td> de <td><input
</tr><tr>
<td>City : </td>
name= " ville " ></td> de <td><input
</tr><tr>
Code <td>Postal : </td>
name= " code postal " ></td> de <td><input
</tr><tr>
<td>Country : </td>
name= " pays " ></td> de <td><input
</tr>
</table>
<br/><br/>
le type= de <input " soumettent " le value= " ajoutent nouveau " >
value= " annulation " de "RESET" de type= de <input >
</form>

</body>
</html>

Quand l'utilisateur appuie sur le bouton de soumission la forme est envoyée à un dossier appelé le « demo_add.asp ». Le dossier de « demo_add.asp » contient le code qui ajoutant un nouveau disque à la table des employés :

<html>
<body>

<%

placer conn=Server.CreateObject (« ADODB.Connection »)
conn. Provider= " Microsoft.Jet.OLEDB.4.0 "
conn. Ouvrir « c : /empdata/dataone.mdb »
sql= " INSERTION DANS l'employé (employeeID, companyname, «
sql=sql et « contactname, adresse, ville, postalcode, pays) »
sql=sql et « VALEURS »

sql=sql et « (" » et Request.Form (« empid ») et » », «
sql=sql et « « » et Request.Form (« compname ») et » », «
sql=sql et « « » et Request.Form (« contname ») et » », «
sql=sql et « « » et Request.Form (« adresse ») et » », «
sql=sql et « « » et Request.Form (« ville ») et » », «
sql=sql et « « » et Request.Form (« code postal ») et » », «
sql=sql et « « » et Request.Form (« pays ») et » ») «

sur le résumé d'erreur après
conn. Exécuter le SQL, recaffected
si err<>0 alors
Response.Write (« aucunes permissions de mise à jour ! »)
autrement
Response.Write (« <h3> » et recaffected et »
added</h3> record ")
finir si
conn.close
%>

</body>
</html>

Bouts avec la commande de SQL :

Vous des allways vous inquiétez quand la commande d'INSERTION de SQL sera employée.

Si la table contient la clef primaire, cela veillent à apposer une valeur unique et non nulle à la zone de tri primaire.

Si n'importe quelle table contient un champ d'AutoNumber, ne pas inclure ce champ dans la commande d'INSERTION de SQL (la valeur de ce champ sera prise en compte automatiquement près le fournisseur).