how to load table values in header coloumn of grid view

Question

0.00/5 (No votes)

See more:

hi,

Plz help me.

i have table named location in this table there are values as showroom1,showroom2,godown etc now i want to load these values in a header column of gridview. how can i do it.

Thanks.

Posted 10-Feb-11 22:32pm

Asghar Sajjad

Add a Solution

5 solutions

Solution 1

Bind table to Gridview and set Auto Generated Column = True

Posted 10-Feb-11 22:57pm

Sunasara Imdadhusen

Updated 10-Feb-11 22:58pm

v2

Comments

ulyses31 11-Feb-11 5:09am

your right. but i think he is referring to the values in his table. not the columns of the table.

Solution 2

you can loop thru your data grid like this:

For Each col as DataGridViewColumn in Me.yourDataGridView.Columns
col.HeaderText = "your table values"
Next

you can get "your table values" by looping thru your dataset. if your using dataset to load your data.

Posted 10-Feb-11 23:07pm

ulyses31

Updated 10-Feb-11 23:19pm

v2

Solution 3

Thanks, but it shows me column of the table whether i need values of table.

Table <location>

Location_ID Location_Name
1 Showroom1
2 Showroom2
3 Godown
4 etc
5 etc

i need showrrom1, showroom2 etc at gridview header.

Thanks

Posted 10-Feb-11 23:12pm

Asghar Sajjad

Comments

ulyses31 11-Feb-11 5:16am

have you tried my solution above?

Asghar Sajjad 11-Feb-11 6:09am

Yeah I have tried your solution but not getting it, please check my code...

Private Sub LoadLocation()

Dim con As SqlConnection
Dim connection As String
'Dim intloop As Integer

Dim str As String = "select locationid,LocationName from location order by locationname asc"

Try
connection = ConfigurationManager.ConnectionStrings("STOCK").ConnectionString
con = New SqlConnection(connection)
con.Open()

Dim dts As New DataSet()
Dim ada As SqlDataAdapter = New SqlDataAdapter(str, con)
Dim ds As New DataSet()
ada.Fill(ds, "Location")

If ds.Tables(0).Rows.Count > 0 Then
If Not IsDBNull(ds.Tables(0).Rows(0).Item("Locationname")) Then
For Each col As DataGridColumn In Me.GridView1.Columns
col.HeaderText = ds.Tables(0).Rows(0).Item("LocationName")
Next
End If
End If

Catch ex As Exception
End Try

End Sub

Sandeep Mewara 11-Feb-11 5:42am

Not an answer. Use comment feature to respond back.

Asghar Sajjad 11-Feb-11 6:03am

Thanks ulyses31 please check. i am still not getting values please check my code.

Private Sub LoadLocation()

Dim con As SqlConnection
Dim connection As String
'Dim intloop As Integer

Dim str As String = "select locationid,LocationName from location order by locationname asc"

Try
connection = ConfigurationManager.ConnectionStrings("STOCK").ConnectionString
con = New SqlConnection(connection)
con.Open()

Dim dts As New DataSet()
Dim ada As SqlDataAdapter = New SqlDataAdapter(str, con)
Dim ds As New DataSet()
ada.Fill(ds, "Location")

If ds.Tables(0).Rows.Count > 0 Then
If Not IsDBNull(ds.Tables(0).Rows(0).Item("Locationname")) Then
For Each col As DataGridColumn In Me.GridView1.Columns
col.HeaderText = ds.Tables(0).Rows(0).Item("LocationName")
Next
End If
End If

Catch ex As Exception
End Try

End Sub

ulyses31 11-Feb-11 6:16am

you also need to loop thru your table to get the values then assign in to col.HeaderText

ulyses31 11-Feb-11 6:17am

i suggest you nest your grid loop inside your table loop

Asghar Sajjad 11-Feb-11 6:32am

could you please change in my code. what you are saying.

Asghar Sajjad 11-Feb-11 8:54am

I have changed my code as per you suggestion but still not working please help me...

Dim ada As SqlDataAdapter = New SqlDataAdapter(str, con)
Dim ds As New DataSet()
ada.Fill(ds, "Location")
Dim i As Integer
If ds.Tables(0).Rows.Count > 0 Then
For i = 0 To ds.Tables(0).Rows.Count - 1

For Each col As DataGridColumn In Me.GridView1.Columns
col.HeaderText = ds.Tables(0).Rows(i).Item("locationname")

Next
Next
End If

Asghar Sajjad 11-Feb-11 8:57am

I m getting this msg when placing cursor on "For Each col As DataGridColumn In Me.GridView1.Columns"
Item = In order to evaluate an indexed property, the property must be qualified and the arguments must be explicitly supplied by the user.

ulyses31 12-Feb-11 0:46am

do you have the columns of your grid already? or you are going to create it dynamically based on your table values?

ulyses31 12-Feb-11 0:49am

also, would you like to make use of Typed Dataset? its better and lot easier with less coding.

Asghar Sajjad 12-Feb-11 1:10am

yeah i want to create it dynamically based on table values.

Asghar Sajjad 12-Feb-11 1:18am

please send me code for Typed Dataset.

Solution 4

if no columns yet, you can add columns dynamically based on your table values like this:

VB

If ds.Tables(0).Rows.Count > 0 Then
                For i = 0 To ds.Tables(0).Rows.Count - 1

                     Me.GridView1.Columns.Add("yourColumnName",ds.Tables(0).Rows(i).Item(&quot;locationname&quot;))
                    
                Next
            End If

my previous answers were based on the assumptions that you already have columns and you just want to change the header text of your columns.

Posted 11-Feb-11 19:14pm

ulyses31

Comments

Asghar Sajjad 12-Feb-11 1:34am

its giving error too many argument to Public sub Add. i think gv.column.add accept only one argument and we are supplying here 2 arguments, i m not sure.

ulyses31 13-Feb-11 20:48pm

gv.columns.add can accept 2 arguments.. its an overloaded sub. pls. paste again your complete code.

Asghar Sajjad 14-Feb-11 2:15am

Here is a code...
Private Sub LoadLocation()

Dim con As SqlConnection
Dim connection, strr As String

Dim str As String = "select * from location"

Try
connection = ConfigurationManager.ConnectionStrings("STOCK").ConnectionString
con = New SqlConnection(connection)
con.Open()

Dim ada As SqlDataAdapter = New SqlDataAdapter(str, con)
Dim ds As New DataSet()
Dim dt As New DataTable
Dim dr As DataRow
ada.Fill(ds, "Location")
ada.Fill(dt)
Dim i As Integer

If ds.Tables(0).Rows.Count > 0 Then
For i = 0 To ds.Tables(0).Rows.Count - 1

Me.GridView1.Columns.Add("locationname", ds.Tables(0).Rows(i).Item("locationname"))

Next
End If

Catch ex As Exception
End Try

End Sub

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)

Asghar Sajjad · Accepted Answer · 2011-02-13T23:11:00

Ok. I got the solution. Please check the code below.

Private Sub LoadLocation()

Dim con As SqlConnection
Dim connection As String

Dim str As String = "select locationid,LocationName from location order by locationname asc"
lblMsg.Visible = False

connection = ConfigurationManager.ConnectionStrings("STOCK").ConnectionString
con = New SqlConnection(connection)

Dim dts As New DataSet()
Dim ada As SqlDataAdapter = New SqlDataAdapter(str, con)
Dim ds As New DataSet()
ada.Fill(ds)
Dim dd As New DataSet
dd.Tables.Add(New DataTable)
Dim r As New ArrayList

Try
con.Open()
ada = New SqlDataAdapter(str, con)
ada.Fill(dts)
con.Close()
Catch ex As Exception
con.Close()
End Try

For intloop As Integer = 0 To dts.Tables(0).Rows.Count - 1
GVProduct.Columns.Add(New BoundField)
GVProduct.Columns(intloop).HeaderText = dts.Tables(0).Rows(intloop).Item("locationname")
dd.Tables(0).Columns.Add(New DataColumn)
r.Add("")
Next

dd.Tables(0).Rows.Add(r)
GVProduct.DataSource = dd
GVProduct.DataBind()

End Sub