Discussion :

[lolo971]

Bonsoir à toutes et à tous.

Je cherche à afficher les données de 3 tables (liées par des clé secondaires) d'une meme base se données de sql server 2005.

Comme je n'y arrivais pas avec une ListView, j'ai pris le parti de le faire avec 2 ListBox.


Voici le code:



Imports System.Data
Imports System.Data.SqlClient
Public Class Form6

Inherits System.Windows.Forms.Form

Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim sqlconnect As SqlConnection
Dim ConnectionString As String

ConnectionString = "Data Source=PC-LOLO\SQLEXPRESS;Initial Catalog = Bdd-ScoresMastermind ;Integrated Security=True "
sqlconnect = New SqlConnection(ConnectionString)

Try
sqlconnect.Open()
Dim Mycommand As SqlCommand = sqlconnect.CreateCommand()
Mycommand.CommandText = "SELECT J.PseudoJoueur, S.Score FROM SCORES S, JOUEURS J WHERE S.IdJoueur = J.IdJoueur ORDER BY S.Score DESC"

Dim myReaderPseudo As SqlDataReader = Mycommand.ExecuteReader()
Dim myReaderScore As SqlDataReader = Mycommand.ExecuteReader()


Do While myReaderPseudo.Read()

ListBox_Pseudo.Items.Add(myReaderPseudo.GetString(0))

Do While myReaderScore.Read()

ListBox_Score.Items.Add(myReaderScore.GetInt32(0))

Loop
Loop


myReaderPseudo.Close()
myReaderScore.Close()

sqlconnect.Close()

Catch

MsgBox("Erreur ", MsgBoxStyle.OkCancel)

End Try

End Sub




Malheureusement, ça me donne une erreur. Ma réquète est Ok donc:

Pourriez-vous m'aider SVP?

Merci. A bientôt!

[monopole]

ListBox_Score.Items.Add(myReaderScore.Getvalue)