January 9, 2009 02:55pm pst

1. BrandonG... 59,050
2. chapmandew 44,560
3. angelIII 42,200
4. acperkins 28,502
5. tigin44 27,680
6. ScottPletc... 23,665
7. Sharath_... 16,500
8. mwvisa1 15,100
9. mark_wills 12,250
10. EugeneZ 12,200
11. expertsoul 9,900
12. Emes 9,070
13. nmcdermaid 9,000
14. gkern 8,350
15. Qlemo 8,275
16. andy232 6,675
17. dportas 6,620
18. arnold 4,400
19. pettmans 4,300
20. jimpen 4,150
21. QPR 4,140
22. St3veMax 4,075
23. chrismc 4,000
23. PedroCGD 4,000
25. thehagman 3,864

1. angelIII 11,426,862
2. aneeshatti... 4,685,198
3. acperkins 4,417,890
4. ScottPletc... 4,391,638
5. chapmandew 2,616,666
6. arbert 2,245,195
7. Lowfatsp... 2,174,384
8. EugeneZ 1,684,983
9. imran_fast 1,484,261
10. rafrancisco 1,460,132
11. Hilaire 1,221,775
12. nmcdermaid 1,185,792
13. Nightman 1,148,504
14. Mr_Peer... 1,087,815
15. ptjcb 1,074,620
16. bhess1 1,073,837
17. dtodd 943,030
18. mark_wills 802,510
19. matthews... 793,605
20. adathelad 793,408
21. appari 787,104
22. Sirees 776,352
23. BrandonG... 772,528
24. BriCrowe 722,959
25. amit_g 683,229

10.01.2008 at 09:09AM PDT, ID: 23778543

	[x] Attachment Details

Looping help

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.3

Zone:

MS SQL Server

Tags:

Microsoft, Office, 2003

I need help converting the following Access code into a SQL procedure: (the rs! is from Access and refers to the recordset)

sSQL = "SELECT *, sort_number, lstor, lordr FROM PUBLIC_HISLIN ORDER BY lstor, lordr, sort_number"
Set rs = db.OpenRecordset(sSQL)

counter = 0
rs.MoveFirst
Do Until rs.EOF
StoreNum = rs!lstor
OrderNum = rs!lordr
Do Until (rs!lstor <> StoreNum) Or (rs!lordr <> OrderNum)
counter = counter + 1
LineNumber = LineNumber + 1
rs.Edit
rs!LINE_NUMBER = LineNumber
rs.Update
If counter <> rs.RecordCount Then
rs.MoveNext
Else
GoTo out
End If
' Update the progress meter.
RetVal = SysCmd(acSysCmdUpdateMeter, counter)
Loop
If ((rs!lstor <> StoreNum) Or (rs!lordr <> OrderNum)) Then LineNumber = 0
Loop

I have tried a couple of different ways which are extremely slow... so slow that I do not know if it truly works because it is taking so long I have not seen it complete

Start your 7 day free trial to see this answer

Answered By:	Zberteoc
Expert Since:	03/31/2003
Accepted Solutions:	355
Computer Expertise:	Advanced

Zberteoc has been an Expert for 5 years 9 months, during which he has posted 1875 comments and answered 355 questions. Zberteoc is just one of 3044 experts in the MS SQL Server Zone. 1 expert collaborated on this answer, which was graded an "A" by the asker.

#	Title
1	if rs.EOF trouble.
2	loop with out do event when i do have …
3	Progress meter:Opening program
4	do until rs.eof
5	SQL Equiv to ASP RS.MoveNext?
6	RS.eof isn't the end of file