home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch06code / listings / 06list23.txt < prev   
Text File  |  1995-08-10  |  1KB  |  25 lines
  1. Listing 6.23 [em]Using the Create Methods To Retrieve the Records Defined by a SELECT Statement
  2. Dim OldDb As Database, NewQry As QueryDef, NewDyn As Recordset
  3. Dim NewSnap As Recordset
  4. '******************************************************
  5. 'Define the SELECT statement and store it to a variable
  6. '******************************************************
  7. SQLstate = "SELECT RI.[Item Description], SL.Quantity,"
  8. SQLstate = SQLstate & " RI.Retail, SL.Quantity * RI.Retail AS Subtot"
  9. SQLstate = SQLstate & "FROM [Retail Items] AS RI, Sales AS SL"
  10. SQLstate = SQLstate & "WHERE SL.[Item Code]=RI.[Item Code]"
  11. '***********************
  12. 'Create dynaset directly
  13. '***********************
  14. Set NewDyn = OldDb.OpenRecordset(SQLstate, dbOpenDynaset)
  15. '***************
  16. 'Create QueryDef
  17. '***************
  18. Set NewQry = OldDb.CreateQueryDef("Get Subtotals", SQLstate)
  19. NewQry.Close
  20. '*****************************
  21. 'Create snapshot from querydef
  22. '*****************************
  23. Set NewSnap = OldDb.OpenRecordset("Get Subtotals", dbOpenSnapshot)
  24.  
  25.