Highlight Grid view rows in vb.net ms access

Question

0.00/5 (No votes)

See more:

Hello Friends,
I am developing a windows application in vb.net and MS Access (back end)
in which i have two tables 1st is StudentInfo table and Second is attendance table.
in studentinfo table all the students records stored, but in attendance table only present students name and roll no. stored.
after taking attendance i want to show all records in Data GridView which store in studentinfo table and Highlight only those records which are present in attendance table with different colors.
I have done 50% job i.e. show all records from studentinfo table in data grid view.

<pre lang="vb">

Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Dim da As OleDbDataAdapter
Dim str As String
Dim icount As Integer

Private Sub filldata()
        cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= SRS.mdb;")
        cn.Open()
        
        da = New OleDbDataAdapter("SELECT * FROM StudentInfo", cn)
        Dim dt As New DataTable("StudentInfo")
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub

How can i highlight attendance tables records in data grid view.
Please Remember i use VB.net as front end and MS Access 2003 as back end.
Thanks

Posted 22-Jul-11 23:32pm

NileshKRathod

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Ron Frederick · Accepted Answer · 2011-07-23T04:46:00

Try this and see if it works. I don't use DataSets.

VB

Private Sub LoadGrid()
    Try
        Dim oODBCConnection As Odbc.OdbcConnection
        Dim sConnString As String = "Driver={Microsoft Access Driver (*.mdb)};Dbq=SRS.mdb;"
        Dim comm As Odbc.OdbcCommand
        oODBCConnection = New Odbc.OdbcConnection(sConnString)
        oODBCConnection.Open()
        Dim dr As Odbc.OdbcDataReader

        Dim sql As String
        Dim rownum as Integer = 0
        sql = "SELECT * FROM StudentInfo"
        comm = New Odbc.OdbcCommand(sql, oODBCConnection)
        dr = comm.ExecuteReader()
        With Me.DataGridView.Rows
            .Clear()
            While dr.Read()
                .Add(dr!field1, _
                    dr!StudentIsPresentTableFieldName, _
                    dr!field3)
                ' Here is where the checking is accomplished,
                ' Look through the new row added and highlight
                ' the row that meets the proper conditions.
                With Me.DataGridView.Rows(rownum)
                    If .Cell(1).Value = 1 Then
                        .DefaultCellStyle.BackColor = Color.Yellow
                        .DefaultCellStyle.SelectionBackColor = Color.Yellow
                    ElseIf .Cell(1).Value = 2 then
                        .DefaultCellStyle.BackColor = Color.Silver
                        .DefaultCellStyle.SelectionBackColor = Color.Silver
                    End If
                End With
                rownum = rownum + 1
            End While
        End With

        dr.Close()
        oODBCConnection.Close()
        comm.Dispose()
        oODBCConnection.Dispose()
    Catch ex As Exception
        MessageBox.Show("FAILED TO LOAD GRID: " & ex.Message)
    End Try
End Sub