MartyConnelly
martyconnelly at shaw.ca
Mon Jul 26 20:55:16 CDT 2004
I had a closer look at the code
This doesn't seem to work with tables.
SaveAsText 0,"Products","C:\Program Files\Microsoft
Office\Office\Samples\Northwind_BackUp.mdb"
This doesn't seem to work with certain queries if you are scanning
through all the document names.
SaveAsText 1,"Products","C:\Program Files\Microsoft
Office\Office\Samples\Northwind_BackUp.mdb"
However this method below entering the table name by grabbing it from
document containers from within NorthWind works.
It must have something to do with LPSTR or BSTR strings, I tried fiddling
with various methods to get it to accept a C like null terminated
string, nothing seemed to work
This piece of code copies the queries but it fails with the on error
resume statement so it skips the garbled table names.
Sub testit()
Dim con As Container
Dim doc As Document
Set con = DBEngine(0)(0).Containers("Tables")
With con
For Each doc In .Documents
With doc
On Error Resume Next
SaveAsText 1, .Name, "C:\Program Files\Microsoft
Office\Office\Samples\TextDump_" &.name & ".txt"
Debug.Print "*" & .Name & "*"
On Error GoTo 0
End With
Next doc
End With
End Sub
Where the tables and relationships are copied is; in this even deeper
undocumented call in the code
SaveAsText 6, "", bck
Which stand alone would look like this.
SaveAsText 6,"", "C:\Program Files\Microsoft
Office\Office\Samples\TextDump2.mdb"
LoadFromText/SaveAsText are undocumented methods used by VSS integration.
The "6" param copies the "ACB" portion that is checked in.... it includes
project refs, tables, relationships, commandbars, and import specs.
Gustav Brock wrote:
>Great Marty!
>
>But are you sure it will save everything?
>
>If I try acTable it won't - error 2487, object type is empty or
>invalid for this method or action.
>
>/gustav
>
>
>
>
>>hmm.. I never thought of attaching form code to a newsgroup message
>>this way.
>>It would show the design quite easily
>>
>>
>
>
>
>>However you might find this useful as it uses same method.
>>
>>
>
>
>
>> Here is the method to dump everything in an mdb to text files in temp
>>directory via saveastext--loadfromtext method into a new mdb and then
>>compile it.
>>
>>
>
>
>
--
Marty Connelly
Victoria, B.C.
Canada