423,680 Members | 2,439 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 423,680 IT Pros & Developers. It's quick & easy.

label refresh problem in vb6

P: 2
Expand|Select|Wrap|Line Numbers
  1. For krushn = om21 To om42
  2.  
  3. Text7 = krushn
  4.  
  5. If con.State = 1 Then con.Close
  6. con.Open "Provider=Microsoft.Jet.OLEDB----------------------”
  7.  
  8. seetaseeta = 13
  9.  
  10. rs21.Open "select * from savebroadsheet where firstD='" + Text1 + "' and p3='" + Text7 + "'", con, 1, 3
  11. If rs21.RecordCount >= 1 Then seetaseeta = 21
  12.  
  13. If rs21.State = 1 Then rs21.Close
  14. rs21.Open "delete from tempbrodsheet13", con, 1, 3
  15. rs21.Open "tempbrodsheet13", con, 1, 3
  16.  
  17. rs13.Open "select * from allbalu where t1='" + Text1 + "' and l7='" + Text7 + "'", con, 1, 3
  18. Label1.Caption = "Total Employee : " + Trim(Str(rs13.RecordCount))
  19.  
  20. Do While Not rs13.EOF
  21. hh = hh + 1
  22. Label13.Caption = hh
  23. Label13.Refresh
  24.   rs21.AddNew
  25.   rs21!ecode = rs13!t3
  26.   rs21!ename = rs13!l11
  27.   rs21!prebal = Val(Mid(rs13!sx1, 15, 52))
  28.    rs21.Update
  29. rs13.MoveNext
  30. Loop
  31. rs21.Requery
  32. If seetaseeta = 13 Then 
  33. rs65.Open "insert into savebroadsheet select * from tempbrodsheet13", con, 1, 3
  34. endif
  35.  
  36. con.Close
  37.  
  38. Next
  39.  
  40.  
  41.  
Problem :
i am display value of hh label13
and refresh label every time..but after some time label refreshing is stop..but processing is going on...but i dont know how label refreshing is stop........plz help me...
Apr 7 '16 #1
Share this Question
Share on Google+
1 Reply


P: 2
Expand|Select|Wrap|Line Numbers
  1.  
  2.  
  3. For krushn = om21 To om42
  4.  
  5. Text7 = krushn
  6.  
  7. If con.State = 1 Then con.Close
  8. con.Open "Provider=Microsoft.Jet.OLEDB----------------------”
  9.  
  10. seetaseeta = 13
  11.  
  12. rs21.Open "select * from savebroadsheet where firstD='" + Text1 + "' and p3='" + Text7 + "'", con, 1, 3
  13. If rs21.RecordCount >= 1 Then seetaseeta = 21
  14.  
  15. If rs21.State = 1 Then rs21.Close
  16. rs21.Open "delete from tempbrodsheet13", con, 1, 3
  17. rs21.Open "tempbrodsheet13", con, 1, 3
  18.  
  19. rs13.Open "select * from allbalu where t1='" + Text1 + "' and l7='" + Text7 + "'", con, 1, 3
  20. Label1.Caption = "Total Employee : " + Trim(Str(rs13.RecordCount))
  21.  
  22. Do While Not rs13.EOF
  23. hh = hh + 1
  24. Label13.Caption = hh
  25. Label13.Refresh
  26.   rs21.AddNew
  27.   rs21!ecode = rs13!t3
  28.   rs21!ename = rs13!l11
  29.   rs21!prebal = Val(Mid(rs13!sx1, 15, 52))
  30.    rs21.Update
  31. rs13.MoveNext
  32. Loop
  33. rs21.Requery
  34. If seetaseeta = 13 Then 
  35. rs65.Open "insert into savebroadsheet select * from tempbrodsheet13", con, 1, 3
  36. endif
  37.  
  38. con.Close
  39.  
  40. Next
  41.  
  42.  
  43.  
  44.  
Apr 13 '16 #2

Post your reply

Sign in to post your reply or Sign up for a free account.