HEj! Läs exempelvis inlägget : Ok ! Pelle... Men om jag nu använder recordsetet för att ta ut data via SQL då kommer jag att tappa funktionen rst.recordcount eftersom rst är satt till querry och inte table. KAn jag på ett enkelt sätt kombinera dessa två under sökförloppet eller finns det något annat sätt jag kan anväda för att visa förloppet med en progressbar.Progressbar i en loopad SQL-sats.
Jag ill använda en progressbar i en loopad SQL-sats. När jag använder mig av rst.recordCount så blir värdet -1. och ett felmeddelande skapas.
Jag vill också anväda progress.value = rst.AbsolutPostition
Varför blir det så...
/Phinala
Här är koden:
mysql = "SELECT Spelid,Banid,Datum,Hål,Par,Spelomg,resultat FROM round WHERE Resultat= '" & Resultat & "'" & " and BanID='" & Bana & "'" & " and SpelID='" & Spelare & "'" ' SQL -satsen
Set rst = con.Execute(mysql)
rst.MoveFirst
midGolf.Prog.Min = 0
midGolf.Prog.Max = rsRes.RecordCount
While Not rst.EOF
midGolf.Prog.Value = rst.AbsolutePosition
Set x = ListView1.ListItems.Add(, , rst("SpelID")) ' Spelare
x.SubItems(1) = rst("BanID") 'Golfbana
x.SubItems(2) = rst("Datum") ' Spel datum
x.SubItems(3) = rst("Hål") ' Spelarens handicap
x.SubItems(4) = rst("par") ' Totala poängen på rundan
x.SubItems(5) = rst("Spelomg") ' Totala antalslag
x.SubItems(6) = rst("Resultat") ' Resultat per hål
midGolf.Prog.Value = rst.AbsolutePosition
rst.MoveNext
WendSv: Progressbar i en loopad SQL-sats.
http://www.pellesoft.nu/development/forum/view.asp?msgid=2309&forumid=4
eller titta på kursen ADO/VB del 1
/PelleSv: Progressbar i en loopad SQL-sats.