Informatique
	EXPERTISE, CONSEILS, FORMATION, ACCOMPAGNEMENT AU CHANGEMENT Solution Intranet, Extranet et Internet Accompagnement et formation au travail collaboratif Accès à la rubrique

Formation
	FORMATION SALARIES ETUDIANTS APPRENTIS. Bureautique, Internet, Sciences de la vie, Mathématique, Physiques Aéronautique Accès à la rubrique

Biologie
	RECHERCHE Biologie cellulaire Biologie moléculaire Génétique Accès à la rubrique

Aéronautique
	PILOTE PRIVE D'AVION Enseignant - aéronautique - aéromodélisme en savoir plus

Gérer les clées des tables de votre base de données à l'aide d'une table des clées

<%
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.

  Internet
  Extranet
  Intranet

Développement
- Scripts Asp
- Script PHP
- Script CSS

Logiciels

Articles

LOI n°2004-575 du 21 juin 2004

eric desrentes : Informations légales