|
|
|
date: Wed, 20 Aug 2008 13:37:30 -0700 (PDT),
group: microsoft.public.access.conversion
back
Re: Extracting text of queries (SQL) and Macros?
On Aug 20, 2:17 pm, "Douglas J. Steele"
wrote:
> Take a look at what Arvin Meyer has athttp://www.datastrat.com/Code/DocDatabase.txt
>
Thanks! Excellent, Kudos!
The queries are not quite in SQL form, but that's not a show-stopper
in this case.
-t-
> --
> Doug Steele, Microsoft Access MVPhttp://I.Am/DougSteele
> (no private e-mails, please)
>
> "topmind" wrote in message
>
> news:9c926243-6766-45df-bb59-3788c974ddda@v39g2000pro.googlegroups.com...
>
> > Does anybody know of a tool or technique to get a
> > "dump" (serialization) of Access's objects and configurations,
> > especially query SQL text and macro names and parameters? I inherited
> > a big-ball-of-mud for maintenance and would like to take inventory and
> > search on all the queries, macros, etc. It doesn't use a lot of VBA,
> > so that's not really the issue. Thanks. -t-
date: Thu, 11 Sep 2008 13:26:33 -0700 (PDT)
author: topmind
Re: Extracting text of queries (SQL) and Macros?
Hi,
Here is some code that will get the query names and SQL for you. You just
need to make a new Table with the ID, QueryDefName, and QueryDefSQL fields,
The QueryDefSQL field must be a *Memo* field to hold all the long SQL
statements. Change the UsystblQueryDefs Table name in the code to the name
you give your Table.
'-----------------------------------------------------------------------------
----------
' Procedure : GetQueryDefs
' DateTime : 9/30/2007 18:33
' Author : Patrick Wood
' Purpose : Copy all Database QueryDefs to the UsystblQueryDefs Table
'-----------------------------------------------------------------------------
----------
'
Sub GetQueryDefs()
Dim Dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
Set Dbs = DBEngine(0)(0)
Set rst = Dbs.OpenRecordset("USystblQueryDefs", dbOpenDynaset)
For Each qdf In Dbs.QueryDefs
With rst
.AddNew
!QueryDefName = qdf.Name
!QueryDefSQL = qdf.sql
.Update
End With
Next qdf
rst.Close
Set rst = Nothing
Set qdf = Nothing
Set Dbs = Nothing
End Sub
Best Regards,
Patrick Wood
http://gainingaccess.net
Free Tutorial series on building a Date Dialog Form for Forms and Reports,
and using Outlook from Access.
topmind wrote:
>> Take a look at what Arvin Meyer has athttp://www.datastrat.com/Code/DocDatabase.txt
>
>Thanks! Excellent, Kudos!
>
>The queries are not quite in SQL form, but that's not a show-stopper
>in this case.
>
>-t-
>
>> --
>> Doug Steele, Microsoft Access MVPhttp://I.Am/DougSteele
>[quoted text clipped - 6 lines]
>> > search on all the queries, macros, etc. It doesn't use a lot of VBA,
>> > so that's not really the issue. Thanks. -t-
--
Hunter 57
http://churchmanagementsoftware.googlepages.com/home
Message posted via http://www.accessmonster.com
date: Wed, 17 Sep 2008 04:55:39 GMT
author: Hunter57 via AccessMonster.com u33514@uwe
|
|
