fmk
-
28 avril 2015 à 11:48
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018
-
28 avril 2015 à 13:28
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()