Load data from Access table into Notepad 1

[barnard90]

Hi

I have an Employee table in Access database.
It has fields
Empno, EmpId, DeptNo, Loc, Salary , Manager_id
It has close to 88,000 records in it

I would like to query the data with a recordset and later
I would like to dump all the data into a Note pad
Each field needs to be separated by ";" symbol

How could I do it
Could some one please suggest a VBA code for that

thanks

 

[SkipVought]

How about export the data to a comma separated values (csv) text file. Notepad is just an application for editing a text file.

Skip,
[sub]
I'll be dressed to the nines this week, as I go to have my prostatectomy...
Because, if I'm gonna BE impotent, I want to LOOK impotent![/sub]

 

[barnard90]

SkipVought

Thanks for the response
Actually each value has to be separated by a ";" and not a comma , because some of the data has commas in it

So I have to load into Note pad with ";" separator

Thanks

 

[PHV]

You can't choose the field delimiter when exporting to a text file ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

"So I have to load into Note pad with ";" separator"

You have not loaded ANYTHING into Notepad.

You have to EXPORT it to a text file with a ; separator.

You CHOOSE to OPEN the text file with Notepad.

Sorry I missed the delimiter but, as you discovered, it is your choice.

Skip,
[sub]
I'll be dressed to the nines this week, as I go to have my prostatectomy...
Because, if I'm gonna BE impotent, I want to LOOK impotent![/sub]

 

[ck1999]

If you insist on using the ; and want a vba code you can look at

Sub testing()

    Dim dbs As Database
    Dim strsql
    Dim alpa
    Dim rst As Recordset
    Set dbs = currentdb
    strsql = "SELECT * FROM tblneedtoorder"
    Set rst = dbs.OpenRecordset(strsql)
    Dim fname
  
    fname = "c:\stuff.txt"
    Open fname For Output As #1
    Write #1, rst("Empno");rst("EmpId");rst("DeptNo") ;rst("Loc");rst("Salary");rst("Manager_id")

Close #1
Set rst = Nothing
Set dbs = Nothing

End Sub

ck1999

 

[barnard90]

ck1999

Thanks a lot for your valuable post
That was useful

 

[PHV]

ck1999, why not simply use the DoCmd TransferText method with the appropriate SpecificationName ?

 

[ck1999]

PHV
How does that use the ; ?


ck1999

 

[PHV]

How does that use the ; ?
Specify the delimiter in the specifications.