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 39 40 41 42 43
| Private Connection400 As New IBM.Data.DB2.iSeries.iDB2Connection
Private Command400 As New IBM.Data.DB2.iSeries.iDB2Command
Private DataAdapter400 As New IBM.Data.DB2.iSeries.iDB2DataAdapter
Private Dataset400 As New DataSet
Private Dataview400 As New DataView
.
.
Rem En cliquant sur le bouton 2 de l'application, voici le code qui est déroulé ...
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
rem Définition de la requête SQL ...
Command400.CommandText = "SELECT * FROM GCASH/LIGNES"
rem Remise à blanc du dataset ...
Dataset400.Tables.Remove("DATABASE")
rem Connection à la machine distante ...
Call ConnectionServeur400()
rem Déclaration des éléments de la PROGRESSBAR
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = NombreEnregSQL (Nombre d'enreg. fourni par SQL)
ProgressBar1.Step = 1
ProgressBar1.Value = 1
' Fait avancer la barre de progression :
' ProgressBar1.PerformStep() = ???????????????????????
Rem => Comment faire pour alimenter la barre de progression pendant le remplissage du DATASET400 avec DATAADAPTER400.FILL, sans boucler avec un DATAREADER, faut-il créer un événement ... ? Comment ! D'avance MERCI pour vos précisions !
Daniel
rem Remplissage du DATASET
DataAdapter400.Fill(Dataset400, "DATABASE")
' Base complète ...
rem Positionner les valeurs dans le DataGridView ...
Dataview400.Table = Dataset400.Tables("DATABASE")
DataGridView1.DataSource = Dataview400
rem Déconnection de la machine distante ...
Call DéconnectionServeur400()
rrem Affichage du Datagridview1 ...
DataGridView1.Visible = True
End Sub |
Partager