Progressbarr avec database

Signaler
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour,
voici le code de mon app

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If t >= 100 Then
Timer1.Stop()
Exit Sub
End If
second = second + 1
ProgressBar1.Value = t
t += 1

End Sub
Sub progress()
Timer1.Interval = 1000
Timer1.Start() 'Timer starts functioning
' ProgressBar1.Minimum = 0
' ProgressBar1.Maximum = 200
End Sub


mais lors que je click sur la cmd pour lire le data base le progressbarr ne fonctionne pas ...

mais si je click dans une autre btn qui ne fait pas la lecture dans le database tout est ok... que faire ?

Dim d As String = CDate(DateTimePicker1.Value).ToString("MM/dd/yyyy")
Dim table As String = "MSC_" & Replace(d, "/", "")
Dim querytable As String = "use E_DW "
querytable += "SELECT * FROM INFORMATION_SCHEMA.TABLES"
querytable += " WHERE TABLE_TYPE='BASE TABLE' AND TABLE_NAME='" & table & "' "
Dim cmdvery As SqlCommand = New SqlCommand(querytable, connection)
Dim datareader As SqlDataReader
datareader = cmdvery.ExecuteReader
'datareader.Read()
If datareader.HasRows = True Then
' MsgBox(datareader.HasRows).ToString()
Else
MsgBox("E_DW_dbo." & table & " Not Exist...")
Return
End If
datareader.Close()
cmdvery.Dispose()

progress()
....

1 réponse

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Bonjour,
Et donc ===>>> ta procédure progress n'est appelée qu'une fois fermée la connexion. Ta "démarche" est "étonnante" !

________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.