Base de données sql sur vb

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

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

Merci d'avance de vos réponses et je reste bien sur disponible.

Bonjour,
Pour alimenter ta TextBox, tu utilises le même principe que la combobox sauf que dans ta requête SQL tu prends en paramètre la valeur de ta combobox.

Code:

SqlRequest = "Select Numero_Client From Client where Nom_Client = @Nom_Client"

Avec @Nom_Client = ComboBox1.SelectedValue.

Je te laisse maintenant chercher le reste de ta syntaxe.
J'espère que ça t'aidera pour avancer...
Lola

Merci pour ta réponse, je travaille dessus depuis que tu m'as répondus et je sens que j'en suis proche.

Il ne me reste qu'à comprendre l'expression attendu.

En tous cas merci car je suis dessus depuis hier et sa devenait énervant de ne pas avancer malgré des grosses recherches.

Edit : Voila j'ai enfin réussi :D

Merci pour tous Lola :king: