GetFile Method, DBF class

Description

Retrieves the recordset as a binary DBF data.

Syntax

vGetFile = DBF.GetFile (RS as Variant, [TableName as String], [FieldsFormat as Array])

Where	Type	Optional	Description
RS	Variant		ADO or DAO recordset to save
TableName	String	yes	File name (table name) for temporary table.
FieldsFormat	Array	yes	Format of field as array (see remarks on RSConvert.DBF.SaveRS)

Returns

Binary safe array

Examples

Send database table as DBF

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
  'Sets the content type
  Response.ContentType = "application/x-msdownload"
  'Specify filename for download
  Response.AddHeader "Content-Disposition", "attachment;filename=Orders.DBF"
  
  'Create Recordset and DBF objects
  Set ADORS = CreateObject("ADODB.Recordset")
  Set DBF = CreateObject("RSConvert.DBF")
  
  'Open table
  ADORS.Open "Customers", "DSN=ADOSamples"
  
  'Write DBF file to the client
  Response.BinaryWrite DBF.GetFile(ADORS)
  
  'Close recordset
  ADORS.Close
</SCRIPT>

Define exact DBF output format

Sub SimpleDBFTest()
  '1. Create simple recordset.

  Const adDate = 7
  Const adSingle = 4
  Dim RS: Set RS = CreateObject("ADODB.Recordset")
  RS.Fields.Append "Date", adDate
  RS.Fields.Append "Single", adSingle
  RS.Open
  AddDate RS, #1/1/1900#, 568.256
  AddDate RS, #1/1/1950#, 235.28
  AddDate RS, #1/1/1990#, 18.34
  AddDate RS, #1/1/1999#, 1234.58
  AddDate RS, #1/1/2000#, 1.25
  AddDate RS, #1/1/2020#, 4568.598
  AddDate RS, #1/1/2200#, 458774.23
  RS.MoveFirst

  Dim dbf 'As RSConvert.dbf
  
  '2. Create DBF object
  Set dbf = CreateObject("RSConvert.DBF")
  
  '3. get DBF as binary contents.
  Dim BinaryContents
  BinaryContents = dbf.GetFile(RS, , Array("DateField", "D", Empty, Empty, "NumField", "N", 4, 1))
  
  '4. Send the file to the client.
  Response.BinaryWrite BinaryContents

  RS.Close

End Sub

Sub AddDate(ByRef RS, ByVal D, N)
  RS.AddNew
  RS("Date") = D
  RS("Single") = N
  RS.Update
End Sub

Methods of DBF class

GetFile, SaveRS

Properties of DBF class

Compress, CurrencyDecimal, CurrencyWidth, DoubleDecimal, DoubleWidth, IntegerWidth, LongVarCharWidth, RowCount, SingleDecimal, SingleWidth, TempDirectory

RSConvert.DBF

Object for converting DAO or ADO recordset to the DBF file. It enables direct output of DBF files from the ASP page.

Recordset converter is a library for converting DAO or ADO recordsets to MDB or DBF files. It enables direct binary output of MDB or DBF files from ASP pages with one row of code. The object also supports on-the-fly compression by zip/arj.