Speed in VB 2005

[Stephen Plotnick]

I upgraded from VB 2003 to VB 2005.

I have a 4000 record table in Access that I'm using oleDB to do a data
adapter fill to a Data Grid. In VB.2003 it takes 2-3 seconds to load the
data grid in vb 2005 it takes aroudn 20 seconds. IS there something that
could be causing this problem?

[Cor Ligthert [MVP]]

Stephen,

I don't know if the method with the datareader will help you.

http://msdn2.microsoft.com/en-us/lib...able.load.aspx

I did not test that.

Cor

"Stephen Plotnick" <sp*******@grou pcbf.comschreef in bericht
news:X8******** *************** *******@giganew s.com...

Cor,

Thanks for the quick program and test. I'll need to go back to using
vb.NET for now until this can get resolved; what are the procedures for
finding out when this gets fixed?

Steve
"Cor Ligthert [MVP]" <no************ @planet.nlwrote in message
news:O5******** ******@TK2MSFTN GP06.phx.gbl...

>Stephen,

I don't know why it is,

I made this Test program
\\\
'Set in advance a reference to COM adox ext 2.x for dll and security

Public Class Main
Public Shared Sub Main()
'cleanup old databases
Dim catNewDB As New ADOX.Catalog
Dim fi As New IO.FileInfo("c: \db1.mdb")
If fi.Exists Then
If MessageBox.Show ("Delete?", "Existing File db1.mdb", _
MessageBoxButto ns.YesNo) = DialogResult.Ye s Then
fi.Delete()
Else
Exit Sub
End If
End If
catNewDB.Create ("Provider=Micr osoft.Jet.OLEDB .4.0;" & "Data
Source=C:\db1. mdb")

Dim conn As New
OleDb.OleDbCon nection("Provid er=Microsoft.Je t.OLEDB.4.0;" & _
" Data Source=C:\db1.m db;User Id=admin;Passwo rd=;")
Dim cmd As New OleDb.OleDbComm and("CREATE TABLE tester ( " & _
"Id int ," & _
"Whatever NVarchar(50)," & _
"CONSTRAINT [pk_Id] PRIMARY KEY (Id)) ", conn)
conn.Open()
cmd.ExecuteNonQ uery()
conn.Close()
Dim ds As New DataSet
Dim da As New OleDb.OleDbData Adapter("Select * from tester", conn)
da.Fill(ds)
For i As Integer = 0 To 40000
ds.Tables(0).Lo adDataRow(New Object() {i, i.ToString}, False)
Next
Dim cmb As New OleDb.OleDbComm andBuilder(da)
da.Update(ds)
Dim ds2 As New DataSet
Dim start As Integer = Environment.Tic kCount
da.Fill(ds2)
MessageBox.Show ((Environment.T ickCount - start).ToString )
End Sub
End Class
///

The result is that the Fill part is about 7 times slower in VB2005 than
in VB2003

I will put this problem as well in another place.

It does not help you but you know that I had the same result.

Cor
"Stephen Plotnick" <sp*******@grou pcbf.comschreef in bericht
news:rJ******* *************** ********@gigane ws.com...

>>All I did was install the VB 2005 and copy the source ccode from the
VB.NET (2003)

Private Sub PopulateStoreGr id()

Dim conn As New
System.Data.O leDb.OleDbConne ction("Provider =Microsoft.Jet. OLEDB.4.0;Data
source=C:\BMA ctivityReportin g.mdb;Persist Security Info=False")

Dim sSQL As String

If Mid(UserNoLink, 1, 1) = "0" Or Mid(UserNoLink, 1, 1) = "9" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE"

End If

If Mid(UserNoLink, 1, 1) = "1" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE BDRNo LIKE
'" & Mid(UserNoLink, 1, 4) & "'"

End If

If Mid(UserNoLink, 1, 1) = "2" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE RDSNo LIKE
'" & Mid(UserNoLink, 1, 4) & "'"

End If

If Mid(UserNoLink, 1, 1) = "3" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE MSNo LIKE
'" & Mid(UserNoLink, 1, 4) & "'"

End If

If Mid(UserNoLink, 1, 1) = "4" Then

sSQL = "select BM_NUMBER, STORE_NUMBER, STORE, SHIP_ADDRESS1 as ADDRESS,
SHIP_CITY as CITY, SHIP_ST as STATE from BENMOORETABLE WHERE SDSNo LIKE
'" & Mid(UserNoLink, 1, 4) & "'"

End If

Dim sSQL2 As String = "select * from BENMOORETABLE"

conn.Open()

Dim da As New System.Data.Ole Db.OleDbDataAda pter(sSQL, conn)

Dim da2 As New System.Data.Ole Db.OleDbDataAda pter(sSQL2, conn)

Try

da.Fill(myD S, "BENMOOR1")

iCount = myDS.Tables("BE NMOOR1").Rows.C ount

da2.Fill(myDS , "BENMOOR2")

myDV = myDS.Tables("BE NMOOR2").Defaul tView

DataGrid1.Dat aSource = myDS

DataGrid1.Dat aMember = "BENMOOR1"

Dim irow As Integer

Dim icol As Integer

irow = 0

DataGrid1.Sel ect(irow)

Dim sStore As String = CType(DataGrid1 .Item(irow, 1), String)

myDV.Sort = "STORE_NUMB ER"

Dim rowIndex As Integer = myDV.Find(sStor e)

Me.LegalName1 .Text = myDV(rowIndex)( "LEGAL_NAME_LIN E1").ToString ()

Me.LegalName2 .Text = myDV(rowIndex)( "LEGAL_NAME_LIN E2").ToString ()

Me.StoreOwner .Text = myDV(rowIndex)( "STORE_OWNER"). ToString()

Me.PhoneNumbe r.Text = myDV(rowIndex)( "PHONE_NUMBER") .ToString()

Me.LegalName3 .Text = myDV(rowIndex)( "LEGAL_NAME_LIN E3").ToString ()

Me.LegalName4 .Text = myDV(rowIndex)( "LEGAL_NAME_LIN E4").ToString ()

Me.EMailAddre ss.Text = myDV(rowIndex)( "E-MAIL_ADDRESS"). ToString()

Fil_Name()

'UpdateScreen (irow)

Catch ex As Exception

MessageBox.Sh ow("Failed to connect to data source")

Finally

conn.Close( )

End Try

End Sub

Steve

"Cor Ligthert [MVP]" <no************ @planet.nlwrote in message
news:ub****** ********@TK2MSF TNGP02.phx.gbl. ..
Stephen,

Sorry for my misunderstandin g.
Are you using exactly the same code, because this is the first time I
read about your problem.

Cor

"Cor Ligthert [MVP]" <no************ @planet.nlschre ef in bericht
news:O9***** *********@TK2MS FTNGP02.phx.gbl ...
Stephen,
>
>>IS there something that could be causing this problem?
>
Yes a lot, but in most cases (not all) VBNet is faster.
>
Can you show a piece of your code that does the fill of the datagrid?
(only VBNet although I am curious how you use that datagrid in VB6)
>
>
Cor
>
"Stephen Plotnick" <sp*******@grou pcbf.comschreef in bericht
news:Nd**** *************** ***********@gig anews.com...
>>I upgraded from VB 2003 to VB 2005.
>>
>I have a 4000 record table in Access that I'm using oleDB to do a
>data adapter fill to a Data Grid. In VB.2003 it takes 2-3 seconds to
>load the data grid in vb 2005 it takes aroudn 20 seconds. IS there
>somethin g that could be causing this problem?
>>
>
>

[Jeff]

"Ken Halter" <Ken_Halter@Use _Sparingly_Hotm ail.comwrote in message news:OO******** *****@TK2MSFTNG P06.phx.gbl...

"GhostInAK" <gh*******@gmai l.comwrote in message

fwiw, I'd like to see any dotNet code run faster than a fully compiled and
optimized VB6 version of that same code. Heck... I'd like to see a dotNet
IDE that starts up in less time than it takes to make a cup of coffee. Oh
well... Quad core CPUs are coming out soon. Maybe then we'll see 386 era
performance from a dotNet app.

--
Ken Halter -

I'm having a hard time trying to figure out if you like .net or not Ken...


--
Posted via a free Usenet account from http://www.teranews.com