Discussion :

[toumack]

Bonjour,
J'ai un formulaire nommé ACLoginForm et sur ce dernier, j'ai 42 boutons de Empl1 à Empl42, je peux changer facilement le premier bouton, par contre,
je voudrais que chaque bouton reçoivent le champ "Username" de ma requête.

J'avais créé des champs pour le prénom et le nom et cela faisait 84 textbox alors je les ai supprimés car c'est sur la caption des boutons que je veux voir le nom complet

Voici ce que j'ai présentement:

Note: Il y a 42 employés au maximum sur ce champ, le champ ou ces derniers sont créés se nomme EmployeeNumber si par exemple l'employé n° 10 quitte son emploi, je voudrais que le bouton Empl10 soit invisible, dans ma requête il y a un champ nommé ACTIVE de type bit, donc si c'est false, il ne sera pas dans la requête suivante:

Lorsque j'exécute mon programme mon formulaire ACLoginForm montre cette erreur:

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
27
28
29
30
31
    Private sub GetButtonCaption()
        Dim SQLCon As New SqlConnection With {.ConnectionString = "Server=CLAUDE-PC\AUTOCAISSESQL;database=ACData;User=programmeur;Pwd=mANONbENOIT1954;"}
        Dim SQLcmd As SqlCommand
        Dim READER As SqlDataReader
        Dim ctlName As String
        Dim matches() As Control
            Try
      	    SQLCon.Open()
	        Dim Query As String
	            Query = "SELECT EmployeeNumber, FirstName, LastName, Username, Active FROM EmployeesQuery WHERE Active =1"
	            SQLcmd = New SqlCommand(Query, SQLCon)
	            READER = SQLcmd.ExecuteReader
                    ' Pour charger chaque boutons dans le tableau des boutons
 
        ' Pour changer tous les textes des boutons en Bouton n° xx
        For B As Integer = 1 To 42
                ctlName = "Empl" & B
                matches = Me.Controls.Find(ctlName, True)
                If matches.Length > 0 AndAlso TypeOf matches(0) Is Button Then
                Dim btn As Button = DirectCast(matches(0), Button)
                btn.Text = READER.Item(3)
                End If
        Next
 
	        SQLCon.Close()
                    Catch ex As Exception
	                    MessageBox.Show(ex.Message)
                    Finally
	        SQLCon.Dispose()
                    End try
    End sub

[Phil Rob]

Ne trouves- tu pas la réponse dans ce que je t'ai envoyé ce matin ?
Le camion du bouton est sa propriété Text. C'est exactement ce que je fais de.s le projet envoyé ce matin.
Bonne soirée

[toumack]

Bonjour,
Si j'avais trouvé la réponse, je ne poserais pas de question, si tu remarques le code, c'est certain que j'ai essayé et je croyais bien l'avoir lorsque ce message m'est apparu, c'est pourquoi je demande est-ce que quelqu'un connaît ce message, ma requête est justifiée, ne trouves-tu pas?
.

[Pol63]

Le reader nécessite de faire while reader.read
Voir l’aide sur le reader (mettre le curseur dessus et faire F1 y aura sûrement un exemple d’utilisation). Tu peux aussi regarder la méthode read pour comprendre ce qu’elle fait.

[Phil Rob]

Bonjour,

Ta requête est peut-être justifiée mais mal exploitée.

Je regarde ton code et je vois que tu m'as pas de While Read. Tu ne peux parcourir le jeu d’enregistrements du Reader avec un For (comme je te le signale dans mon message d'hier matin, cf. aussi l'explication que Pol63 vient de t’envoyer). Revois mon code d'avant-hier et applique-le, tu 'auras plus cette erreur.

Quant à mon code d'hier matin, je te le conseille pour l’affection des "Caption" et outres propriétés de tes nombreux boutons, ce code n'a rien à voir avec les Reader.

Donc, pour les enregistrements : While ==> OUI, For ==> NON !

Bonne journée,