Bonjours
Je débute en programmation général et j'ai un problème que je n'arrive pas à résoudre malgré pas mal de recherche.
Donc mon problème est celui-ci, je ne peux obtenir les valeurs d'un champs dans une textebox intitulé N_client dépendent d'un autre champs qui est elle dans la combobox intitulé combobox1.
En peut être plus simple, les noms du champs nom_client sortant de sql serveur est dans la combobox (cela marche) et j'aimerais que le numéro correspondant au nom apparaisse dans la textebox.
Voici mon code
Merci d'avance de vos réponses et je reste bien sur disponible.
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46 Imports WindowsApplication4.Doo_Jet_projetDataSet Public Class Client Private CNX As System.Data.SqlClient.SqlConnection Private CMD As System.Data.SqlClient.SqlCommand Private DA As System.Data.SqlClient.SqlDataAdapter Private DS As System.Data.DataSet = New Data.DataSet Private DT As System.Data.DataTable = New DataTable Private SqlRequest As String Private Sub Client_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DT = New DataTable SqlRequest = "Select Nom_Client From Client" CNX = New Data.SqlClient.SqlConnection("Data Source=LGIL\SQLEXPRESS;Initial Catalog='Doo Jet projet';Integrated Security=True") Try CNX.Open() CMD = New Data.SqlClient.SqlCommand(SqlRequest, CNX) DA = New SqlClient.SqlDataAdapter(CMD) DA.Fill(DT) For Each count As System.Data.DataRow In DT.Rows ComboBox1.Items.Add(count.Item(0)) Next MessageBox.Show("Cool") Catch ex As SqlClient.SqlException MessageBox.Show("Pas cool " + ex.Message) End Try CNX.Close() End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged SqlRequest = "Select Numero_Client From client where nom_client = " + ComboBox1.SelectedItem.ToString + ";" CMD = New Data.SqlClient.SqlCommand(SqlRequest, CNX) DA = New Data.SqlClient.SqlDataAdapter(CMD) DA.Fill(DT) N_client.Text = DT.Rows.Item(0).ToString End Sub End Class
Partager