Discussion :

[amirad]

Bonsoir,
Soit une requête Select qui me permet de récupérer plusieurs valeurs :

Code :

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

1
2
3
4
5
6
7
8
 
Mycommand7.CommandText = "select Poids.valeur from Poids where idMot = 'xx' )"
 
 Dim myReader7 As OleDbDataReader = Mycommand7.ExecuteReader()
   Do While myReader7.Read()
               poids = myReader7.GetString(0)
               messagebox.show (poids)
   Loop

Ceci me retourne : A, B et C .

Comment faire pour récupérer le A dans une variable à part, le B dans une variable à part, etc..

[angelevil]

Tu crées une string

Code :

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

dim lastring as string = ""

tu lis avec la requête chaque lettre et tu les mets dans la string lastring.

Code :

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

1
2
3
4
5
 
 Dim myReader7 As OleDbDataReader = Mycommand7.ExecuteReader()
   Do While myReader7.Read()
               lastring = lastring & myReader7.GetString(0)
   Loop

Apres tu calcules la longueur de la chaine string.

Code :

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

longueur as integer = lastring.lenght

Maintenant tu sais combien de caractère a été trouvé avec la requête...

Au lieu de créer X variables t'as juste à lire chaque lettre avec la commande char(X) ou X est la position dans la string. La première position est TOUJOURS 0.

Code :

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

1
2
3
4
 
 
msgbox(lastring.char(0))
'' etc....

Voila

AngelEvil!