016. xfnRst2HTML

xfnRst2HTML 함수

• • RecordSet을 HTML으로 변환해주는 함수입니다.

  • 기존 레코드셋을 단순히 텍스트가 아닌 Teamdata21 CSS 스타일이 적용된 표형식으로도 표현 가능합니다.

구문

• • xfnRst2HTML(rst As ADODB.Recordset, Optional objColCaptions As xProperties,

  •                     Optional intDisplayType As xENM_HTML_DISP_TYPE = xenmHtmlDisp_Table) As String

반환값

• • 성공 : HTML 태그가 접목된 문자열이 반환됩니다.

참고

• • 유사한 함수

    • Contents를 HTML 파일로 저장하는 함수

      • xfnToHtml(strContents As String, Optional ByVal blnForceResultOpen As Boolean = False

      •              , Optional ByVal strFilePathName As String = "", Optional ByVal strTitle As String = "") As Boolean

    • Contents를 HTML 소스로 변경하는 함수

      • xfnToHtmlString(strContents As String, Optional ByVal strTitle As String = "") As String

예제

코드

'주소록의 Data를 표 형식으로 보여지는 소스입니다.

Dim strSQL As String

Dim objColCaptions As xProperties

Set objColCaptions = xfnNew_xProperties

strSQL = "SELECT * FROM Contacts"

objColCaptions.Add "UserId", "사용자ID"

objColCaptions.Add "UserName", "성명"

objColCaptions.Add "Tel", "전화번호"

objColCaptions.Add "PersId", "주민번호"

objColCaptions.Add "Address", "주소"

objColCaptions.Add "Job", "직업"

xfnRst2Html(xfnGetRst(strSQL), objColCaptions, xenmHtmlDisp_Table)