GERER LES CLEES DE CES TABLES AVEC UNE TABLE DES CLEES

GERER LES CLEES DE CES TABLES AVEC UNE TABLE DES CLEES	Aéronautique	Astronomie	Géologie	Météorologie	Végétaux
	Animaux	Biologie Santé	Informatique	Paléontologie
	Archéologie	Chimie	Mathématiques	Physique

<%
Dim queryStr2, queryStr3, key, newkey

Déclaration des variables

Set Cndb2 = Server.CreateObject("ADODB.Connection")
cnDBQ = mon_chemin_de_connection
Cndb2.Open cnDBQ

Création de la chaîne de connexion

queryStr2 = "SELECT valeur FROM table_key WHERE nom ='emploi'"
set keyRec = Cndb2.Execute(queryStr2)

Récupération de la valeur contenu dans la table table_key.

key = keyRec("valeur").Value

key = 12 dans notre exemple

newkey = key+1

newkey = 13

Set Cndb3 = Server.CreateObject("ADODB.Connection")
cnDBQ = MM_annuaire_STRING
Cndb3.Open cnDBQ

On refait une connexion pour insérer la nouvelle valeur dans la table des clées (table_key)

queryStr3 = "UPDATE table_key SET valeur = ("&newkey&") WHERE nom = 'emploi'"
Cndb3.Execute(queryStr3)

On fait l'update (la mise à jour) de la ligne pour nom = emploi

<%
insertion ="INSERT INTO emploi (N,entite) VALUES ("&newkey&",'"&str_entite&"')"
response.write(insertion)
Cndb2.Execute(insertion)
Cndb2.close%>

On fait une insertion dans la table emploi en utilisant comme valeur de la clée la valeur de newkey

table : table_key

ID	nom	valeur
1	emploi	12
2	adresse	25

Table des clées

table : emploi

N	ENTITE	POSTE
12
13

Table emploi.

Stocker des données sur le Web

Rechercher sur le Web

Créer votre boîte aux lettres

Vous avez besoin d'un hébergeur gratuit pour votre site ?

Déclarer son site à la CNIL

Mon audience Xiti