TechSapphire - Platform Independent Reporting Services

This reporting service allows you to develop reporting service which doesn't require any installation package to run over client system. It is just a way to create report using HTML document and Web browser control. This reporting has several advantages over crystal reports which are as follows:
Advantages:

As crystal reports require an heavy setup to be installed.
They are not editable on runtime.You can not set their margins, header, footer, etc on run time.
Platform independent.
Provide great support for export in excel.
Easy to build.
Easy to export.

Disadvantages:

Not well for large reporting.

Note:

But can be improved using default HTML document support provided by .NET.

Code:

Imports System.Data.OleDb
Public Class report
    Dim cmd As OleDbCommand
    Dim con As OleDbConnection
    Dim dr As OleDbDataReader
    Dim dr1 As OleDbDataReader
    Dim a As Integer
    Public Sub fillreport(ByVal id As Integer)
        Try
            Dim str As String, i As Integer = 1
            Dim pay As Double
            Dim datepay As Date
            Dim dated As Integer
            Dim interest As Double = 0
            Dim brokerinterest As Double = 0
            Dim paypayer As Double = 0
            Dim paybroker As Double = 0
            str = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "/payments.accdb"
            con = New OleDbConnection(str)
            con.Open()
            Me.Show()
            Dim d As Date
            str = "select dateto from daterange where id=" & id
            cmd = New OleDbCommand(str, con)
            dr = cmd.ExecuteReader
            If dr.Read Then
                d = Format(dr(0), "dd/MMM/yyyy")
            End If
            RichTextBox1.Text = RichTextBox1.Text & "<html>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<center><head>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<TITLE> REPORT </title>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</head></center>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<body>" & vbCrLf
            str = "select broker_name from broker_list where id=(select userid from daterange where id=" & id & ")"
            cmd = New OleDbCommand(str, con)
            dr = cmd.ExecuteReader
            If dr.Read Then
                RichTextBox1.Text = RichTextBox1.Text & "<b> Broker Name: " & dr(0).ToString & "</b>" & vbCrLf
            Else
                RichTextBox1.Text = RichTextBox1.Text & "<b> Broker Name: All</b>" & vbCrLf
            End If

            RichTextBox1.Text = RichTextBox1.Text & "<table border=1> " & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<tr>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Payer" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Broker" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</tr>" & vbCrLf

            RichTextBox1.Text = RichTextBox1.Text & "<tr>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf

            Dim str1 As String
            str1 = "select payer_Payments.[ID], payer_Payments.[Amountpaid], payer_Payments.[date_pay], payer_Payments.[date_range_id], payer_Payments.[Remarks] from payer_payments where date_range_id=" & id

            RichTextBox1.Text = RichTextBox1.Text & "<table border=1> " & vbCrLf
            cmd = New OleDbCommand(str1, con)
            dr = cmd.ExecuteReader
            RichTextBox1.Text = RichTextBox1.Text & "<tr>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Payment" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Date" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Days" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Interest" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Remarks" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</tr>" & vbCrLf

            If d.Month = 2 Then
                While dr.Read
                    pay = dr(1)
                    datepay = Format(dr(2), "dd/MMM/yyyy")
                    dated = DateDiff(DateInterval.Day, datepay, d)
                    RichTextBox1.Text = RichTextBox1.Text & "<tr>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td align=right>" & vbCrLf
                    paypayer = paypayer + pay
                    RichTextBox1.Text = RichTextBox1.Text & pay.ToString("#.00") & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & Format(datepay, "dd/MMM/yyyy") & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & dated & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td align=right>" & vbCrLf
                    interest = interest + ((pay * dated * 1.25) / 100) / 28
                    RichTextBox1.Text = RichTextBox1.Text & (((pay * dated * 1.25) / 100) / 28).ToString("#.00") & " " & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & dr(4).ToString & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</tr>" & vbCrLf
                End While
            Else
                While dr.Read
                    pay = dr(1)
                    datepay = Format(dr(2), "dd/MMM/yyyy")
                    dated = DateDiff(DateInterval.Day, datepay, d)
                    RichTextBox1.Text = RichTextBox1.Text & "<tr>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td align=right>" & vbCrLf
                    paypayer = paypayer + pay
                    RichTextBox1.Text = RichTextBox1.Text & pay.ToString("#.00") & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & Format(datepay, "dd/MMM/yyyy") & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & dated & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td align=right>" & vbCrLf
                    interest = interest + ((pay * dated * 1.25) / 100) / 30
                    RichTextBox1.Text = RichTextBox1.Text & (((pay * dated * 1.25) / 100) / 30).ToString("#.00") & " " & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & dr(4).ToString & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</tr>" & vbCrLf
                End While
            End If

            RichTextBox1.Text = RichTextBox1.Text & "</table>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf

            RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
            str1 = "select Broker_Payments.[ID], Broker_Payments.[Amountpaid], Broker_Payments.[date_pay], Broker_Payments.[date_range_id], Broker_Payments.[Remarks] from broker_payments where date_range_id=" & id
            RichTextBox1.Text = RichTextBox1.Text & "<table border=1> " & vbCrLf
            cmd = New OleDbCommand(str1, con)
            dr = cmd.ExecuteReader
            RichTextBox1.Text = RichTextBox1.Text & "<tr>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Payment" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Date" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Days" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Interest" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Remarks" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</th>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</tr>" & vbCrLf

            If d.Month = 2 Then
                While dr.Read
                    pay = dr(1)
                    datepay = Format(dr(2), "dd/MMM/yyyy")
                    dated = DateDiff(DateInterval.Day, datepay, d)
                    RichTextBox1.Text = RichTextBox1.Text & "<tr>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td align=right>" & vbCrLf
                    paybroker = paybroker + pay
                    RichTextBox1.Text = RichTextBox1.Text & pay.ToString("#.00") & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & Format(datepay, "dd/MMM/yyyy") & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & dated & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td align=right>" & vbCrLf
                    brokerinterest = brokerinterest + ((pay * dated * 1.25) / 100) / 28
                    RichTextBox1.Text = RichTextBox1.Text & (((pay * dated * 1.25) / 100) / 28).ToString("#.00") & " " & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & dr(4).ToString & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</tr>" & vbCrLf
                End While
            Else
                While dr.Read
                    pay = dr(1)
                    datepay = Format(dr(2), "dd/MMM/yyyy")
                    dated = DateDiff(DateInterval.Day, datepay, d)
                    RichTextBox1.Text = RichTextBox1.Text & "<tr>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td align=right>" & vbCrLf
                    paybroker = paybroker + pay
                    RichTextBox1.Text = RichTextBox1.Text & pay.ToString("#.00") & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & Format(datepay, "dd/MMM/yyyy") & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & dated & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td align=right>" & vbCrLf
                    brokerinterest = brokerinterest + ((pay * dated * 1.25) / 100) / 30
                    RichTextBox1.Text = RichTextBox1.Text & (((pay * dated * 1.25) / 100) / 30).ToString("#.00") & " " & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & dr(4).ToString & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
                    RichTextBox1.Text = RichTextBox1.Text & "</tr>" & vbCrLf
                End While
            End If
            RichTextBox1.Text = RichTextBox1.Text & "</table>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</tr>" & vbCrLf

            RichTextBox1.Text = RichTextBox1.Text & "<tr>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Total " & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & paypayer.ToString("#.00") & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "  " & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Interest" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & interest.ToString("#.00") & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf

            RichTextBox1.Text = RichTextBox1.Text & "<td>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Total " & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & paybroker.ToString("#.00") & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "  " & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Interest" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & brokerinterest.ToString("#.00") & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</td>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</tr>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</table> " & vbCrLf

            RichTextBox1.Text = RichTextBox1.Text & "<table border=1> " & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<tr> " & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "<td align=right> " & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "Closing Balance    " & (paybroker - paypayer).ToString("#.00") & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</td> " & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</tr> " & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</table> " & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</body>" & vbCrLf
            RichTextBox1.Text = RichTextBox1.Text & "</html>"

            'SaveFileDialog1.ShowDialog()
            RichTextBox1.SaveFile(id & ".htm", RichTextBoxStreamType.PlainText)

            WebBrowser1.Navigate(Application.StartupPath & "\" & id & ".htm")
            RichTextBox1.Visible = False
            a = id
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        WebBrowser1.ShowPrintPreviewDialog()
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        WebBrowser1.ShowPageSetupDialog()
    End Sub

    Private Sub report_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Try
            My.Computer.FileSystem.DeleteFile(a & ".htm")
        Catch ex As Exception
            Exit Sub
        End Try
    End Sub

    Private Sub report_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Download Example form code