Discussion :

[hellreaperdd]

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 :

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
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,

[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 :

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

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();

[hellreaperdd]

Sinon avec un DataReader? on fait comment?

[Hinault Romaric]

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
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()

@++

[laedit]

Ou un Reader.GetString("index de la colonne") histoire de ne pas devoir faire le ToString après.

[hellreaperdd]

Super merci! sa marche nickel