DAOTableToHTML

Convert a database table to HTML

Original Author: Vincent Zack

Inputs

DAO Recordset Object

Assumptions

A reference to DAO x.x Object Library

Returns

String

Code

Const T1 = vbTab Const T2 = T1 & T1 Const TR = T1 & "" Const TD = "" Const TDEND = "" Const TABLESTART = "

"
Const TABLEEND = "

"
Function HTMLTable(dbRecord As Recordset) As String
Dim strReturn As String
Dim Fld As Field
On Error GoTo Return_Zero
strReturn = strReturn & TABLESTART & vbCrLf
strReturn = strReturn & TR
For Each Fld In dbRecord.Fields
  strReturn = strReturn & TD & Fld.Name & TDEND
Next Fld
strReturn = strReturn & vbCrLf
dbRecord.MoveFirst
While Not dbRecord.EOF
  strReturn = strReturn & TR
  For Each Fld In dbRecord.Fields
    strReturn = strReturn & TD & Fld.Value & TDEND
  Next Fld
  strReturn = strReturn & vbCrLf
dbRecord.MoveNext
Wend
strReturn = strReturn & TABLEEND
Return_Zero:
HTMLTable = strReturn
End Function

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 86 times

Comments

No comments have been added for this post.

You must be logged in to make a comment.