Discussion :

[sakuragikan]

Bonjour a tous

Mon probleme releve peut etre plus du VBscript et du SQL, je ne sais pas trop en fait, mais dans le doute j'ai posté ici

J'ai une table Rubrique qui contient un champ ID et un champ NOM_RUBRIQUE (et Type_Rubrique). Dans un formulaire j'ai un bouton ajouter qui ajoute une ligne a ma table, en definissant un nouvel ID donc.
Je sais que vous allez me dire de creer une sequence, mais j'ai essaye et cela ne fonctionne pas, elle existe bien pourtant sur ma base oracle, mais je ne parviens pas a lui faire comprendre de ne pas commencer a 1
Je procede donc comme suis : je cree une requete pour connaitre le max des IDs deja present et je l'incremente de 1, et j'entre la ligne a cet ID.
Le probleme vient de mon incrementation qui ne fonctionne pas :

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
sSQL = "select max(ID" & ") FROM " & myTable
Dim rsID, n
Set rsID = DbObj.Execute(sSQL, , adCmdText)
n = rsID(0)
n = n + 1
 
sSQL = "INSERT INTO " & myTable & " (ID, NOM_RUBRIQUE , TYPE_RUBRIQUE) VALUES ( " & n &", '" & QuoteDB(Request("libelle")) & "', " & CLng(Request("id_parent")) & " )"

ca bloque au n=n+1 : erreur de type !
pourtant, si j'enleve cette ligne, le message d'erreur suivant sera : erreur d 'unicite sur le champ ID (normal une ligne avec cet ID existe deja), ce qui veut dire qu'il passe bien un nombre dans la clé VALUES non ? pourquoi ne puis je donc pas incrementer ce nombre n ?
Voila ma question ^^
hum... je crois que je vais aussi poster dans le forum SQL ^^

[pc75]

Bonjour,

Peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
n = cInt(n) + 1

[sakuragikan]

héhé

Oui ca marche c'est vraiment tout bête groumpf !

Bon par contre je me suis fait taper sur les doigt sur le forum SQL car ce procéder est vivement déconseillé et je dois faire une auto incrementation

Merci pouir ta reponse en tout cas pc75 !