Plate-forme : VS2005 pro
SGBD : Mysql
langage : VB2005
Bonjour à tous,
je developpe un logiciel de gestion de cabinet connecté à une bdd mysql à distance.
dans mon exemple, j'ai une fenetre utilisateur avec un formulaire (pour creer, modifier un compte utilisateur) et dans ce formulaire j'y ai mis un bouton permettant de choisir un utilisateur dans une liste.
Sur le click du bouton, j'ouvre donc une nouvelle fenêtre avec un listview :
Au chargement de cette fenetre listuti, je charge tout les utilisateurs :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 code dans la fenetre utilisateur Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ListUti.ShowDialog() End Sub
J'ai délais de chargement trop trop long à l'ouverture de cette fenetre.
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
32
33
34
35
36
37
38 Imports System Imports MySql.Data.MySqlClient Imports MySql.Data.VisualStudio Public Class ListUti Dim Cnx As MySqlConnection = New Connexion().SeConnecter ' Chargement a l'ouverture de cette fenêtre la liste complète des utilisateurs Private Sub ListUti_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load chargementListe() End Sub Private Sub chargementListe() Cnx = New Connexion().SeConnecter Try ListView1.Items.Clear() Dim SQLFind As String = "select * from utilisateur" Dim command As MySqlCommand = New MySqlCommand(SQLFind, Cnx) Dim reader As MySqlDataReader = command.ExecuteReader() While reader.Read() Dim cellule1 As Int32 = reader.GetInt32(0) Dim cellule2 As String = reader.GetString(3) Dim cellule3 As String = reader.GetString(4) Dim LVI As New ListViewItem LVI.Text = cellule1 LVI.SubItems.Add(cellule2) LVI.SubItems.Add(cellule3) ListView1.Items.Add(LVI) End While Catch ex As Exception MsgBox(ex.Message) End Try Cnx.Close() End Sub end class
Ensuite une fois que cette fenetre est chargé c'est impeccable sur la connexion. quand je ferme la fenetre de la liste et que je la réouvre cela marche niquel !
je suis à votre ecoute, merci d'avance.
Johan PROTIN
Partager