Requery datagrid

[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(Option al ByVal SearchString As String = "")

Dim sql As String, s As String
s = SearchString

If SearchString.Le ngth > 0 Then
sql = "SELECT
ID,Firma,Fornav n,Efternavn,Adr esse1,PostNr,Te lefon_arbejde as Tlf FROM
tblKontakter " & _
"WHERE Firma Like '%" & s & "%' OR Fornavn Like '%" &
s & "%' OR Efternavn Like '" & s & "%'"

Me.SqlDataAdapt er1.SelectComma nd.CommandText = sql
End If

Me.SqlDataAdapt er1.Fill(Me.Dat aSet11)
Me.dgOverview.R efresh()

End Sub


Regards /Snedker

[Ken Tucker [MVP]]

Re: Requery datagrid

Hi,

First clear the dataset before you refill it.
http://msdn.microsoft.com/library/de...cleartopic.asp

To get the datagrid to refresh try this.

Me.dgOverview.D atasource = nothing
Me.dgOverview.D atasource = Dataset11.Table s(0)

Ken
-------------------
"Morten Snedker" <morten_spammen ot_ATdbconsult. dk> wrote in message
news:3sgpd15q8m n6lhogsrja8s1c0 tj1ntggjk@4ax.c om...
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(Option al ByVal SearchString As String = "")

Dim sql As String, s As String
s = SearchString

If SearchString.Le ngth > 0 Then
sql = "SELECT
ID,Firma,Fornav n,Efternavn,Adr esse1,PostNr,Te lefon_arbejde as Tlf FROM
tblKontakter " & _
"WHERE Firma Like '%" & s & "%' OR Fornavn Like '%" &
s & "%' OR Efternavn Like '" & s & "%'"

Me.SqlDataAdapt er1.SelectComma nd.CommandText = sql
End If

Me.SqlDataAdapt er1.Fill(Me.Dat aSet11)
Me.dgOverview.R efresh()

End Sub


Regards /Snedker

[Morten Snedker]

Re: Requery datagrid

On Tue, 19 Jul 2005 05:41:25 -0400, "Ken Tucker [MVP]"
<vb2ae@bellsout h.net> wrote:

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(Option al ByVal SearchString As String = "")

Dim sql As String, s As String
s = SearchString

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

Me.DataSet11.Cl ear()

Me.SqlDataAdapt er1.SelectComma nd.CommandText = sql
Me.dgOverview.D ataSource = Nothing
Me.dgOverview.D ataSource = DataSet11.Table s(0)

End Sub


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

Thanks for your time as well as advice!

Regards /Snedker


[color=blue]
> First clear the dataset before you refill it.
>http://msdn.microsoft.com/library/de...cleartopic.asp
>
> To get the datagrid to refresh try this.
>
>Me.dgOverview. Datasource = nothing
>Me.dgOverview. Datasource = Dataset11.Table s(0)
>
>Ken
>-------------------
>"Morten Snedker" <morten_spammen ot_ATdbconsult. dk> wrote in message
>news:3sgpd15q8 mn6lhogsrja8s1c 0tj1ntggjk@4ax. com...
>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(Option al ByVal SearchString As String = "")
>
> Dim sql As String, s As String
> s = SearchString
>
> If SearchString.Le ngth > 0 Then
> sql = "SELECT
>ID,Firma,Forna vn,Efternavn,Ad resse1,PostNr,T elefon_arbejde as Tlf FROM
>tblKontakter " & _
> "WHERE Firma Like '%" & s & "%' OR Fornavn Like '%" &
>s & "%' OR Efternavn Like '" & s & "%'"
>
> Me.SqlDataAdapt er1.SelectComma nd.CommandText = sql
> End If
>
> Me.SqlDataAdapt er1.Fill(Me.Dat aSet11)
> Me.dgOverview.R efresh()
>
>End Sub
>
>
>Regards /Snedker
>[/color]

[Ken Tucker [MVP]]

Re: Requery datagrid

Hi,

I dont see when you fill the dataset

Ken
-------------------
"Morten Snedker" <morten_spammen ot_ATdbconsult. dk> wrote in message
news:5empd15fjv bpcmadr53g1raph he3l2rbkl@4ax.c om...
On Tue, 19 Jul 2005 05:41:25 -0400, "Ken Tucker [MVP]"
<vb2ae@bellsout h.net> wrote:

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(Option al ByVal SearchString As String = "")

Dim sql As String, s As String
s = SearchString

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

Me.DataSet11.Cl ear()

Me.SqlDataAdapt er1.SelectComma nd.CommandText = sql
Me.dgOverview.D ataSource = Nothing
Me.dgOverview.D ataSource = DataSet11.Table s(0)

End Sub


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

Thanks for your time as well as advice!

Regards /Snedker


[color=blue]
> First clear the dataset before you refill it.
>http://msdn.microsoft.com/library/de...cleartopic.asp
>
> To get the datagrid to refresh try this.
>
>Me.dgOverview. Datasource = nothing
>Me.dgOverview. Datasource = Dataset11.Table s(0)
>
>Ken
>-------------------
>"Morten Snedker" <morten_spammen ot_ATdbconsult. dk> wrote in message
>news:3sgpd15q8 mn6lhogsrja8s1c 0tj1ntggjk@4ax. com...
>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(Option al ByVal SearchString As String = "")
>
> Dim sql As String, s As String
> s = SearchString
>
> If SearchString.Le ngth > 0 Then
> sql = "SELECT
>ID,Firma,Forna vn,Efternavn,Ad resse1,PostNr,T elefon_arbejde as Tlf FROM
>tblKontakter " & _
> "WHERE Firma Like '%" & s & "%' OR Fornavn Like '%" &
>s & "%' OR Efternavn Like '" & s & "%'"
>
> Me.SqlDataAdapt er1.SelectComma nd.CommandText = sql
> End If
>
> Me.SqlDataAdapt er1.Fill(Me.Dat aSet11)
> Me.dgOverview.R efresh()
>
>End Sub
>
>
>Regards /Snedker
>[/color]

[Morten Snedker]

Re: Requery datagrid

On Tue, 19 Jul 2005 06:53:28 -0400, "Ken Tucker [MVP]"
<vb2ae@bellsout h.net> wrote:

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

Thx!
[color=blue]
> I dont see when you fill the dataset[/color]