Discussion :

[MrThorr]

Bonjour,

Je poste ici, car j'ai lu des centaines de lignes de tuto de livres et de code, mais je trouve pas ce que je cherche.

En fait, j'ai fait un bout de code en VB.NET qui se connecte a une base mysql pour aller chercher des infos.

J'arrive bien as récupérer ce que je veut (avec les commandes sql select...) mais je bloque au niveau de traiter les données.

D'après les tuto, j'arrive a prendre les données du dataset et les envoyer dans un datagrid, mais ce que je veut faire c'est les envoyer vers une textbox (multiligne).

Voila mon bout de code actuel :

Code :

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

1
2
3
4
5
6
7
8
9
    Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        laConnection.ConnectionString = "database=" + sqlbase + ";server=" + sqladdress + ";user id=" + sqluser + ";password=" + sqlpass + ";"
        laConnection.Open()
        ' requete affiche la table selectionner 
        laReqette = New MySqlDataAdapter("SELECT nom FROM inscriptions", laConnection)
        ' charge le DataSet sour
        laReqette.Fill(sour, "inscriptions")
        'afficher la table dans datagrid
        DataGrid1.DataSource = sour.Tables("inscriptions")

Donc j'affiche les nom de la table insciprtions dans le datadrid, ok, mais je voudrais les mettre dans une textbox et plus tard dans un label (mais si je comprends comment on les mets dans une textbox, ce sera pareil..

Avez vous une idée ?

[Sankasssss]

Hello, tu es sûr d'avoir lu le bon tuto?
pour afficher le nom d'une table dans un textbox :

Code :

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

Label1.Text = CStr(ds.Tables(0).TableName)

pour afficher le nom d'une colonne dans un textbox :

Code :

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

1
2
3
Label1.Text = ds.Tables(0).Columns(0).Caption
ou 
Label1.Text = ds.Tables("nomTable").Columns("nomColonne").Caption

pour afficher le contenu d'une cellule :

Code :

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

Label1.Text = CStr(ds.Tables("nomTable").Rows(0).Item("nomColonne"))

ne pas oublier que les table, les rows et itemarray sont des collections donc tu peux les énuméré avec un for each :

Code :

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

1
2
3
4
5
6
7
        For Each table As DataTable In ds.Tables
            For Each row1 As DataRow In table.Rows
                For Each item As String In row1.ItemArray
                    'de cette manière on passe sur toutes les cases de toutes les tables du dataset...
                Next
            Next
        Next

[MrThorr]

Bonjour,

En effet, je suis passé assez vite sur msdn... (leur interface est tellement attractive... ).

Merci pour le lien, je scrutte le msdn la prochaine fois...

Voila ce que je cherchais :

Code :

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

Label22.Text = CStr(sour.Tables("inscriptions").Rows(0).Item("nom")) + " " + CStr(sour.Tables("inscriptions").Rows(0).Item("prenom"))

Ou "sour" est ma source...

Cordialement