Discussion :

[pools]

Bonjour Bonjour,

Je vais essayer de vous expliquer mon probléme le plus clairement possible car je n'ai pas réussi à être clair :

J'ai une ComboBox avec comme DataSource une liste de client (venant d'une base de données access). Quand je clique sur un nom, je voudrais recupérer les données de la méme ligne dans la base (du genre addresse, num tel etc etc) pour ensuite les faire apparaitre dans des TextBox. Comment Faire ?

Voila ce que j'ai déjà fait :

-recherche de la ligne par rapport à un nom de client :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim exp As String   'expression à rechercher
			'Dim sortOrder As String = "Nom DESC"
			Dim foundRows() As System.Data.DataRow   'résultat dans des DataRow
 
				exp="Struct_Cont='"+cbStruct_Cont.Text+"'"
				foundRows = tbl1.Select(exp)'sortOrder
 
			Dim objetDatat1 As New System.Data.DataTable
				For Each r As System.Data.DataRow In foundRows
					objetDatat1.ImportRow(r)
				Next
				MsgBox("n° "+objetDatat1.Rows.Count.ToString)
				lig=objetDatat1.Rows.Count-1

-et dans ce script j'affiche des infos dans des des TextBox
lig correspond au numéros de la ligne où le nom de client a été trouver.

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
Private Sub AffichDS()
		If lig <= tbl1.Rows.Count - 1 And lig >= 0 Then
			 txtNum_Cont.Text=tbl1.Rows(lig).Item("Num_Cont")
			 txtStruct_Cont.Text=tbl1.Rows(lig).Item("Struct_Cont")
			 txtSiret_Cont.Text=tbl1.Rows(lig).Item("Siret_Cont")
			 txtServ_Cont.Text=tbl1.Rows(lig).Item("Serv_Cont")
			 txtCiv_Cont.Text=tbl1.Rows(lig).Item("Civ_Cont")
			 txtNom_Cont.Text=tbl1.Rows(lig).Item("Nom_Cont")
			 txtPrenom_Cont.Text=tbl1.Rows(lig).Item("Prenom_Cont")
			 txtAd_Cont.Text=tbl1.Rows(lig).Item("Ad_Cont")
			 txtCp_Cont.Text=tbl1.Rows(lig).Item("Cp_Cont")
			 txtVille_Cont.Text=tbl1.Rows(lig).Item("Ville_Cont")
			 txtTel_Cont.Text=tbl1.Rows(lig).Item("Tel_Cont")
			 txtFax_Cont.Text=tbl1.Rows(lig).Item("Fax_Cont")
			 txtPort_Cont.Text=tbl1.Rows(lig).Item("Port_Cont")
			 txtMail_Cont.Text=tbl1.Rows(lig).Item("Mail_Cont") 
			 txtHist_Cont.Text=tbl1.Rows(lig).Item("Hist_Cont") 
			 txtObs_Cont.Text=tbl1.Rows(lig).Item("Obs_Cont")
		End If
	End Sub

[lola06]

Salut,
à la place de récupérer la ligne selectionnée, récupère plutôt la valeur choisie dans la combobox. Puis avec cette valeur tu fait une requête SQL sur ta base de données afin de récupérer les informations que tu souhaites.
Est ce que c'est clair pour toi ?
Lola

[pools]

oui d'accord je vois !! je teste ! merci beaucoup