Looking for a quicker way to fill a datagrid???

[Helixpoint]

Here is my code:

Dim availMach As New ASPNETProduct.m achinedb()

Dim dstMachList As DataSet

dstMachList = availMach.GetAv ailMach(theSear chVal, theSearchBy,
theMachCode1, theSearchView, SelSort, SelSortDir)

availMachList.D ataSource = dstMachList

Public Function GetAvailMach(By Val theSearchVal As String, ByVal theSearchBy
As String, ByVal MACH_CODE1 As String, ByVal theSearchView As String, ByVal
SelSort As String, ByVal SelSortDir As String) As DataSet

' Create Instance of Connection and Command Object

Dim myConnection As New
SqlConnection(C onfigurationSet tings.AppSettin gs("connectionS tring"))

Dim myCommand As New SqlDataAdapter( "SelectOpenInve ntory", myConnection)

' Mark the Command as a SPROC

myCommand.Selec tCommand.Comman dType = CommandType.Sto redProcedure

' Add Parameters to SPROC

Dim parametertheSea rchVal As New SqlParameter("@ theSearchVal",
SqlDbType.NVarC har, 100)

parametertheSea rchVal.Value = theSearchVal

myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchVal )

Dim parametertheSea rchBy As New SqlParameter("@ theSearchBy",
SqlDbType.NVarC har, 100)

parametertheSea rchBy.Value = theSearchBy

myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchBy)

Dim parameterMACH_C ODE1 As New SqlParameter("@ MACH_CODE",
SqlDbType.NVarC har, 50)

parameterMACH_C ODE1.Value = MACH_CODE1

myCommand.Selec tCommand.Parame ters.Add(parame terMACH_CODE1)

Dim parametertheSea rchView As New SqlParameter("@ theSearchView",
SqlDbType.NVarC har, 50)

parametertheSea rchView.Value = theSearchView

myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchVie w)

Dim parameterSelSor t As New SqlParameter("@ SelSort", SqlDbType.NVarC har, 50)

parameterSelSor t.Value = SelSort

myCommand.Selec tCommand.Parame ters.Add(parame terSelSort)

Dim parameterSelSor tDir As New SqlParameter("@ SelSortDir",
SqlDbType.NVarC har, 10)

parameterSelSor tDir.Value = SelSortDir

myCommand.Selec tCommand.Parame ters.Add(parame terSelSortDir)

' Create and Fill the DataSet

Dim myDataSet As New DataSet

myCommand.Fill( myDataSet)

' Return the datareader

Return myDataSet

End Function
--

dave

[Alvin Bruney]

if fill is not fast enough for you, use a datareader to loop thru. remember
the reader is a fire hose cursor and you have to explicitly close it when
done or else it is considered blocked.

"Helixpoint " <da**@helixpoin t.com> wrote in message
news:ee******** ******@tk2msftn gp13.phx.gbl...

Here is my code:

Dim availMach As New ASPNETProduct.m achinedb()

Dim dstMachList As DataSet

dstMachList = availMach.GetAv ailMach(theSear chVal, theSearchBy,
theMachCode1, theSearchView, SelSort, SelSortDir)

availMachList.D ataSource = dstMachList

Public Function GetAvailMach(By Val theSearchVal As String, ByVal theSearchBy As String, ByVal MACH_CODE1 As String, ByVal theSearchView As String, ByVal SelSort As String, ByVal SelSortDir As String) As DataSet

' Create Instance of Connection and Command Object

Dim myConnection As New
SqlConnection(C onfigurationSet tings.AppSettin gs("connectionS tring"))

Dim myCommand As New SqlDataAdapter( "SelectOpenInve ntory", myConnection)

' Mark the Command as a SPROC

myCommand.Selec tCommand.Comman dType = CommandType.Sto redProcedure

' Add Parameters to SPROC

Dim parametertheSea rchVal As New SqlParameter("@ theSearchVal",
SqlDbType.NVarC har, 100)

parametertheSea rchVal.Value = theSearchVal

myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchVal )

Dim parametertheSea rchBy As New SqlParameter("@ theSearchBy",
SqlDbType.NVarC har, 100)

parametertheSea rchBy.Value = theSearchBy

myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchBy)

Dim parameterMACH_C ODE1 As New SqlParameter("@ MACH_CODE",
SqlDbType.NVarC har, 50)

parameterMACH_C ODE1.Value = MACH_CODE1

myCommand.Selec tCommand.Parame ters.Add(parame terMACH_CODE1)

Dim parametertheSea rchView As New SqlParameter("@ theSearchView",
SqlDbType.NVarC har, 50)

parametertheSea rchView.Value = theSearchView

myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchVie w)

Dim parameterSelSor t As New SqlParameter("@ SelSort", SqlDbType.NVarC har, 50)
parameterSelSor t.Value = SelSort

myCommand.Selec tCommand.Parame ters.Add(parame terSelSort)

Dim parameterSelSor tDir As New SqlParameter("@ SelSortDir",
SqlDbType.NVarC har, 10)

parameterSelSor tDir.Value = SelSortDir

myCommand.Selec tCommand.Parame ters.Add(parame terSelSortDir)

' Create and Fill the DataSet

Dim myDataSet As New DataSet

myCommand.Fill( myDataSet)

' Return the datareader

Return myDataSet

End Function
--

dave

[John Saunders]

How much faster would a DataReader be? Doesn't Fill use a DataReader to fill
the DataSet?
--
John Saunders
Internet Engineer
jo***********@s urfcontrol.com

"Alvin Bruney" <vapordan_spam_ me_not@hotmail_ no_spamhotmail. com> wrote in
message news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..

if fill is not fast enough for you, use a datareader to loop thru. remember the reader is a fire hose cursor and you have to explicitly close it when
done or else it is considered blocked.

"Helixpoint " <da**@helixpoin t.com> wrote in message
news:ee******** ******@tk2msftn gp13.phx.gbl...

Here is my code:

Dim availMach As New ASPNETProduct.m achinedb()

Dim dstMachList As DataSet

dstMachList = availMach.GetAv ailMach(theSear chVal, theSearchBy,
theMachCode1, theSearchView, SelSort, SelSortDir)

availMachList.D ataSource = dstMachList

Public Function GetAvailMach(By Val theSearchVal As String, ByVal

theSearchBy

As String, ByVal MACH_CODE1 As String, ByVal theSearchView As String,

ByVal

SelSort As String, ByVal SelSortDir As String) As DataSet

' Create Instance of Connection and Command Object

Dim myConnection As New
SqlConnection(C onfigurationSet tings.AppSettin gs("connectionS tring"))

Dim myCommand As New SqlDataAdapter( "SelectOpenInve ntory", myConnection)

' Mark the Command as a SPROC

myCommand.Selec tCommand.Comman dType = CommandType.Sto redProcedure

' Add Parameters to SPROC

Dim parametertheSea rchVal As New SqlParameter("@ theSearchVal",
SqlDbType.NVarC har, 100)

parametertheSea rchVal.Value = theSearchVal

myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchVal )

Dim parametertheSea rchBy As New SqlParameter("@ theSearchBy",
SqlDbType.NVarC har, 100)

parametertheSea rchBy.Value = theSearchBy

myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchBy)

Dim parameterMACH_C ODE1 As New SqlParameter("@ MACH_CODE",
SqlDbType.NVarC har, 50)

parameterMACH_C ODE1.Value = MACH_CODE1

myCommand.Selec tCommand.Parame ters.Add(parame terMACH_CODE1)

Dim parametertheSea rchView As New SqlParameter("@ theSearchView",
SqlDbType.NVarC har, 50)

parametertheSea rchView.Value = theSearchView

myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchVie w)

Dim parameterSelSor t As New SqlParameter("@ SelSort", SqlDbType.NVarC har,

50)

parameterSelSor t.Value = SelSort

myCommand.Selec tCommand.Parame ters.Add(parame terSelSort)

Dim parameterSelSor tDir As New SqlParameter("@ SelSortDir",
SqlDbType.NVarC har, 10)

parameterSelSor tDir.Value = SelSortDir

myCommand.Selec tCommand.Parame ters.Add(parame terSelSortDir)

' Create and Fill the DataSet

Dim myDataSet As New DataSet

myCommand.Fill( myDataSet)

' Return the datareader

Return myDataSet

End Function
--

dave

[Alvin Bruney]

underneath it does but there is a lot of extra overhead because the results
have to be packaged and stuffed into a dataset. the performance difference
is night and day.

"John Saunders" <jo***********@ surfcontrol.com > wrote in message
news:eH******** *****@TK2MSFTNG P09.phx.gbl...

How much faster would a DataReader be? Doesn't Fill use a DataReader to fill the DataSet?
--
John Saunders
Internet Engineer
jo***********@s urfcontrol.com

"Alvin Bruney" <vapordan_spam_ me_not@hotmail_ no_spamhotmail. com> wrote in
message news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..

if fill is not fast enough for you, use a datareader to loop thru.

remember

the reader is a fire hose cursor and you have to explicitly close it when done or else it is considered blocked.

"Helixpoint " <da**@helixpoin t.com> wrote in message
news:ee******** ******@tk2msftn gp13.phx.gbl...

Here is my code:

Dim availMach As New ASPNETProduct.m achinedb()

Dim dstMachList As DataSet

dstMachList = availMach.GetAv ailMach(theSear chVal, theSearchBy,
theMachCode1, theSearchView, SelSort, SelSortDir)

availMachList.D ataSource = dstMachList

Public Function GetAvailMach(By Val theSearchVal As String, ByVal

theSearchBy

As String, ByVal MACH_CODE1 As String, ByVal theSearchView As String,

ByVal

SelSort As String, ByVal SelSortDir As String) As DataSet

' Create Instance of Connection and Command Object

Dim myConnection As New
SqlConnection(C onfigurationSet tings.AppSettin gs("connectionS tring"))

Dim myCommand As New SqlDataAdapter( "SelectOpenInve ntory", myConnection)
' Mark the Command as a SPROC

myCommand.Selec tCommand.Comman dType = CommandType.Sto redProcedure

' Add Parameters to SPROC

Dim parametertheSea rchVal As New SqlParameter("@ theSearchVal",
SqlDbType.NVarC har, 100)

parametertheSea rchVal.Value = theSearchVal

myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchVal )

Dim parametertheSea rchBy As New SqlParameter("@ theSearchBy",
SqlDbType.NVarC har, 100)

parametertheSea rchBy.Value = theSearchBy

myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchBy)

Dim parameterMACH_C ODE1 As New SqlParameter("@ MACH_CODE",
SqlDbType.NVarC har, 50)

parameterMACH_C ODE1.Value = MACH_CODE1

myCommand.Selec tCommand.Parame ters.Add(parame terMACH_CODE1)

Dim parametertheSea rchView As New SqlParameter("@ theSearchView",
SqlDbType.NVarC har, 50)

parametertheSea rchView.Value = theSearchView

myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchVie w)

Dim parameterSelSor t As New SqlParameter("@ SelSort",

SqlDbType.NVarC har, 50)

parameterSelSor t.Value = SelSort

myCommand.Selec tCommand.Parame ters.Add(parame terSelSort)

Dim parameterSelSor tDir As New SqlParameter("@ SelSortDir",
SqlDbType.NVarC har, 10)

parameterSelSor tDir.Value = SelSortDir

myCommand.Selec tCommand.Parame ters.Add(parame terSelSortDir)

' Create and Fill the DataSet

Dim myDataSet As New DataSet

myCommand.Fill( myDataSet)

' Return the datareader

Return myDataSet

End Function
--

dave

[John Saunders]

Interesting. I'll have to do some performance tests on that some day. I had
thought that, absent DataRelations, they'd just loop through the DataReader,
calling:

DataSet ds = something();
DataTable dt = ds.Tables[0];
DataReader reader = somethingElse() ;

while (reader.Read())
{
DataRow dr = dt.NewRow();
dr.ItemArray = reader.GetValue s();
dt.Rows.Add(dr) ;
}

Oh, well, one more mystery...
--
John Saunders
Internet Engineer
jo***********@s urfcontrol.com

"Alvin Bruney" <vapordan_spam_ me_not@hotmail_ no_spamhotmail. com> wrote in
message news:ue******** ********@TK2MSF TNGP11.phx.gbl. ..

underneath it does but there is a lot of extra overhead because the results have to be packaged and stuffed into a dataset. the performance difference
is night and day.

"John Saunders" <jo***********@ surfcontrol.com > wrote in message
news:eH******** *****@TK2MSFTNG P09.phx.gbl...

How much faster would a DataReader be? Doesn't Fill use a DataReader to

fill

the DataSet?
--
John Saunders
Internet Engineer
jo***********@s urfcontrol.com

"Alvin Bruney" <vapordan_spam_ me_not@hotmail_ no_spamhotmail. com> wrote in

message news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..

if fill is not fast enough for you, use a datareader to loop thru.

remember

the reader is a fire hose cursor and you have to explicitly close it

when done or else it is considered blocked.

"Helixpoint " <da**@helixpoin t.com> wrote in message
news:ee******** ******@tk2msftn gp13.phx.gbl...
> Here is my code:
>
> Dim availMach As New ASPNETProduct.m achinedb()
>
> Dim dstMachList As DataSet
>
> dstMachList = availMach.GetAv ailMach(theSear chVal, theSearchBy,
> theMachCode1, theSearchView, SelSort, SelSortDir)
>
> availMachList.D ataSource = dstMachList
>
>
>
>
>
> Public Function GetAvailMach(By Val theSearchVal As String, ByVal
theSearchBy
> As String, ByVal MACH_CODE1 As String, ByVal theSearchView As String, ByVal
> SelSort As String, ByVal SelSortDir As String) As DataSet
>
> ' Create Instance of Connection and Command Object
>
> Dim myConnection As New
> SqlConnection(C onfigurationSet tings.AppSettin gs("connectionS tring"))
>
> Dim myCommand As New SqlDataAdapter( "SelectOpenInve ntory", myConnection) >
> ' Mark the Command as a SPROC
>
> myCommand.Selec tCommand.Comman dType = CommandType.Sto redProcedure
>
> ' Add Parameters to SPROC
>
> Dim parametertheSea rchVal As New SqlParameter("@ theSearchVal",
> SqlDbType.NVarC har, 100)
>
> parametertheSea rchVal.Value = theSearchVal
>
> myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchVal )
>
> Dim parametertheSea rchBy As New SqlParameter("@ theSearchBy",
> SqlDbType.NVarC har, 100)
>
> parametertheSea rchBy.Value = theSearchBy
>
> myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchBy)
>
>
>
> Dim parameterMACH_C ODE1 As New SqlParameter("@ MACH_CODE",
> SqlDbType.NVarC har, 50)
>
> parameterMACH_C ODE1.Value = MACH_CODE1
>
> myCommand.Selec tCommand.Parame ters.Add(parame terMACH_CODE1)
>
>
>
> Dim parametertheSea rchView As New SqlParameter("@ theSearchView",
> SqlDbType.NVarC har, 50)
>
> parametertheSea rchView.Value = theSearchView
>
> myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchVie w)
>
> Dim parameterSelSor t As New SqlParameter("@ SelSort", SqlDbType.NVarC har, 50)
>
> parameterSelSor t.Value = SelSort
>
> myCommand.Selec tCommand.Parame ters.Add(parame terSelSort)
>
> Dim parameterSelSor tDir As New SqlParameter("@ SelSortDir",
> SqlDbType.NVarC har, 10)
>
> parameterSelSor tDir.Value = SelSortDir
>
> myCommand.Selec tCommand.Parame ters.Add(parame terSelSortDir)
>
>
>
>
>
> ' Create and Fill the DataSet
>
> Dim myDataSet As New DataSet
>
> myCommand.Fill( myDataSet)
>
> ' Return the datareader
>
> Return myDataSet
>
> End Function
>
>
> --
>
> dave
>
>

[John Saunders]

Interesting. I'll have to do some performance tests on that some day. I had
thought that, absent DataRelations, they'd just loop through the DataReader,
calling:

DataSet ds = something();
DataTable dt = ds.Tables[0];
DataReader reader = somethingElse() ;

while (reader.Read())
{
DataRow dr = dt.NewRow();
dr.ItemArray = reader.GetValue s();
dt.Rows.Add(dr) ;
}

Oh, well, one more mystery...
--
John Saunders
Internet Engineer
jo***********@s urfcontrol.com

"Alvin Bruney" <vapordan_spam_ me_not@hotmail_ no_spamhotmail. com> wrote in
message news:ue******** ********@TK2MSF TNGP11.phx.gbl. ..

underneath it does but there is a lot of extra overhead because the results have to be packaged and stuffed into a dataset. the performance difference
is night and day.

"John Saunders" <jo***********@ surfcontrol.com > wrote in message
news:eH******** *****@TK2MSFTNG P09.phx.gbl...

How much faster would a DataReader be? Doesn't Fill use a DataReader to

fill

the DataSet?
--
John Saunders
Internet Engineer
jo***********@s urfcontrol.com

"Alvin Bruney" <vapordan_spam_ me_not@hotmail_ no_spamhotmail. com> wrote in

message news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..

if fill is not fast enough for you, use a datareader to loop thru.

remember

the reader is a fire hose cursor and you have to explicitly close it

when done or else it is considered blocked.

"Helixpoint " <da**@helixpoin t.com> wrote in message
news:ee******** ******@tk2msftn gp13.phx.gbl...
> Here is my code:
>
> Dim availMach As New ASPNETProduct.m achinedb()
>
> Dim dstMachList As DataSet
>
> dstMachList = availMach.GetAv ailMach(theSear chVal, theSearchBy,
> theMachCode1, theSearchView, SelSort, SelSortDir)
>
> availMachList.D ataSource = dstMachList
>
>
>
>
>
> Public Function GetAvailMach(By Val theSearchVal As String, ByVal
theSearchBy
> As String, ByVal MACH_CODE1 As String, ByVal theSearchView As String, ByVal
> SelSort As String, ByVal SelSortDir As String) As DataSet
>
> ' Create Instance of Connection and Command Object
>
> Dim myConnection As New
> SqlConnection(C onfigurationSet tings.AppSettin gs("connectionS tring"))
>
> Dim myCommand As New SqlDataAdapter( "SelectOpenInve ntory", myConnection) >
> ' Mark the Command as a SPROC
>
> myCommand.Selec tCommand.Comman dType = CommandType.Sto redProcedure
>
> ' Add Parameters to SPROC
>
> Dim parametertheSea rchVal As New SqlParameter("@ theSearchVal",
> SqlDbType.NVarC har, 100)
>
> parametertheSea rchVal.Value = theSearchVal
>
> myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchVal )
>
> Dim parametertheSea rchBy As New SqlParameter("@ theSearchBy",
> SqlDbType.NVarC har, 100)
>
> parametertheSea rchBy.Value = theSearchBy
>
> myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchBy)
>
>
>
> Dim parameterMACH_C ODE1 As New SqlParameter("@ MACH_CODE",
> SqlDbType.NVarC har, 50)
>
> parameterMACH_C ODE1.Value = MACH_CODE1
>
> myCommand.Selec tCommand.Parame ters.Add(parame terMACH_CODE1)
>
>
>
> Dim parametertheSea rchView As New SqlParameter("@ theSearchView",
> SqlDbType.NVarC har, 50)
>
> parametertheSea rchView.Value = theSearchView
>
> myCommand.Selec tCommand.Parame ters.Add(parame tertheSearchVie w)
>
> Dim parameterSelSor t As New SqlParameter("@ SelSort", SqlDbType.NVarC har, 50)
>
> parameterSelSor t.Value = SelSort
>
> myCommand.Selec tCommand.Parame ters.Add(parame terSelSort)
>
> Dim parameterSelSor tDir As New SqlParameter("@ SelSortDir",
> SqlDbType.NVarC har, 10)
>
> parameterSelSor tDir.Value = SelSortDir
>
> myCommand.Selec tCommand.Parame ters.Add(parame terSelSortDir)
>
>
>
>
>
> ' Create and Fill the DataSet
>
> Dim myDataSet As New DataSet
>
> myCommand.Fill( myDataSet)
>
> ' Return the datareader
>
> Return myDataSet
>
> End Function
>
>
> --
>
> dave
>
>