Discussion :

[nounafes]

bonjour tt le monde,j'ai un peit probleme,je suis entraine de crrer une form dans laquelle j'ai une combobox et une datagridview la basse de donnes contient quatre table ja doit choisir un Athlete dans la combobx et les cordonnes d'entrainement vont etre affiche dans la datagridview
voila le code avec lme quelle j'ai travaillé mais il me donne une erreur

Code vb :

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
**************************
 Imports System.Data.SqlClient
Public Class Form1
    Dim con As SqlConnection
    Dim cmd1, cmd2 As SqlCommand
    Dim da, da2 As SqlDataAdapter
    Dim ds As New DataSet
    Dim dt, dt1 As DataTable
    '*********************
 
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con = New SqlConnection
        con.ConnectionString = "Data Source=HASNA-92D031132\SQLEXPRESS;integrated security=sspi;initial catalog=Athlete"
        cmd1 = New SqlCommand
        cmd1.CommandText = "select * from athlete"
        con.CreateCommand()
        con.Open()
        cmd1.Connection = con
        da = New SqlDataAdapter(cmd1)
        da.Fill(ds, "Athlete")
        dt = ds.Tables("athlete")
        ComboBox1.DataSource = dt
        ComboBox1.DisplayMember = "NomAthlete"
        ComboBox1.ValueMember = "NumLicence"
        cmd2 = New SqlCommand
        cmd2.CommandText = "select * from Plan_Entrainement where NumLicence=" & ComboBox1.SelectedValue
        con.CreateCommand()
        cmd2.Connection = con
        da2 = New SqlDataAdapter(cmd2)
        da2.Fill(ds, "Plan_Entrainement")
        dt1 = ds.Tables("Plan_Entrainement")
        DataGridView1.DataSource = dt1
        con.Close()
    End Sub
End Class

je suis vraiment nesion de votre aide et merci d'avance

[Pol63]

ca me fera toujours halluciner les gens qui croient qu'on est devin ici ...

voila le code avec lme quelle j'ai travaillé mais il me donne une erreur

ca ne te viendrais pas à l'idée de nous donner les détails de l'erreur ???!!!

Code :

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

1
2
 
       cmd2.CommandText = "select * from Plan_Entrainement where NumLicence=" & ComboBox1.SelectedValue

tentative : sur le form load, si ton combobox n'a aucun element selectionné, cette requete ne peut pas s'executer ...

[Wapi_gui]

Perso, ce que je trouve impressionnant c'est de voir quelqu'un trouver un bout de réponse pour une question aussi inexistante...
Alors, de mon côté je n'ai pas de réponses, juste quelques questions sur le code donné :
- tu fais

Code :

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

1
2
3
Dim cmd1, cmd2 As SqlCommand
cmd1 = New SqlCommand
cmd1.CommandText = "select * from athlete"

Je ne sais pas si c'est normal, mais je trouves ça bizarre de définir 2 fois ton objet cmd1...
- pareil pour tout le reste.
Pourquoi tu fais ça comme ça ?

Et puis, je suis d'accord avec la remarque de sperot : tu risques d'avoir une erreur au niveau de ta commande 2, sauf si tu as prévu de selectionner une valeur par défaut.
Pourquoi ne fais-tu pas le chargement de ton datagridview dans ta procédure "ComboBox1_SelectedIndexChanged" ?

Et, dernière question : pourquoi fais-tu

Code :

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

1
2
dt1 = ds.Tables("Plan_Entrainement")
DataGridView1.DataSource = dt1

au lieu de

Code :

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

DataGridView1.DataSource = ds.Tables("Plan_Entrainement")

[Hinault Romaric]

- tu fais

Code :

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

1
2
3
Dim cmd1, cmd2 As SqlCommand
cmd1 = New SqlCommand
cmd1.CommandText = "select * from athlete"

Je ne sais pas si c'est normal, mais je trouves ça bizarre de définir 2 fois ton objet cmd1...
- pareil pour tout le reste.
Pourquoi tu fais ça comme ça ?

le mot clé New ne défini pas 2 fois l'objet cmd c'est juste qu'il y'a certain objet qu'après avoir déclarer faut utiliser le mot clé new avant de les utiliser , le fait est qu'en faisant

dim cmd1, cmd2 as new SqlCommand

sa va générer une erreur il aurai pu fait directement

Code :

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

1
2
dim cmd1 as new SqlCommand
dim cmd2 as new SqlCommand

Ce qu'il a fait n'est pas propre mais il ne créer pas cmd deux fois
nounafes tu ne décrit pas ton problème on sait comment t'aider nous ne somme pas sorcier