Function MdbToHtml(strSql) 'As String Dim strTable Dim intField 'As Integer Dim db 'As Database Dim dbeng 'As DAO.DBEngine Dim rs 'As Recordset Const dbReadOnly = 4 'DAO.RecordsetOptionEnum Const dbOpenSnapshot = 4 'DAO.RecordsetTypeEnum Set dbeng = CreateObject("DAO.DBEngine.36") Set db = dbeng.OpenDatabase(FileNameLikeMine("mdb"), False, True) Set rs = db.OpenRecordset(strSql, dbOpenSnapshot, , dbReadOnly) If Not(rs.EOF And rs.BOF) Then rs.MoveLast rs.MoveFirst 'First send out the column headers strTable = "
" & rs.Fields(intField).Name & " | " Next strTable = strTable & "||
---|---|---|
" Else If rs.Fields(intField).Value = "" Then strTable = strTable & " | " Else strTable = strTable & " | " & rs.Fields(intField).Value & " | " End If End If Next strTable = strTable & "