Discussion :

[gastoncs]

Bonjour, voila ma question est dans le titre, comment affecter le résultat d'une requête mysql dans un tableau de type string ?

j'ai commencé a faire ceci, pour afficher le champ que je souhaite mettre dans mon tableau:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Dim myData_mail As New DataSet
    Dim myAdapter_mail As MySqlDataAdapter
Dim tab() as string
HostConn.ConnectionString = "server=localhost; user id=root; password=; database=intervention"
            HostConn.Open()
 myAdapter_mail = New MySqlDataAdapter("SELECT adresse FROM clients", HostConn)
            myAdapter_mail.Fill(myData_mail, "clients")
            DataGridView1.DataSource = myData_mail.Tables("clients")
            DataGridView1.Columns(1).Width = 100 '
            DataGridView1.Columns("adresse").HeaderText = "adresse"
            DataGridView1.AllowUserToAddRows = False
            DataGridView1.RowHeadersVisible = False

mais comment faire pour ajouter les adresse issu de ma table dans mon tableau tab, dans le but par la suite de parcourir ce tableau ???

[gastoncs]

voila j'ai essayé avec un datareader, mais rien ne s'ajoute au tableau !
aurais je raté une étape ???

ps: on ne le vois pas sur le code ci dessous mais ma base est ouverte est connecté

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
 Dim tabmail() As String
            Dim i As Integer
 
            SQL_mail = "SELECT * FROM clients"
            myCommand_mail.CommandText = SQL_mail
            myAdapter_mail.SelectCommand = myCommand_mail
            myData_mail = myCommand_mail.ExecuteReader()
            myData_mail.Read()
 
            While myData_mail.Read
                tabmail(i) = myData_mail.GetString("adresse")
                i = i + 1
            End While
            myData_mail.Close()
 
            Label9.Text = tabmail(1)

[Pol63]

ton code doit planter dans l'état
tabmail n'est pas dimensionné donc tabmail(i) n'existe pas

utilise une collection ca sera plus simple

Code :

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

1
2
3
dim tabmail as new list(of string)
 
tabmail.add(mydata_mail.getstring ...

et plus besoin de i du coup


(ton code est dans le form_load ?)