Convert Datatable To Html File,SaveAsHtmlFile (ByVal renderedOutput As StringBuilder

Private Function ConvertToHtmlFile(ByVal sentDataTable As DataTable) As String

‘ Check if the Sent DataTable is not empty or a Null
If sentDataTable Is Nothing Then
Throw New System.ArgumentNullException(“sentDataTable”)
End If

‘Get a worker object.
Dim HtmlStringBuilder As New StringBuilder()

‘Open tags and write the top portion.
HtmlStringBuilder.Append(“”)
HtmlStringBuilder.Append(“”)
HtmlStringBuilder.Append(“”)
HtmlStringBuilder.Append(“Page-”)
HtmlStringBuilder.Append(Guid.NewGuid().ToString())
HtmlStringBuilder.Append(“”)
HtmlStringBuilder.Append(“”)
HtmlStringBuilder.Append(“”)
HtmlStringBuilder.Append(“

“)

‘Add the headings row.

HtmlStringBuilder.Append(“

“)

For Each myColumn As DataColumn In sentDataTable.Columns
HtmlStringBuilder.Append(”

“)
Next

HtmlStringBuilder.Append(“

“)

‘Add the data rows.
For Each myRow As DataRow In sentDataTable.Rows
HtmlStringBuilder.Append(“

“)

For Each myColumn As DataColumn In sentDataTable.Columns
HtmlStringBuilder.Append(”

“)
Next

HtmlStringBuilder.Append(“

“)
Next

‘Close tags.
HtmlStringBuilder.Append(“

“) HtmlStringBuilder.Append(myColumn.ColumnName) HtmlStringBuilder.Append(“

“) HtmlStringBuilder.Append(myRow(myColumn.ColumnName).ToString()) HtmlStringBuilder.Append(“

“)
HtmlStringBuilder.Append(“”)
HtmlStringBuilder.Append(“”)

Return SaveAsHtmlFile(HtmlStringBuilder)

HtmlStringBuilder = Nothing

End Function

Private Function SaveAsHtmlFile(ByVal renderedOutput As StringBuilder) As String
Dim outputStream As FileStream
Dim sWriter As StreamWriter
outputStream = New FileStream(Filename, FileMode.Create)
sWriter = New StreamWriter(outputStream)
sWriter.Write(renderedOutput.ToString())
sWriter.Flush()
sWriter.Close()
outputStream.Close()
sWriter = Nothing
outputStream = Nothing
Return Filename
End Function