Requery datagrid

  • Thread starter Thread starter Morten Snedker
  • Start date Start date
M

Morten Snedker

Hi,

Text is entered into textbox and is send to LoadData as SearchString.
Now I want to update the datagrid (dgOverview). The code below is me
clutching at straws...how do I update the datagrid properly?



Sub LoadData(Optional ByVal SearchString As String = "")

Dim sql As String, s As String
s = SearchString

If SearchString.Length > 0 Then
sql = "SELECT
ID,Firma,Fornavn,Efternavn,Adresse1,PostNr,Telefon_arbejde as Tlf FROM
tblKontakter " & _
"WHERE Firma Like '%" & s & "%' OR Fornavn Like '%" &
s & "%' OR Efternavn Like '" & s & "%'"

Me.SqlDataAdapter1.SelectCommand.CommandText = sql
End If

Me.SqlDataAdapter1.Fill(Me.DataSet11)
Me.dgOverview.Refresh()

End Sub


Regards /Snedker
 
Hi,

First clear the dataset before you refill it.
http://msdn.microsoft.com/library/d...tml/frlrfsystemdatadatasetclasscleartopic.asp

To get the datagrid to refresh try this.

Me.dgOverview.Datasource = nothing
Me.dgOverview.Datasource = Dataset11.Tables(0)

Ken
-------------------
"Morten Snedker" <morten_spammenot_ATdbconsult.dk> wrote in message
Hi,

Text is entered into textbox and is send to LoadData as SearchString.
Now I want to update the datagrid (dgOverview). The code below is me
clutching at straws...how do I update the datagrid properly?



Sub LoadData(Optional ByVal SearchString As String = "")

Dim sql As String, s As String
s = SearchString

If SearchString.Length > 0 Then
sql = "SELECT
ID,Firma,Fornavn,Efternavn,Adresse1,PostNr,Telefon_arbejde as Tlf FROM
tblKontakter " & _
"WHERE Firma Like '%" & s & "%' OR Fornavn Like '%" &
s & "%' OR Efternavn Like '" & s & "%'"

Me.SqlDataAdapter1.SelectCommand.CommandText = sql
End If

Me.SqlDataAdapter1.Fill(Me.DataSet11)
Me.dgOverview.Refresh()

End Sub


Regards /Snedker
 
On Tue, 19 Jul 2005 05:41:25 -0400, "Ken Tucker [MVP]"

Thanks for your reply, Ken. However I still can't get it to work. Now
it returns no records at all. This is my routine as it is now:


Sub LoadData(Optional ByVal SearchString As String = "")

Dim sql As String, s As String
s = SearchString

If SearchString.Length > 0 Then
sql = "SELECT bla bla..."
Else
sql = "SELECT bla bla..."
End If

Me.DataSet11.Clear()

Me.SqlDataAdapter1.SelectCommand.CommandText = sql
Me.dgOverview.DataSource = Nothing
Me.dgOverview.DataSource = DataSet11.Tables(0)

End Sub


If I'm fundementally missing out on something, please correct me.

Thanks for your time as well as advice!

Regards /Snedker
 
Hi,

I dont see when you fill the dataset

Ken
-------------------
"Morten Snedker" <morten_spammenot_ATdbconsult.dk> wrote in message
On Tue, 19 Jul 2005 05:41:25 -0400, "Ken Tucker [MVP]"

Thanks for your reply, Ken. However I still can't get it to work. Now
it returns no records at all. This is my routine as it is now:


Sub LoadData(Optional ByVal SearchString As String = "")

Dim sql As String, s As String
s = SearchString

If SearchString.Length > 0 Then
sql = "SELECT bla bla..."
Else
sql = "SELECT bla bla..."
End If

Me.DataSet11.Clear()

Me.SqlDataAdapter1.SelectCommand.CommandText = sql
Me.dgOverview.DataSource = Nothing
Me.dgOverview.DataSource = DataSet11.Tables(0)

End Sub


If I'm fundementally missing out on something, please correct me.

Thanks for your time as well as advice!

Regards /Snedker
 
On Tue, 19 Jul 2005 06:53:28 -0400, "Ken Tucker [MVP]"

Of course you don't. I didn't either. Now I do. ;-)

Thx!
 
Back
Top