title image


Smiley Re: ProgressBar bei DB Abfrage
Diese Function zeigt dir wie du es machen kannst. Viel Spass.BöliPublic Function Test_Bar()Dim sql As StringDim RecAnz As DoubleDim var As IntegerDim Counter As IntegerDim Workarea(250) As String ' Länge der StatusbarProgressBar1.Min = LBound(Workarea)ProgressBar1.Max = UBound(Workarea) ' Fortschrittswert auf Min setzen. ProgressBar1.Visible = True ProgressBar1.Value = ProgressBar1.Min 'DatenSet rsProg = New Recordsetsql = "SELECT * FROM DetAdressen"rsProg.Open sql, dbProg, adOpenStatic, adLockOptimistic' Anzahl Daten / Länge der StatusbarRecAnz = 250 / rsProg.RecordCountDo While Not rsProg.EOF ' Schleife durch das Datenfeld. var = var + RecAnz ProgressBar1.Value = var rsProg.MoveNextLoop 'Statusbar Schliessen ProgressBar1.Visible = False ProgressBar1.Value = ProgressBar1.MinEnd Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: