cs_Choucroute62
Messages postés34Date d'inscriptionlundi 2 avril 2007StatutMembreDernière intervention17 janvier 2008
-
17 janv. 2008 à 09:33
cs_Choucroute62
Messages postés34Date d'inscriptionlundi 2 avril 2007StatutMembreDernière intervention17 janvier 2008
-
17 janv. 2008 à 13:47
Bonjour à vous,
voilà j'expose mon problème
Je suis actuellement stagiaire dans un service informatique et j'ai une application à développer.
Pour le début je suis sous Access mais par la suite je fais passer le tout en Oracle mais là n'est pas le problème.
J'ai une table Access qui répertorie tous les agents cotisant pour la CNP.
J'ai une listbox qui contient tous ces agents avec 3 textbox qui affiche leur matricule, nom, et prénom lorsque l'on sélectionne un agent dans la liste, mais dans ma listbox j'ai plus de 2400 éléments!!!
Il faut donc que je n'affiche pas les doublons, il ne faut pas que je les supprime, il est simplement question d'un affichage.
cs_Choucroute62
Messages postés34Date d'inscriptionlundi 2 avril 2007StatutMembreDernière intervention17 janvier 2008 17 janv. 2008 à 10:25
Oui!!!
Que je suis bête!!
en plus je l'avais marqué sur le postit collé à mon écran!
Merci de me l'avoir rappelé!
Ca marche nickel maintenant.
Je t'en remercie vivement.
cs_Choucroute62
Messages postés34Date d'inscriptionlundi 2 avril 2007StatutMembreDernière intervention17 janvier 2008 17 janv. 2008 à 10:39
Je viens de repérer un problème!
J'ai par exemple
...
Montvalet Jean
Monvalet Charles
...
et dans ma listbox il va me mettre
...Montvalet
Monvalet...
normal, mais lorsque je sélectionne pour afficher les informations dans ma textbox, il va m'afficher
Monvalet Jean pour le premier
Monvalet Jean pour le deuxième
cs_Choucroute62
Messages postés34Date d'inscriptionlundi 2 avril 2007StatutMembreDernière intervention17 janvier 2008 17 janv. 2008 à 10:53
Moi j'ai ça comme code
Imports System.Data.oledb
Public Class Agents
Dim var As String
Public conn As OleDbConnection
Private Sub Agents_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\stage\Documents\CNPTEST.mdb;Persist Security Info=False;")
Dim commande As OleDbCommand = conn.CreateCommand()
Dim reader As OleDbDataReader
conn.Open()
commande.CommandText = "select distinct nom_usuel, nom_prenom, idf_agent from Archivage_Form_Cnp"
reader = commande.ExecuteReader
Do While reader.Read()
Listbox_agents.Items.Add(reader.Item("nom_usuel"))
Loop
reader.Close()
End Sub
Private Sub Btn_retour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_retour.Click
Me.Close()
End Sub
Private Sub Listbox_agents_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Listbox_agents.SelectedIndexChanged
var = Listbox_agents.Text
Dim commande_agent As OleDbCommand = conn.CreateCommand() commande_agent.CommandText "Select distinct * from Archivage_form_cnp where nom_usuel'" & var & "'"
Dim reader_agent As OleDbDataReader = commande_agent.ExecuteReader
reader_agent.Read()
Sub list_agents()
Dim commande_liste As OleDb.OleDbCommand = conn.CreateCommand()
commande_liste.CommandText = "select distinct * from Archivage_form_cnp"
Dim reader As OleDb.OleDbDataReader = commande_liste.ExecuteReader
While reader.Read()
Listbox_agents.Items.Add(reader.Item("nom_usuel"))
End While
reader.Close()
End Sub
End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?