Private Shared con As OleDbConnection
Private Shared Function GetConnectioin() As OleDbConnection
Return New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb")
End Function
Shared ReadOnly Property DatabaseConnection As OleDbConnection
Get
If con Is Nothing Then
con = GetConnectioin()
con.Open()
End If
Return con
End Get
End Property
Shared Function FillGrid() As DataTable
Dim querystring As String = "SELECT EMPLOYEE.EMPID, EMPLOYEE.EMPLOYEE, Sum(EMPLEAVES.NORMAL) AS SumOfNORMAL, Sum(EMPLEAVES.SICK) AS SumOfSICK FROM EMPLOYEE INNER JOIN EMPLEAVES ON EMPLOYEE.EMPID = EMPLEAVES.EMPID GROUP BY EMPLOYEE.EMPID, EMPLOYEE.EMPLOYEE"
Dim adapter As New OleDbDataAdapter(querystring, DatabaseConnection)
Dim dt As New DataTable
adapter.Fill(dt)
Return dt
End Function
Shared Function FillGrid(ByVal EMPID As Integer) As DataTable
Dim querystring As String = "SELECT EMPLEAVES.ID, EMPLEAVES.EMPID, EMPLEAVES.NORMAL, EMPLEAVES.SICK FROM(EMPLEAVES) where EMPLEAVES.EMPID =@id"
Dim adapter As New OleDbDataAdapter(querystring, DatabaseConnection)
adapter.SelectCommand.Parameters.Add("@id", OleDbType.Integer).Value = EMPID
Dim dt As New DataTable
adapter.Fill(dt)
Return dt
End Function