Discussion :

[Igmar]

Bonjour a tous,
Voila j'ai voudrais savoir s il y a un moyen simple de remplir une Textbox avec le résultat d'une requête.
Je m'explique; je me connecte a une base access, dans laquelle je dois lire dans une table une ligne et remplir la Textbox avec le valeur de champ de la ligne.
Suis-je clair ?? a vous de me le dire.
Ma question est :
Suis je obligé de faire plusieurs requête pour remplir la Textbox ? :-(
Merci de votre aide.

[JauB]

si ta requête te retourne juste une ligne tu peux utiliser un truc de type:

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
 
dim cn as new oledbConnection
dim cmd as new oledbCommand
dim da as new oledbDataAdapter
 
cn.ConnectionString="........."
 
cn.open
 
dim ds as new DataSet
dim request as String
request = "SELECT champ1, champ2... FROM maTable WHERE...."
 
cmd.CommandText = request
cmd.Connection = cn
da.SelectCommand = cmd
da.Fill(ds)
 
myTextBox.Text = ds.Tables(0).Rows(0).item("champ1")
cn.close

le code est à tester car je ne l'ai pas testé ( je l'ai écrit à la volet lol)
si ça marche pas je re....
Bon courage

[Igmar]

Tout d'abord, merci pour ton aide !
En fait je voulais mettre les 4 chmaps que je selectionne dans mon Textbox, maintenant que je sais comment retrouver le champs il me reste plus qu'a travailler sur les chaines !
Thanks Jaub !

[JauB]

et beh un une simple concaténatino de type :

Code :

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

1
2
3
4
5
6
7
 
dim myString as String
 
myString  = ds.Tables(0).Rows(0).item("champ1")
myString = myString & ds.Tables(0).Rows(0).item("champ2")
myString = myString & ds.Tables(0).Rows(0).item("champ3")
myTextBox.Text = myString

et tout sera bon

[Igmar]

Exactement ce a quoi je pensais !
Thanks !
Good JauB !
lol la tentation était trop forte ...