Progress bar

[muddasirmunir]

i am using vb6

i have a follwing code which insert data into the table

 
 
‘ Note fromint and toint can be any interger like 10000 -12000 inputed by user
 
 
 
For a = fromint To toint
 
Dim numberstr As String
 
Dim numbercmd As Command
 
Set numbercmd = New Command
 
numberstr = "INSERT INTO invtemp    ([Invoice No]) VALUES     (" & a & ")" ‘There are more field but I remove them to simplify it
 
numbercmd.ActiveConnection = con
 
numbercmd.CommandText = numberstr
 
numbercmd.Execute 
 
End If
 
 
 
Next a
 
 

the code is working fine and now i want to add a progrss bar to it so i can show user how much time it takes
proviosly i have no experien using a progress bar

i had try it my making like this

 
 
‘ Note fromint and toint can be any interger like 10000 -12000 inputed by user
 
 
 
 ProgressBar1.Min = fromint
 
 ProgressBar1.Max = toint 
 
For a = fromint To toint
 
Dim numberstr As String
 
Dim numbercmd As Command
 
Set numbercmd = New Command
 
numberstr = "INSERT INTO invtemp    ([Invoice No]) VALUES     (" & a & ")" ‘There are more field but I remove them to simplify it
 
numbercmd.ActiveConnection = con
 
numbercmd.CommandText = numberstr
 
numbercmd.Execute
 
 ProgressBar1.Value = ProgressBar1.Value + 1
 
End If
 
 
 
Next a
 
 

but it is giving me error on minimum value

how to slove this

[QVeen72]

Hi,

Slight Tricky over here...
Always For progressbar, Max value should be Greater than Min, Or else, it errorrs..
So you need to reverse the condition... First Set Max and then Min, or First set Min =0

ProgressBar1.Min = 0
ProgressBar1.Max = 12000
ProgressBar1.Min = 10000


Regards
Veena

[muddasirmunir]

OK I will try it like this by reversing it

Hi,

Slight Tricky over here...
Always For progressbar, Max value should be Greater than Min, Or else, it errorrs..
So you need to reverse the condition... First Set Max and then Min, or First set Min =0

ProgressBar1.Min = 0
ProgressBar1.Max = 12000
ProgressBar1.Min = 10000


Regards
Veena

[muddasirmunir]

Thanks its now working properly