Bonjour tout le monde,
je suis débutante dans la programmation sous Visual Basic, je suis entrain d'élaborer une application sous VB.net et Access, là je suis bloquée et mon prob c que j'ai rempli un combobox par un champs de ma table, et je veux remplir mes textbox par les valeurs des autres champs qui correspond au même enregistrement,
alors pourriez vous m'aider?
Merci pour votre proposition, mais excusez moi je suis débutante en informatique et j'arrive pas à voir le lien entre mon prob et ce que vous dites. et merci d'avance
voilà mon programme j'espère que vous avez par quoi m'aidé
********* la connexion de la base de données******
'ouverture de la connection (à partir du répertoire de l'application) sur la même ligne
cnxstr = "provider = microsoft.ace.oledb.12.0 ; data source = C:\mon_logiciel\Base de données\Données.accdb"
cnx = New OleDbConnection
cnx.ConnectionString = cnxstr
cnx.Open()
'Création de la requête sql
sql = "select caractéristique_sol.* from caractéristique_sol"
'Création de la commande et on l'instancie (sql)
cmd = New OleDbCommand(sql)
'Création du dataadapter (dta) et on l'instancie (cmd)
dta = New OleDbDataAdapter(cmd)
'On instancie la commande (cmd) à la connection (cnx)
cmd.Connection() = cnx
'On charge le dataset (dts) grâce à la propriété fill du dataadapter (dta)
dta.Fill(dts, "caractéristique_sol")
'On charge la datatable (dtt) grâce à la propriété tables du dataset (dts)
dtt = dts.Tables("caractéristique_sol")
ComboBox1.DataSource = dtt
et je veux remplir mes textbox par les valeurs des autres champs qui correspond au même enregistrement
le tuto montre comment utiliser l'objet databinding source pour lier la source de données (ici ta datatable) et différents contrôles (dans l'exemple il y a un datagridview et plusieurs textbox). Quand on clique sur une ligne du datagridview les données "bindées" s'affichent dans les textbox.
Il y a même un lien vers le code source exemple à dispo sur le site pour voir le comportement.
Pour une listbox ou un combobox c'est pareil.
<code>
'boucle for pour chercher la valeur de l index*****
Dim ii As Long
For ii = 0 To dtt.Rows.Count - 1
If dtt.Rows(ii).Item("Texture").ToString = ComboBoxTexture.Text Then
rownum = ii
End If
Next
