label refresh problem in vb6

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • shriram1321
    New Member
    • Apr 2016
    • 2

    label refresh problem in vb6

    Code:
    For krushn = om21 To om42
    
    Text7 = krushn
    
    If con.State = 1 Then con.Close
    con.Open "Provider=Microsoft.Jet.OLEDB----------------------”
    
    seetaseeta = 13
    
    rs21.Open "select * from savebroadsheet where firstD='" + Text1 + "' and p3='" + Text7 + "'", con, 1, 3
    If rs21.RecordCount >= 1 Then seetaseeta = 21
    
    If rs21.State = 1 Then rs21.Close
    rs21.Open "delete from tempbrodsheet13", con, 1, 3
    rs21.Open "tempbrodsheet13", con, 1, 3
    
    rs13.Open "select * from allbalu where t1='" + Text1 + "' and l7='" + Text7 + "'", con, 1, 3
    Label1.Caption = "Total Employee : " + Trim(Str(rs13.RecordCount))
    
    Do While Not rs13.EOF
    hh = hh + 1
    Label13.Caption = hh
    Label13.Refresh
      rs21.AddNew
      rs21!ecode = rs13!t3
      rs21!ename = rs13!l11
      rs21!prebal = Val(Mid(rs13!sx1, 15, 52))
       rs21.Update
    rs13.MoveNext
    Loop
    rs21.Requery
    If seetaseeta = 13 Then 
    rs65.Open "insert into savebroadsheet select * from tempbrodsheet13", con, 1, 3
    endif
    
    con.Close
    
    Next
    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...
    Last edited by Rabbit; Apr 11 '16, 05:12 PM. Reason: Please use [code] and [/code] tags when posting code or formatted data.
  • shriram1321
    New Member
    • Apr 2016
    • 2

    #2
    Code:
    
    For krushn = om21 To om42
     
    Text7 = krushn
     
    If con.State = 1 Then con.Close
    con.Open "Provider=Microsoft.Jet.OLEDB----------------------”
     
    seetaseeta = 13
     
    rs21.Open "select * from savebroadsheet where firstD='" + Text1 + "' and p3='" + Text7 + "'", con, 1, 3
    If rs21.RecordCount >= 1 Then seetaseeta = 21
     
    If rs21.State = 1 Then rs21.Close
    rs21.Open "delete from tempbrodsheet13", con, 1, 3
    rs21.Open "tempbrodsheet13", con, 1, 3
     
    rs13.Open "select * from allbalu where t1='" + Text1 + "' and l7='" + Text7 + "'", con, 1, 3
    Label1.Caption = "Total Employee : " + Trim(Str(rs13.RecordCount))
     
    Do While Not rs13.EOF
    hh = hh + 1
    Label13.Caption = hh
    Label13.Refresh
      rs21.AddNew
      rs21!ecode = rs13!t3
      rs21!ename = rs13!l11
      rs21!prebal = Val(Mid(rs13!sx1, 15, 52))
       rs21.Update
    rs13.MoveNext
    Loop
    rs21.Requery
    If seetaseeta = 13 Then 
    rs65.Open "insert into savebroadsheet select * from tempbrodsheet13", con, 1, 3
    endif
     
    con.Close
     
    Next

    Comment

    Working...