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

Version imprimable

Voir 40 message(s) de cette discussion en une page

02/06/2009, 15h43
Wapi_gui

Ahhh, celle-là je l'avais jamais vue !!! 8O
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à...

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

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

02/06/2009, 15h57
Wapi_gui

OK, ça c'est ta requete, et le résultat c'est quoi ?
02/06/2009, 16h00
tiph02

1 pièce(s) jointe(s)

Voici le resultat
02/06/2009, 16h01
Sarawyn

Citation:

"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.
02/06/2009, 16h04
tiph02

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 8O
:arf:
02/06/2009, 16h10
Wapi_gui

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

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

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

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

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

Code:

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

02/06/2009, 16h23
tiph02

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....
02/06/2009, 16h26
Wapi_gui

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...
02/06/2009, 16h32
tiph02

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

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

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

03/06/2009, 21h03
tiph02

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:

Dim Rech As New SqlClient.SqlCommand(sqlcheval, Base)
04/06/2009, 08h53
Wapi_gui

"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".
04/06/2009, 09h59
tiph02

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:

Dim maConnexion As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=..\GestConcours.mdb;Persist security Info=false")
04/06/2009, 10h06
Wapi_gui

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

Code:

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:

If Rech.read = True Then ...
04/06/2009, 11h23
tiph02

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...
04/06/2009, 11h32
Wapi_gui

Et du coup, ça donne quoi ? Ça fonctionne ?
04/06/2009, 11h44
tiph02

Ouaip tous s'affiche correctement et défile selon les bonnes valeurs !!
Désolé de t'avoir fait perdre ton temps :s

Voir 40 message(s) de cette discussion en une page