Discussion :

[LineLe]

Bonjour les gens!
ca fait des heures entieres que je tourne en rond sur le meme probleme et je n'arrive pas a trouver mon erreur.
Je m'explique:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
		Set Rs = Server.CreateObject("ADODB.Recordset")
		Rs.ActiveConnection = MM_LBS_STRING
		Rs.Source = "SELECT Username FROM dbo.Gateway where username like 'Frei%' order by Username"
		Rs.CursorType = 0
		Rs.CursorLocation = 2
		Rs.LockType = 1
		Rs.Open()
		Dim tmp
		Dim i : i=1
		Dim ok : ok=false
		While not rs.eof and (ok=false)
				if (Rs("username")= "Frei"&i) then
					i=i+1
				else 
					tmp="Frei"&i
					ok=true
				end if
			Rs.movenext()
		wend
		rs.movefirst()
		rs.close()

le champ Username tel que je l'ai defini ds le select est dc de type : Frei1 Frei23 etc...
comme ils ne sont pas tries ds la table, j'utilise dc le "order by"
je souhaite parcourir cette liste de username, et recuperer le premier Frei&i qui n'existe pas encore...
or a chaque fois il me sort Frei2, alors que celui ci existe deja
Je c pas si je me suis bien expliquee, ms si qn m'a compris, il peut m'aider a trouver mon erreur?

[BrYs]

Je c pas si je me suis bien expliquee

ben non pas vraiment .......

[grafikm_fr]

Attends, j'ai pas tout compris...

Si tes usernames sont tous de la form Frei1,Frei2...Frei54 etc... et ben:

Tu ouvres ton RS en triant par login
Tu fais RS.MoveLast -> ca te donne le dernier qui existe
Apres tu recupere le nombre et tu fais +1 pour avoir le premier qui existe pas encore....

Voila.
Grafikm

[LineLe]

non effectivement me suis pas bien explikee...
en fait ds mon champ username g : soit un login valable, soit un login de type frei et tout ca completement ds le desordre, mais attention, par exemple :
frei1
frei2
frei3
frei5
....
existent mais pas frei4
dc pour commencer j'elimine tous les login de type valable par mon like 'Frei%' puis je les trie par Order by username
est-ce que c plus clair?
(si on me repond non je ne serais pas surprise... pcq g bcp de mal ce matin)

[linkchaser]

Attends, j'ai pas tout compris...

Si tes usernames sont tous de la form Frei1,Frei2...Frei54 etc... et ben:

Tu ouvres ton RS en triant par login
Tu fais RS.MoveLast -> ca te donne le dernier qui existe
Apres tu recupere le nombre et tu fais +1 pour avoir le premier qui existe pas encore....

Voila.
Grafikm

y'a un probleme dans ton raisonnement car si un enregistrement est supprime entre temps, alors le nombre d'enregistrement ne sera plus en phase avec la creation de ces noms
y'a des exceptions a gerer ou alors mieux utiliser al manipulation des chaines de caracteres

[grafikm_fr]

Oui, je m'en suis apercu, mais de tte facon j'ai mal compris le pb, donc ce code est à mettre à la poubelle de tte maniere....

[linkchaser]

je crois que j'ai trouvé ton probleme

a quoi te sert la valeur tmp dans ton else?

[LineLe]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Rs.source = "UPDATE dbo.Gateway SET " & _
		"Username = '"&tmp&"', " & _
		"Gateway = '', " & _
 
		"AnzahlSessions = 0, " & _
 
		"AutoDia1 = '', " & _
 
		"AutoDia2 = '', " & _
 
		"AutoDia3 = '', " & _
 
		"AutoDia4 = '', " & _
 
		"AutoDia5 = '' " & _
		"WHERE LTG = '" & LTG & "';"
		Rs.Open()
		Rs.Close()

je le recupere donc apres pour modifier un enregistrement (ca ca fonctionne)

[grafikm_fr]

Je crois que j'ai trouvé qqch, moi...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
While not rs.eof and (ok=false) 
            if (Rs("username")= "Frei"&i) then 
               i=i+1 
            else 
               tmp="Frei"&i 
               ok=true 
            end if 
         Rs.movenext() 
      wend

Tout le pb est là...
Il faut mettre While (NOT RS.EOF) AND (OK=False)

Sinon, not RS.EOF AND OK=False <=> not RS.Eof OR OK=True, et c'est le cas des la 2eme iteration, donc il sort et met Frei2.

Je me trompe peut-etre mais c'est à verifier...

Grafikm[/code]

[LineLe]

j'ai essaye et ca donne toujours frei2...
merci ad meme

[linkchaser]

non le probleme c'est qu'il ne detecte pas le dernier "frei" que tu souhaite recuperer, il s'arrete avant.
il te renvoie frei2 parce que tu dois certainement tomber sur un enregistrement qui n'a pas de username de type "frei"&i (le deuxieme surment) et donc il te renvoie true, et affiche frei2

[LineLe]

je ne vois pas ce que tu veux dire...

[linkchaser]

est-ce que tu as aussi d'autres enregistrements qui n'ont pas un username de type "frei"&i ?

[LineLe]

ben soit c des login de type lin8boe ou alors des "frei"&i

[LineLe]

j'ai une question :
le order by il trie :

frei1
frei10
frei12
frei2
etc

ou

frei1
frei2
frei10
frei12

???

[linkchaser]

je saurais pas te dire

affiche les pour voir

comme c'est de l'ordre alphabetique, la premiere solution semble la plus logique

dans ce cas c'est ton algorithime qu'il faut revoir

[LineLe]

je v essayer de les afficher alors pour voir

[LineLe]

Frei1
Frei1000
Frei1001
Frei1002
Frei1003
Frei1004
Frei1005
...
c bien ce que je pensais

dc on efface tout et on recommence!

[LineLe]

decidement je suis vraiment polyo ajd :
j'ai essaye ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim tmp
		Dim i : i=1
		Dim ok : ok=false
 
		while (ok=false)
			if (rs("username")="Frei"&i) then 'LIGNE 117
				rs.movefirst()
				i=i+1
			else if rs.eof then
					tmp="Frei"&i
					ok=true
				 else
				 	rs.movenext()
				 end if
			end if
		wend

et ca me donne l'erreur :
Exception occurred.
/Siemensemu/speichern.asp, line 117

: a comprend pas ce qui se passe :

[grafikm_fr]

Essaie plutot:

Code :

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

1
2
 
if (rs("username")="Frei" & Cstr(i)) then 'LIGNE 117