title image


Smiley Re: asynchronen Recordset verwenden
Ok, aber mein Problem ist, dass erst alles angezeigt wird wenn das flexgrid mit den daten gefüllt ist. und irgendwie hatte ich noch immer problem eine progressbar zum laufen zu bringen.



hier mal der code der sich in der form_load befindet:



Set con = New ADODB.Connection

Set rst = New ADODB.Recordset

con.Open "Provider=Microsoft.Jet.oledb.4.0;" & "Data Source=" & App.Path & "\bd2.mdb"

rst.Open "SELECT * FROM emtaprov", con, adOpenStatic, adLockOptimistic



a = 1

b = rst.RecordCount

MSFlexGrid1.cols = 7

rst.MoveLast

MSFlexGrid1.FormatString = "NrDossier |Nr Tel |CM Mac |MTA Mac |Nom |Date Install | Commentaire"



Do While a <= b

With MSFlexGrid1

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

.TextMatrix(a, 0) = rst.Fields(1).Value

.TextMatrix(a, 1) = rst.Fields(2).Value

.TextMatrix(a, 2) = rst.Fields(3).Value

.TextMatrix(a, 3) = rst.Fields(4).Value

.TextMatrix(a, 4) = rst.Fields(5).Value

.TextMatrix(a, 5) = rst.Fields(6).Value

If rst.Fields(7).Value "" Then

.TextMatrix(a, 6) = "OUI" 'Left(rst.Fields(7).Value, 20)

End If

rst.MovePrevious

End With

a = a + 1



Loop

rst.Close



With Combo1

.AddItem "NrDossier"

.AddItem "NrTel"

.AddItem "CMMac"

.AddItem "MTAMac"

.AddItem "NomClient"

.AddItem "DateInstallation"

.ListIndex = 0

End With





danke

mfg

Philippe

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: