Charlotte Foust
cfoust at infostatsystems.com
Tue Mar 11 10:30:09 CST 2003
According to the stuff I've read, doing something like Set rst = CurrentDb.OpenRecordset ... Etc., doesn't return a persistent object, so when you go to use the recordset later on in code, it isn't there anymore. Using CurrentDb() to set a database object variable makes it persist. I know that, unlike using DBEngine(0)(0), every time you call CurrentDb you get a new pointer rather than reusing the existing one. Charlotte Foust -----Original Message----- From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com] Sent: Monday, March 10, 2003 10:23 PM To: accessd at databaseadvisors.com Subject: Re: [AccessD] TransferText Failling Drew: Is there any advantage to using CurrentDB. vs set db=CurrentDB and using db as the object? Rocky ----- Original Message ----- From: "Drew Wutka" <DWUTKA at marlow.com> To: <accessd at databaseadvisors.com> Sent: Monday, March 10, 2003 2:52 PM Subject: RE: [AccessD] TransferText Failling > Here's my code....just writing it in the email..it's really simple to > do. > > Function DumpRecordset(strSQL as String,strFileName as String) Dim f > As Long Dim rs As recordset > Dim strData as String > dim i As Long > set rs=CurrentDB.OpenRecordset(strSQL) 'this is for Access 97 and DAO > if rs.eof=False then rs.movefirst > f=FreeFile > If Dir(strFileName)<>"" Then Kill strFileName > Open strFileName for binary access read as f > Do Until rs.eof=True > strData="" > for i=0 to rs.Field.Count-1 > strData=strData & rs.Field(i).Value & "," > Next i > strData=Left(strData,len(strData)-1) & vbcrlf > Put f,,strData > rs.movenext > loop > rs.close > Close f > End Function > > All in all, pretty simple code. (You can change the "," to whatever > delimiter you want. > > Drew > > -----Original Message----- > From: Hale, Jim [mailto:jim.hale at fleetpride.com] > Sent: Monday, March 10, 2003 4:13 PM > To: 'accessd at databaseadvisors.com' > Subject: RE: [AccessD] TransferText Failling > > > Seth, > I happened to be writing a little routine to dump plan data to a text > file so the mention of your code was very timely. Thanks! several > comments: If the file doesn't exist the killfile line gives an error. > I added a filexists > test. Second > "Open strOutfile For Binary As intFileDesc" doesn't seem to work with > the Print statement. I changed binary to Append and the code works. > > I need my amount field in the text file formatted as "-####.##" but -2000.00 > is printed as -2000; 2000.20 is printed as 2000.2, etc. How can this > be correctly formatted in the print statement? Regards, > Jim Hale > > -----Original Message----- > From: Seth Galitzer [mailto:sgsax at ksu.edu] > Sent: Monday, March 10, 2003 1:32 PM > To: accessd > Subject: Re: [AccessD] TransferText Failling > > > Rocky, > > Dump TransferText like a bad prom date and use file I/O manually to > generate your text file. You have much more control of the output and > I have NEVER had it fail on me. I've got sample code on my website. > Look under Downloads for "File I/O in VB". There should be enough > there to get you started. I'd be happy to answer any questions if you > have any. > > Seth > > On Mon, 2003-03-10 at 12:07, Rocky Smolin - Beach Access Software > wrote: > > Dear List > > > > I'm trying to use the TransferText method of exporting a table to a comma > delimited file. I get "Error 3027: Cannot Update. Database or object > is read-only" when issuing: > > > > DoCmd.TransferText acExportDelim, , "tblAddRooms", varFileName > > > > where varFileName contains a valid path and file name. Has anyone > > seen > this before? I have but can't remember why or what the fix was. > > > > MTIA, > > > > Rocky Smolin > > Beach Access Software > > > > > -- > Seth Galitzer sgsax at ksu.edu > Computing Specialist http://puma.agron.ksu.edu/~sgsax > Dept. of Plant Pathology > Kansas State University > > _______________________________________________ > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > _______________________________________________ > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > _______________________________________________ > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com _______________________________________________ AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com