|
Convert rs to HTML in 2 lines of code
Convert rs... | | Author: Mike G | E-mail: Click to e-mail author | Website: http://www.ivbnet.com | Submitted: 8/22/2001 | Version: VB5 | Compatibility: VB5, VB6 | Category: Databases | Views: 9766 | | Declarations: | | Code: | | ", _
" | " & vbCrLf & "", "(NULL)")
To_HTML = " | " & Left(To_HTML, Len(To_HTML) - 8)
To_HTML = ""
End Function
Private Sub cmdcsv_Click()
Dim sStr As String
Dim rs As New ADODB.Recordset
rs.Open "SELECT au_fname,au_lname FROM Authors", "DSN=Pubs"
sStr = To_CSV(rs)
Open "D:\test.csv" For Output As #1
Print #1, sStr
Close #1
Set rs = Nothing
Me.txtFile.LoadFile ("D:\test.csv")
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdHTML_Click()
Dim sStr As String
Dim rs As New ADODB.Recordset
rs.Open "SELECT au_fname,au_lname FROM Authors", "DSN=Pubs"
sStr = To_HTML(rs)
Open "D:\test.html" For Output As #1
Print #1, sStr
Close #1
Set rs = Nothing
Me.txtFile.LoadFile ("D:\test.html")
End Sub
|
|
|