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

[Helixpoint]

Here is my code:

Dim availMach As New ASPNETProduct.machinedb()

Dim dstMachList As DataSet

dstMachList = availMach.GetAvailMach(theSearchVal, theSearchBy,
theMachCode1, theSearchView, SelSort, SelSortDir)

availMachList.DataSource = dstMachList





Public Function GetAvailMach(ByVal 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(ConfigurationSettings.AppSettings("c onnectionString"))

Dim myCommand As New SqlDataAdapter("SelectOpenInventory", myConnection)

' Mark the Command as a SPROC

myCommand.SelectCommand.CommandType = CommandType.StoredProcedure

' Add Parameters to SPROC

Dim parametertheSearchVal As New SqlParameter("@theSearchVal",
SqlDbType.NVarChar, 100)

parametertheSearchVal.Value = theSearchVal

myCommand.SelectCommand.Parameters.Add(parameterth eSearchVal)

Dim parametertheSearchBy As New SqlParameter("@theSearchBy",
SqlDbType.NVarChar, 100)

parametertheSearchBy.Value = theSearchBy

myCommand.SelectCommand.Parameters.Add(parameterth eSearchBy)



Dim parameterMACH_CODE1 As New SqlParameter("@MACH_CODE",
SqlDbType.NVarChar, 50)

parameterMACH_CODE1.Value = MACH_CODE1

myCommand.SelectCommand.Parameters.Add(parameterMA CH_CODE1)



Dim parametertheSearchView As New SqlParameter("@theSearchView",
SqlDbType.NVarChar, 50)

parametertheSearchView.Value = theSearchView

myCommand.SelectCommand.Parameters.Add(parameterth eSearchView)

Dim parameterSelSort As New SqlParameter("@SelSort", SqlDbType.NVarChar, 50)

parameterSelSort.Value = SelSort

myCommand.SelectCommand.Parameters.Add(parameterSe lSort)

Dim parameterSelSortDir As New SqlParameter("@SelSortDir",
SqlDbType.NVarChar, 10)

parameterSelSortDir.Value = SelSortDir

myCommand.SelectCommand.Parameters.Add(parameterSe lSortDir)





' 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" <dave@helixpoint.com> wrote in message
news:eew7dGqVDHA.3332@tk2msftngp13.phx.gbl...

> Here is my code:
>
> Dim availMach As New ASPNETProduct.machinedb()
>
> Dim dstMachList As DataSet
>
> dstMachList = availMach.GetAvailMach(theSearchVal, theSearchBy,
> theMachCode1, theSearchView, SelSort, SelSortDir)
>
> availMachList.DataSource = dstMachList
>
>
>
>
>
> Public Function GetAvailMach(ByVal 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(ConfigurationSettings.AppSettings("c onnectionString"))
>
> Dim myCommand As New SqlDataAdapter("SelectOpenInventory", myConnection)
>
> ' Mark the Command as a SPROC
>
> myCommand.SelectCommand.CommandType = CommandType.StoredProcedure
>
> ' Add Parameters to SPROC
>
> Dim parametertheSearchVal As New SqlParameter("@theSearchVal",
> SqlDbType.NVarChar, 100)
>
> parametertheSearchVal.Value = theSearchVal
>
> myCommand.SelectCommand.Parameters.Add(parameterth eSearchVal)
>
> Dim parametertheSearchBy As New SqlParameter("@theSearchBy",
> SqlDbType.NVarChar, 100)
>
> parametertheSearchBy.Value = theSearchBy
>
> myCommand.SelectCommand.Parameters.Add(parameterth eSearchBy)
>
>
>
> Dim parameterMACH_CODE1 As New SqlParameter("@MACH_CODE",
> SqlDbType.NVarChar, 50)
>
> parameterMACH_CODE1.Value = MACH_CODE1
>
> myCommand.SelectCommand.Parameters.Add(parameterMA CH_CODE1)
>
>
>
> Dim parametertheSearchView As New SqlParameter("@theSearchView",
> SqlDbType.NVarChar, 50)
>
> parametertheSearchView.Value = theSearchView
>
> myCommand.SelectCommand.Parameters.Add(parameterth eSearchView)
>
> Dim parameterSelSort As New SqlParameter("@SelSort", SqlDbType.NVarChar,

50)

>
> parameterSelSort.Value = SelSort
>
> myCommand.SelectCommand.Parameters.Add(parameterSe lSort)
>
> Dim parameterSelSortDir As New SqlParameter("@SelSortDir",
> SqlDbType.NVarChar, 10)
>
> parameterSelSortDir.Value = SelSortDir
>
> myCommand.SelectCommand.Parameters.Add(parameterSe lSortDir)
>
>
>
>
>
> ' 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
[email]john.saunders@surfcontrol.com[/email]

"Alvin Bruney" <vapordan_spam_me_not@hotmail_no_spamhotmail.com > wrote in
message news:%23NBbzL4VDHA.1180@TK2MSFTNGP11.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" <dave@helixpoint.com> wrote in message
> news:eew7dGqVDHA.3332@tk2msftngp13.phx.gbl...

> > Here is my code:
> >
> > Dim availMach As New ASPNETProduct.machinedb()
> >
> > Dim dstMachList As DataSet
> >
> > dstMachList = availMach.GetAvailMach(theSearchVal, theSearchBy,
> > theMachCode1, theSearchView, SelSort, SelSortDir)
> >
> > availMachList.DataSource = dstMachList
> >
> >
> >
> >
> >
> > Public Function GetAvailMach(ByVal 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(ConfigurationSettings.AppSettings("c onnectionString"))
> >
> > Dim myCommand As New SqlDataAdapter("SelectOpenInventory", myConnection)
> >
> > ' Mark the Command as a SPROC
> >
> > myCommand.SelectCommand.CommandType = CommandType.StoredProcedure
> >
> > ' Add Parameters to SPROC
> >
> > Dim parametertheSearchVal As New SqlParameter("@theSearchVal",
> > SqlDbType.NVarChar, 100)
> >
> > parametertheSearchVal.Value = theSearchVal
> >
> > myCommand.SelectCommand.Parameters.Add(parameterth eSearchVal)
> >
> > Dim parametertheSearchBy As New SqlParameter("@theSearchBy",
> > SqlDbType.NVarChar, 100)
> >
> > parametertheSearchBy.Value = theSearchBy
> >
> > myCommand.SelectCommand.Parameters.Add(parameterth eSearchBy)
> >
> >
> >
> > Dim parameterMACH_CODE1 As New SqlParameter("@MACH_CODE",
> > SqlDbType.NVarChar, 50)
> >
> > parameterMACH_CODE1.Value = MACH_CODE1
> >
> > myCommand.SelectCommand.Parameters.Add(parameterMA CH_CODE1)
> >
> >
> >
> > Dim parametertheSearchView As New SqlParameter("@theSearchView",
> > SqlDbType.NVarChar, 50)
> >
> > parametertheSearchView.Value = theSearchView
> >
> > myCommand.SelectCommand.Parameters.Add(parameterth eSearchView)
> >
> > Dim parameterSelSort As New SqlParameter("@SelSort", SqlDbType.NVarChar,

> 50)

> >
> > parameterSelSort.Value = SelSort
> >
> > myCommand.SelectCommand.Parameters.Add(parameterSe lSort)
> >
> > Dim parameterSelSortDir As New SqlParameter("@SelSortDir",
> > SqlDbType.NVarChar, 10)
> >
> > parameterSelSortDir.Value = SelSortDir
> >
> > myCommand.SelectCommand.Parameters.Add(parameterSe lSortDir)
> >
> >
> >
> >
> >
> > ' 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" <john.saunders@surfcontrol.com> wrote in message
news:eHUbYl4VDHA.484@TK2MSFTNGP09.phx.gbl...

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

fill

> the DataSet?
> --
> John Saunders
> Internet Engineer
> [email]john.saunders@surfcontrol.com[/email]
>
> "Alvin Bruney" <vapordan_spam_me_not@hotmail_no_spamhotmail.com > wrote in
> message news:%23NBbzL4VDHA.1180@TK2MSFTNGP11.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" <dave@helixpoint.com> wrote in message
> > news:eew7dGqVDHA.3332@tk2msftngp13.phx.gbl...

> > > Here is my code:
> > >
> > > Dim availMach As New ASPNETProduct.machinedb()
> > >
> > > Dim dstMachList As DataSet
> > >
> > > dstMachList = availMach.GetAvailMach(theSearchVal, theSearchBy,
> > > theMachCode1, theSearchView, SelSort, SelSortDir)
> > >
> > > availMachList.DataSource = dstMachList
> > >
> > >
> > >
> > >
> > >
> > > Public Function GetAvailMach(ByVal 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(ConfigurationSettings.AppSettings("c onnectionString"))
> > >
> > > Dim myCommand As New SqlDataAdapter("SelectOpenInventory",

myConnection)

> > >
> > > ' Mark the Command as a SPROC
> > >
> > > myCommand.SelectCommand.CommandType = CommandType.StoredProcedure
> > >
> > > ' Add Parameters to SPROC
> > >
> > > Dim parametertheSearchVal As New SqlParameter("@theSearchVal",
> > > SqlDbType.NVarChar, 100)
> > >
> > > parametertheSearchVal.Value = theSearchVal
> > >
> > > myCommand.SelectCommand.Parameters.Add(parameterth eSearchVal)
> > >
> > > Dim parametertheSearchBy As New SqlParameter("@theSearchBy",
> > > SqlDbType.NVarChar, 100)
> > >
> > > parametertheSearchBy.Value = theSearchBy
> > >
> > > myCommand.SelectCommand.Parameters.Add(parameterth eSearchBy)
> > >
> > >
> > >
> > > Dim parameterMACH_CODE1 As New SqlParameter("@MACH_CODE",
> > > SqlDbType.NVarChar, 50)
> > >
> > > parameterMACH_CODE1.Value = MACH_CODE1
> > >
> > > myCommand.SelectCommand.Parameters.Add(parameterMA CH_CODE1)
> > >
> > >
> > >
> > > Dim parametertheSearchView As New SqlParameter("@theSearchView",
> > > SqlDbType.NVarChar, 50)
> > >
> > > parametertheSearchView.Value = theSearchView
> > >
> > > myCommand.SelectCommand.Parameters.Add(parameterth eSearchView)
> > >
> > > Dim parameterSelSort As New SqlParameter("@SelSort",

SqlDbType.NVarChar,

> > 50)

> > >
> > > parameterSelSort.Value = SelSort
> > >
> > > myCommand.SelectCommand.Parameters.Add(parameterSe lSort)
> > >
> > > Dim parameterSelSortDir As New SqlParameter("@SelSortDir",
> > > SqlDbType.NVarChar, 10)
> > >
> > > parameterSelSortDir.Value = SelSortDir
> > >
> > > myCommand.SelectCommand.Parameters.Add(parameterSe lSortDir)
> > >
> > >
> > >
> > >
> > >
> > > ' 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.GetValues();
dt.Rows.Add(dr);
}

Oh, well, one more mystery...
--
John Saunders
Internet Engineer
[email]john.saunders@surfcontrol.com[/email]

"Alvin Bruney" <vapordan_spam_me_not@hotmail_no_spamhotmail.com > wrote in
message news:ueZbU5%23VDHA.1180@TK2MSFTNGP11.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" <john.saunders@surfcontrol.com> wrote in message
> news:eHUbYl4VDHA.484@TK2MSFTNGP09.phx.gbl...

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

> fill

> > the DataSet?
> > --
> > John Saunders
> > Internet Engineer
> > [email]john.saunders@surfcontrol.com[/email]
> >
> > "Alvin Bruney" <vapordan_spam_me_not@hotmail_no_spamhotmail.com > wrote

in

> > message news:%23NBbzL4VDHA.1180@TK2MSFTNGP11.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" <dave@helixpoint.com> wrote in message
> > > news:eew7dGqVDHA.3332@tk2msftngp13.phx.gbl...
> > > > Here is my code:
> > > >
> > > > Dim availMach As New ASPNETProduct.machinedb()
> > > >
> > > > Dim dstMachList As DataSet
> > > >
> > > > dstMachList = availMach.GetAvailMach(theSearchVal, theSearchBy,
> > > > theMachCode1, theSearchView, SelSort, SelSortDir)
> > > >
> > > > availMachList.DataSource = dstMachList
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > Public Function GetAvailMach(ByVal 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(ConfigurationSettings.AppSettings("c onnectionString"))
> > > >
> > > > Dim myCommand As New SqlDataAdapter("SelectOpenInventory",

> myConnection)

> > > >
> > > > ' Mark the Command as a SPROC
> > > >
> > > > myCommand.SelectCommand.CommandType = CommandType.StoredProcedure
> > > >
> > > > ' Add Parameters to SPROC
> > > >
> > > > Dim parametertheSearchVal As New SqlParameter("@theSearchVal",
> > > > SqlDbType.NVarChar, 100)
> > > >
> > > > parametertheSearchVal.Value = theSearchVal
> > > >
> > > > myCommand.SelectCommand.Parameters.Add(parameterth eSearchVal)
> > > >
> > > > Dim parametertheSearchBy As New SqlParameter("@theSearchBy",
> > > > SqlDbType.NVarChar, 100)
> > > >
> > > > parametertheSearchBy.Value = theSearchBy
> > > >
> > > > myCommand.SelectCommand.Parameters.Add(parameterth eSearchBy)
> > > >
> > > >
> > > >
> > > > Dim parameterMACH_CODE1 As New SqlParameter("@MACH_CODE",
> > > > SqlDbType.NVarChar, 50)
> > > >
> > > > parameterMACH_CODE1.Value = MACH_CODE1
> > > >
> > > > myCommand.SelectCommand.Parameters.Add(parameterMA CH_CODE1)
> > > >
> > > >
> > > >
> > > > Dim parametertheSearchView As New SqlParameter("@theSearchView",
> > > > SqlDbType.NVarChar, 50)
> > > >
> > > > parametertheSearchView.Value = theSearchView
> > > >
> > > > myCommand.SelectCommand.Parameters.Add(parameterth eSearchView)
> > > >
> > > > Dim parameterSelSort As New SqlParameter("@SelSort",

> SqlDbType.NVarChar,

> > > 50)
> > > >
> > > > parameterSelSort.Value = SelSort
> > > >
> > > > myCommand.SelectCommand.Parameters.Add(parameterSe lSort)
> > > >
> > > > Dim parameterSelSortDir As New SqlParameter("@SelSortDir",
> > > > SqlDbType.NVarChar, 10)
> > > >
> > > > parameterSelSortDir.Value = SelSortDir
> > > >
> > > > myCommand.SelectCommand.Parameters.Add(parameterSe lSortDir)
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > ' Create and Fill the DataSet
> > > >
> > > > Dim myDataSet As New DataSet
> > > >
> > > > myCommand.Fill(myDataSet)
> > > >
> > > > ' Return the datareader
> > > >
> > > > Return myDataSet
> > > >
> > > > End Function
> > > >
> > > >
> > > > --
> > > >
> > > > dave
> > > >
> > > >
> > >
> > >

> >
> >

>
>