VB.NET Recupéré valeur de la BDD dans zone de liste

**Wapi_gui** · 02/06/2009, 16h43

Ahhh, celle-là je l'avais jamais vue !!!

Pourrais-tu faire un test sur SQL, stp? Tu crées une nouvelle requete, et tu remets ton "Select...", sauf qu'à la fin, au lieu de mettre idchev, tu mets le code correspondant. Après, tu sélectionnes ta requete, tu fais executer, et tu me dis ce que tu trouves. Parce que là...

**tiph02** · 02/06/2009, 16h53

Voila j'ai executé cette requete dans Access et cela me donne le bon resultat :/

Code :

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

1
2
3
4
SELECT NumSire, Nom, NomC, PrenomC, Cavalier.NumLicence 
FROM Cavalier, Cheval 
Where Cheval.NumLicence = Cavalier.Numlicence 
and Cheval.NumSire = 1

**Wapi_gui** · 02/06/2009, 16h57

OK, ça c'est ta requete, et le résultat c'est quoi ?

**tiph02** · 02/06/2009, 17h00

Voici le resultat

**Sarawyn** · 02/06/2009, 17h01

"Aucune ligne à la position 1"

N'est ce pas tout simplement car ta requête ne renvoie qu'un seul et unique résultat ? Si c'est le cas essaye de commencer le traitement de tes données à la ligne 0.

Il doit chercher à la ligne 1 ( et donc la 2ème ligne ), s'il n'y a qu'un résultat il mettra logiquement cette erreur.

Je sais pas pour Access mais dans beaucoup de language c'est le cas.

**tiph02** · 02/06/2009, 17h04

J'ai deja essayé a la ligne 0 mais il me met aussi qu'il n'y a pas de resultat pourtant dans ma table Cheval j'ai 3 enregistrements

**Wapi_gui** · 02/06/2009, 17h10

Si ça fonctionne sous Access, ça veut dire que le problème vient de ta requete, ou plutôt, de la façon d'envoyer ta requete. Tu peux remettres le code de tout l'évenement, comme tu avais fait au début, mais version mise à jour ? Parce qu'il doit y avoir un truc qui lui plait pas...

**tiph02** · 02/06/2009, 17h12

Alors le code qui s'effectue au chargement du formulaire :

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
Private Sub FrmVisuChevaux_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'CHARGEMENT DU FORMULAIRE
        Try
            maConnexion.Open()
            MsgBox("ok")
 
            sqlcheval = "SELECT NumSire,Nom,NomC,PrenomC,Cavalier.NumLicence "
            sqlcheval &= "FROM Cavalier, Cheval "
            sqlcheval &= "Where Cheval.NumLicence = Cavalier.Numlicence "
            sqlcheval &= "and Cheval.NumSire = 1"
            maCommandCheval.CommandText = sqlcheval
            maCommandCheval.Connection = maConnexion
            monDACheval.SelectCommand = maCommandCheval
            monDACheval.Fill(datasetcheval, "liste des chevaux")
            maDTChev = datasetcheval.Tables("liste des chevaux")
 
            Cbxpropriochev.DataSource = maDTChev
            Cbxpropriochev.ValueMember = "NumLicence"
            Cbxpropriochev.DisplayMember = "NomC"
 
            Ecrirechevaux(idchev, numlicence)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        maConnexion.Close()
    End Sub

Et le code qui permet d'afficher mes enregistrements :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Ecrirechevaux(ByVal numchev As Integer, ByVal numlicence As Integer)
        chevalenreg = maDTChev.Rows(numchev)
        Txtbnomchev.Text = chevalenreg("Nom")
        Txtbnumsiret.Text = chevalenreg("NumSire")
        proprioenreg = maDTChev.Rows(numlicence)
        Cbxpropriochev.Text = proprioenreg("NomC")
 
    End Sub

**Wapi_gui** · 02/06/2009, 17h19

Tu me diras, c'est ridicule, il n'y a pas de raisons que ça change tout... mais bon, tu peux toujours essayer...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sqlcheval = "SELECT Cavalier.NumLicence, NomC, PrenomC, NumSire, Nom "
sqlcheval &= "FROM Cavalier, Cheval "
sqlcheval &= "Where Cheval.NumLicence = Cavalier.Numlicence "
sqlcheval &= "and Cheval.NumSire = 1"
maCommandCheval.CommandText = sqlcheval
maCommandCheval.Connection = maConnexion
monDACheval.SelectCommand = maCommandCheval
monDACheval.Fill(datasetcheval, "liste des chevaux")
maDTChev = datasetcheval.Tables("liste des chevaux")
 
Cbxpropriochev.DataSource = maDTChev
Cbxpropriochev.ValueMember = "NumLicence"
Cbxpropriochev.DisplayMember = "NomC"

J'ai juste changé l'ordre dans ton select...

**tiph02** · 02/06/2009, 17h23

Sa fait toujours la même chose :/
Par contre j'ai oublié de te dire que quand je "valide" le message d'erreur il m'affiche donc mon interface graphique et que la zone de liste prend quand même comme valeur le nom du propriétaire .
Sa fait que mon NumSire et mon Nom de cheval ne s'affiche pas par contre le propriétaire oui....

**Wapi_gui** · 02/06/2009, 17h26

Tu devrais séparer ce que tu veux afficher dans ton combo concernant les cavaliers, et celui concernant les chevaux. Fais donc une requete sans NumSire et Nom du cheval, et une autre avec. Au pire, ça coupera ton problème en deux... Au mieux, tu n'auras plus de problèmes...

**tiph02** · 02/06/2009, 17h32

En fait tu propose que je face comme au depart ?
Une requete pour les chevaux et une requete pour mes cavaliers ?

Sinon On ne se casse plus la tête j'affiche dans une zone de texte et tanpis pour la modification je trouverai un autre moyen !

Non mais je suis bete, même si j'utilise une zone de texte c'est pareil puisque la requete ne veut pas m'affiche le bon propriétaire -_-

**Wapi_gui** · 03/06/2009, 10h12

Oh, si tu ne veux pas revenir à ce que tu as fais avant, tu peux aussi faire ceci :

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
sqlcheval = "SELECT NomC,PrenomC,Cavalier.NumLicence "
sqlcheval &= "FROM Cavalier, Cheval "
sqlcheval &= "Where Cheval.NumLicence = Cavalier.Numlicence "
sqlcheval &= "and Cheval.NumSire = 1"
sqlcheval &= "Select NumSire,Nom "
sqlcheval &= "From Cheval "
sqlcheval &= "Where NumSire = 1"
Dim Rech As New SqlClient.SqlCommand(sqlcheval, Base)
Rech.ExecuteReader()
If Rech.Read = True Then
      Cbxpropriochev.Text = Rech("NomC")
End If
 
Rech.NextResult()
If Rech.Read = True Then
   Txtbnomchev.Text = Rech("Nom")
   Txtbnumsiret.Text = Rech("NumSire")
End If
Rech.Close ()

Bon, il faut, bien sûr que tu adaptes ton code, parce qu'il y a des objets que je ne sais pas tout à fait exploiter, mais bon... En gros, ce que j'ai fait, c'est de mettre un DataReader à la place de ton DataTable, comme ça, pendant que ton DataReader lit dans ta base, il écrit en même temps les données qui vont bien. Enfin, normalement

**tiph02** · 03/06/2009, 22h03

D'accord je vais essayer ! Par contre je ne voie pas ce qu'il faut mettre a la place de "Base" sur cette ligne :

Code :

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

Dim Rech As New SqlClient.SqlCommand(sqlcheval, Base)

**Wapi_gui** · 04/06/2009, 09h53

"Base" symbolise la connection à la base de données. J'ai une classe qui le gère directement, mais toi tu dois créer un objet "connection".

**tiph02** · 04/06/2009, 10h59

Oui c'est exacte mais j'ai déjà essayé ma variable de connexion et cela ne prend pas se type apparemment !! :s
Voici ma variable qui permet la connexion :

Code :

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

Dim maConnexion As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=..\GestConcours.mdb;Persist security Info=false")

**Wapi_gui** · 04/06/2009, 11h06

Et quand tu veux travailler sur ton objet command, tu peux faire

Code :

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

Dim Rech As New SqlClient.SqlCommand(sqlcheval, maConnexion)

Non ?
Sinon, tu remplace Rech par un objet DataReader (que je ne sais pas manipuler, désolée), et tu reprends le code que j'ai mis à partir de

Code :

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

If Rech.read = True Then ...

**tiph02** · 04/06/2009, 12h23

Je pense que tu vas m'insulter....
Une erreur débile au possible....
Je n'avais pas fait +1 ou -1 sur mes propriétaire du coup quand je cliquai sur suivant ou précédant bahh sa marchait pas ....
J'ai aussi remplacer ma combobox par une textbox car mon prof m'a dit qu'il ne fallait pas afficher dedans...