Never been to DZone Snippets before?

Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world

RecordSet to tab-separated values (See related posts)

Function TSV(rs)
	Dim field
	For Each field In rs.Fields
		TSV = TSV & field.Name & VBTab
	Next
	TSV = Left(TSV, Len(TSV) - 1) & vbCr & rs.GetString()
End Function


The rows are separated by vbCr ("\r" in most languages).
The first row is the field names.
to VBScript format ado resultset by mrclay on Wed Mar 07 16:51:49 -0500 2007

You need to create an account or log in to post comments to this site.


Click here to browse all 4861 code snippets

Related Posts