[VB] avec une requete SQL la mettre dans une TextBox

Version imprimable

Bonjour,

Je souhaiterais pouvoir modifier une donner dans ma base. Donc quand mon utilisateur ta l' id de se qu'il souhaite modifier j'ai:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim conn As New MySqlConnection
        Dim myCommand As New MySqlCommand
        Dim myAdapter As New MySqlDataAdapter
        Dim myData As New DataTable
        Dim SQL As String 
 
 
 SQL = "SELECT prenom,nom,entreprise_client  FROM formation WHERE ID= '" & val1 & "' "
 
conn.ConnectionString = myConnString
 
        Try
            conn.Open()
 
            Try
                myCommand.Connection = conn
                myCommand.CommandText = Sql
                myAdapter.SelectCommand = myCommand
                myAdapter.Fill(myData)
' mes textbox
 
        Vprenom = prenom.Text
        Vnom = nom.Text
        Ventreprise = entreprise.Text

donc quand je clique pour faire ma recherche je voudrait que les valeur qui sont dans prenom, nom, entrprise_client se retrouve dans leur textbox correspondante.

Merci,

15/09/2009, 14h26
laedit
Pour une requête comme celle-ci, je trouve l'utilisation d'une DataTable un peu excessif, il serait plus simple d'utiliser un DataReader.

Ceci dit, pour répondre à ton problème (par contre c'est du C#, j'ai un peu de mal avec le VB) :
Code:

1 2 3 4 5 6 DataRow myRow = myData.Rows[0]; prenom.Text = myRow["prenom"].ToString(); nom.Text = myRow["nom"].ToString(); entreprise.Text = myRow["entreprise_client"].ToString();
15/09/2009, 14h59
hellreaperdd

Sinon avec un DataReader? on fait comment?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim conn As New MySqlConnection
        Dim myCommand As New MySqlCommand
        Dim Reader As  MySqlDataReader
        Dim SQL As String 
 
 
 SQL = "SELECT prenom,nom,entreprise_client  FROM formation WHERE ID= '" & val1 & "' "
 
conn.ConnectionString = myConnString
 
        Try
            conn.Open()
            myCommand.Connection = conn
            myCommand.CommandText = Sql
            Reader = myCommand.ExecuteReader
' mes textbox
       Reader.read()
        prenom.Text = Reader.getvalue("index de la colonne").tostring()
        nom.Text =  Reader.getvalue("index de la colonne").tostring()
       entreprise.Text =  Reader.getvalue("index de la colonne").tostring()

@++ ;)

15/09/2009, 15h29
laedit

Ou un Reader.GetString("index de la colonne") histoire de ne pas devoir faire le ToString après.
15/09/2009, 16h22
hellreaperdd

Super merci! sa marche nickel