MOTOBIT.COM - ASP upload, IIS utility GetFile Method of DBF class

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