[RESOLVED] Access Database to DataGridView

[malatesh kumar]

Hi,
How can i send a table values into DataGridView??
I am using Access Database.
And one more thing i want to know that...
Before sending values into Datagridview i need to work 2 or 3 tables and that result should be keep one Temp Table , that TempTable i want send to DataGridView.
Note:
Here 2 or 3 tables work means i want to applay leftjoin between two tables and coming result should be keep one temptable and again i want to right join with temptable to other table.....like.......

This Concept i recently worked on VB, now i want to do work on VB.NET.
Is there any way to handel this task??
Any i how i am sending Code which i implemented same concept in VB.

IN THE FORM CODE:

Public Sub cmdinnerjoinok_Click()

On Error Resume Next
rsICCandBdgYearFilter.Open "drop table tblICCAnnBdgYearFilterTemp", cn, adOpenDynamic, adLockOptimistic

rsICCandYrFilter.Open "drop table tblICCYearExpFilterTemp", cn, adOpenDynamic, adLockOptimistic

rsSum.Open "drop table tblSumTemp", cn, adOpenDynamic, adLockOptimistic

rsLJ.Open "drop table tblAnnBgtExpLJTemp", cn, adOpenDynamic, adLockOptimistic

rsRJ.Open "drop table tblAnnBgtExpRJTemp", cn, adOpenDynamic, adLockOptimistic

rsUNION.Open "drop table tbluniontemp", cn, adOpenDynamic, adLockOptimistic

On Error GoTo 0
'set ICC And BdgYear Filter
Set rsICCandBdgYearFilter = New ADODB.Recordset
rsICCandBdgYearFilter.Open fnICCandBdgYearFilter, cn, adOpenDynamic, adLockOptimistic

'SET ICC AND YEAR FILTER
Set rsICCandYrFilter = New ADODB.Recordset
rsICCandYrFilter.Open fnICCandYearFilter, cn, adOpenDynamic, adLockOptimistic

Set rsSum = New ADODB.Recordset
rsSum.Open fnQSUM, cn, adOpenDynamic, adLockOptimistic

Set rsLJ = New ADODB.Recordset
    rsLJ.Open fnQLJ, cn, adOpenDynamic, adLockOptimistic

Set rsRJ = New ADODB.Recordset
    rsRJ.Open fnQRJ, cn, adOpenDynamic, adLockOptimistic

Set rsUNION = New ADODB.Recordset
    rsUNION.Open fnQUNION, cn, adOpenDynamic, adLockOptimistic

IN THE MODULE:

Public Function fnICCandYearFilter()
Dim QStr4 As String
fnICCandYearFilter = ""
On Error Resume Next
For i = 1 To rcount
    If frmMultyTabs.Check4(i).Value = 1 Then
        fnICCandYearFilter = fnICCandYearFilter + " OR (tblCategoryExpenditures.ICC= """ & Left(frmMultyTabs.Check4(i).Caption, InStr(1, frmMultyTabs.Check4(i).Caption, "-") - 1) & """)"
        If frmMultyTabs.Controls("Option1" & i).Value = True Then
           fnICCandYearFilter = fnICCandYearFilter + " AND " & "(" & "TransactionDate between #" & ProjCurYrstart & "# AND #" & Date & "#" & ")"
    ElseIf frmMultyTabs.Controls("option2" & i).Value = True Then
           fnICCandYearFilter = fnICCandYearFilter + " AND " & "(" & "TransactionDate between #" & ProjPrevYrStart & "# AND #" & ProjPrevYrEnd & "#" & ")"
        End If
    End If
Next i
QStr4 = Mid(fnICCandYearFilter, 4)
fnICCandYearFilter = "Select *  into tblICCYearExpFilterTemp from tblCategoryExpenditures   where " & QStr4 & ""
Debug.Print fnICCandYearFilter
End Function

Public Function fnQSUM()
fnQSUM = "SELECT tblICCYearExpFilterTemp.CategoryNumber, tblICCYearExpFilterTemp.TransactionDate, tblICCYearExpFilterTemp.ICC, sum(tblICCYearExpFilterTemp.Expenditure) AS SumExp INTO tblSumTemp From tblICCYearExpFilterTemp  GROUP BY CategoryNumber, ICC,TransactionDate;"
End Function

Public Function fnQLJ()
fnQLJ = "SELECT tblICCAnnBdgYearFilterTemp.ICC, tblICCAnnBdgYearFilterTemp.CategoryNumber, tblICCAnnBdgYearFilterTemp.BudgetYear,tblICCAnnBdgYearFilterTemp.BudgetAmount, tblSumTemp.SumExp INTO tblAnnBgtExpLJTemp FROM tblICCAnnBdgYearFilterTemp LEFT JOIN tblSumTemp ON (tblICCAnnBdgYearFilterTemp.ICC = tblSumTemp.ICC) AND (tblICCAnnBdgYearFilterTemp.CategoryNumber = tblSumTemp.CategoryNumber);"
End Function

Public Function fnQRJ()
fnQRJ = "SELECT tblSumTemp.ICC, tblSumTemp.CategoryNumber, tblICCAnnBdgYearFilterTemp.BudgetYear,tblICCAnnBdgYearFilterTemp.BudgetAmount, tblSumTemp.SumExp INTO tblAnnBgtExpRJTemp FROM tblICCAnnBdgYearFilterTemp RIGHT JOIN tblSumTemp ON (tblICCAnnBdgYearFilterTemp.CategoryNumber = tblSumTemp.CategoryNumber) AND (tblICCAnnBdgYearFilterTemp.ICC = tblSumTemp.ICC);"
End Function

I hope you understand wht i want in VB.NET code....
Here in VB code i used Functions, i called Functions in the FORM and i declared the Functions in the Module. By using Funtions and Recordset i did job. But how can i handle in VB.NET?

THanks