by Vincent Zack (3 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (1 Votes)
Convert a database table to HTML
Inputs
DAO Recordset Object
Assumes
A reference to DAO x.x Object Library
Code Returns
String
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
Download this snippet
Add to My Saved Code
DAOTableToHTML Comments
No comments have been posted about DAOTableToHTML. Why not be the first to post a comment about DAOTableToHTML.
Post your comment
Active Server Pages
Coding Standards
Complete Applications
Custom Controls/Forms/Menus
Data Structures
Databases/Data Access/DAO/ADO
DDE
Debugging and Error Handling
DirectX
Encryption
Files/File Controls/Input/Output
Games
Graphics
Internet/HTML
Jokes/Humor
Libraries
Math/Dates
Microsoft Office Apps/VBA
Miscellaneous
Object Oriented Programming (OOP)
OLE/COM/DCOM/Active-X
Registry
Sound/MP3
String Manipulation
VB function enhancement
Windows API Call/Explanation
Windows CE
Windows System Services
Difficulty