September 5, 2008 08:41pm pdt

1. capricorn1 837,755
2. LSMCons... 448,361
3. boag2000 416,712
4. DatabaseMX 323,032
5. peter57r 295,165
6. harfang 264,026
7. jimhorn 170,911
8. matthews... 135,645
9. TextReport 130,246
10. MikeToole 114,323
11. omgang 97,947
12. frankytee 91,914
13. koutny 90,035
14. angelIII 79,170
15. Rick_Ric... 71,927
16. GRayL 70,880
17. eghtebas 65,987
18. ee_rlee 62,522
19. irudyk 62,160
20. LennyGray 61,992
21. rorya 61,932
22. hnasr 59,055
23. cactus_d... 55,098
24. jefftwilley 54,222
25. wiswalld 53,743

1. capricorn1 1,458,600
2. LSMCons... 680,480
3. DatabaseMX 625,757
4. peter57r 532,674
5. boag2000 456,624
6. harfang 445,574
7. jimhorn 366,901
8. jefftwilley 350,437
9. matthews... 284,909
10. mbizup 241,400
11. frankytee 227,167
12. stevbe 220,614
13. MikeToole 219,373
14. omgang 170,182
15. GRayL 156,686
16. rockiroads 151,183
17. LPurvis 135,020
18. TextReport 130,746
19. angelIII 122,228
20. JDettman 120,940
21. ragoran 112,130
22. koutny 105,060
23. Rick_Ric... 95,527
24. eghtebas 93,562
25. dqmq 89,656

07.23.2008 at 10:26AM PDT, ID: 23589397

	[x] Attachment Details

pass a SQL statement to a function and returning the recordset to the calling procedure

Asked by TBLTMK in Access Coding/Macros, VB Database Programming, SQL Query Syntax

Tags: microsoft, access, 97

I'm using access to create a database and its been a couple of years since i've developed an application. I want to know how to pass a SQL statement to a function that will then open the SQL statment in a recordset and return the resultant recordset to the calling procedure? At the moment i'm defining the ADODB.Recordset at general section and re-using the same recordset for each of my routines but i use a seperate recordset for each routine. An example of the procedure is written below in the code snippet. An explanation and code would be much appreciated Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

           
           
             Option Compare Database
Option Explicit
' sets varables for the connection and recordset
Dim cn As ADODB.Connection
Dim ar As ADODB.Recordset
 
Private Sub openTable(strSQL As String)
    ' opens table define by variable passed
    Set ar = New ADODB.Recordset
    ar.Open strSQL, cn, adOpenForwardOnly, adLockOptimistic
End Sub
 
Private subroutine getDetails 
Dim strSQL as string 
strSQL = "select * from employees"
 
Call openTable(strSQL) ' Opens recordset with data
 
'rest of code goes here 
end sub

           
         

Keywords: pass a SQL statement to a function an…

	Title
1	variable recordset
2	Recordset to HTML
3	Using a report to print a recordset.
4	Using recordsets with subforms to per…
5	How to use recordset or equivalent aft…
6	What's the equivalent of an ADO rec…

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

pass a SQL statement to a function and returning the recordset to the calling procedure

Asked by TBLTMK in Access Coding/Macros, VB Database Programming, SQL Query Syntax

Tags: microsoft, access, 97

About this solution