Re: saving to a csv file

If I wanted to invoke the export wizard on a query, how would I do that?

"Alex White MCDBA MCSE" <alex@xxxxxxxxxxxxxx> wrote in message
news:eTnORajVFHA.2984@xxxxxxxxxxxxxxxxxxxxxxx
> Create all the queries with a specific prefix e.g. queryMyUsers1,
> queryMyUsers2
>
> use the following as the rowsource for the listbox
>
> SELECT Right(Name,Len(name)-5) AS Expr1
> FROM MSysObjects
> WHERE (((MSysObjects.Name) Like "query*"))
> ORDER BY MSysObjects.Name;
>
> if you called the listbox lstQueries
>
> Private Sub lstQueries_DblClick(Cancel As Integer)
> dim adoTest as new adodb.recordset
> with adoTest
> .open "query" & me.lstQueries.column(0),
> currentproject.connection,adOpenKeyset,adLockReadOnly
> if .recordcount > 0 then
> Open "c:\MyExported.txt" For Output As #1
> do while not .eof
> write #1,
> .fields("myFirstField").value,.fields("mySecondField").value
> .movenext
> loop
> close #1
> end if
> end with
>
> this code could be modified to allow for multi-selection, I never use the
> import wizard as it does not give me the flexability I need most of the
> time.
>
> open a file,
>
> http://support.microsoft.com/default.aspx?scid=kb;en-us;303066
>
> save file dialog
>
> http://vbnet.mvps.org/index.html?code/comdlg/filesavedlg.htm
>
> give it ago, hope it is closer to what you need!
>
> --
> Regards
>
> Alex White MCDBA MCSE
> http://www.intralan.co.uk
>
> <arch> wrote in message news:42820f71$1@xxxxxxxxxxxxxxxxxxxxxx
> > Thanks. But what I really wanted was to have a listbox that contains a
> > list
> > of queries that a user selects, and then presses a button and then he is
> > walked through selecting a filename to save to etc. Is there an easier
> > way?
> > Is there a way to use Runcommand, like with the import wizard, or
> > something
> > similar?
> >
> > "Alex White MCDBA MCSE" <alex@xxxxxxxxxxxxxx> wrote in message
> > news:OZJj66iVFHA.3076@xxxxxxxxxxxxxxxxxxxxxxx
> >> So you have a listbox or something with a resultset that you want to
> > export
> >> to a text file
> >>
> >> dim adoTest as new adodb.recordset
> >> with adoTest
> >> .open me.lstResults.rowsource, currentproject.connection,
> > adOpenKeyset,
> >> adLockReadOnly
> >> if .recordcount > 0 then
> >> Open "c:\MyExported.txt" For Output As #1
> >> do while not .eof
> >> write #1, .fields("myFirstField").value,
> >> .fields("mySecondField").value
> >> .movenext
> >> loop
> >> close #1
> >> end if
> >> end with
> >>
> >> one comma seperated file......
> >>
> >> --
> >> Regards
> >>
> >> Alex White MCDBA MCSE
> >> http://www.intralan.co.uk
> >>
> >> <arch> wrote in message news:42820147$1@xxxxxxxxxxxxxxxxxxxxxx
> >> > Hi. I'm using Access 2000 and I'm having trouble trying to create
some
> >> > vba
> >> > code that will allow me to save the data in a query to a csv file
> >> > (comma
> >> > separated text). I used the acCmdImport command to import the data
> >> > file
> >> > originally. However, I don't know how to export it (preferably with
a
> > gui
> >> > to allow the user to enter a filename to save to). Please provide
> > sample
> >> > code.
> >> >
> >> >
> >> >
> >> >
> >>
> >>
> >
> >
>
>


.