Comments by Asghar Sajjad

Asghar Sajjad 23-Dec-11 1:16am View

Thanks Prakash, you save my day, thanks a lot.

Asghar Sajjad 23-Dec-11 1:04am View

Thanks for your reply, as you pointed out i will think about it but i want to create a job which i will schedule for every day, my idea was if the user doesn't open an application then the function which is doing this job will not be executed.

Asghar Sajjad 14-Feb-11 2:15am View

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

Asghar Sajjad 12-Feb-11 1:34am View

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.

Asghar Sajjad 12-Feb-11 1:18am View

please send me code for Typed Dataset.

Asghar Sajjad 12-Feb-11 1:10am View

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

Asghar Sajjad 11-Feb-11 8:57am View

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.

Asghar Sajjad 11-Feb-11 8:54am View

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 6:32am View

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

Asghar Sajjad 11-Feb-11 6:09am View

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

Asghar Sajjad 11-Feb-11 6:03am View

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

Comments by Asghar Sajjad (Top 11 by date)