I asked a question a couple of days ago and recv'd a quick and complete response.
Now the problem is with old DAO and vb6 I was able to load over 4k records in 1-3 secs. the answer I recv'd works perfect the only problem is that it takes 2-5 min to load the data.
I am faily new to ado.net and don't understand why I'm not able to create complex data tables like I did with DAO. somebody suggested we buy ComponentOne's ExpressData and DataComponents but I'm not to sure if my company will go for it.
the code I'm trying to speed up is:
Dim strID As String
Dim strLname As String
Dim StrFname As String
Dim rcdcnt As Integer
Dim ConStr As String = "Provider=Microsoft.Jet.OL
ta Source=narvis.mdb;User Id=admin;Password=;"
Dim OleDbCon As New OleDbConnection(ConStr)
Dim SqlStr As String
SqlStr = "Select * from tblagents"
Dim OleDA As New OleDbDataAdapter(SqlStr, OleDbCon)
Dim DS As New DataSet
Me.ctSchedule0.DateStart = 38215
nt ID", 50)
Me.ctSchedule0.TimeType = 3
Dim DR As DataRow
For Each DR In DS.Tables(0).Rows
strID = RTrim(DR.Item("agent_id"))
strLname = RTrim(DR.Item("l_name"))
StrFname = RTrim(DR.Item("f_name"))
nIndex = Me.ctSchedule0.AddItem(str
ID & ";" & strLname & ";" & StrFname)
SqlStr = "select TimeStart,TimeEnd,Date from tblTransactions where agent_id = " & strID
Dim OleDbCmd As New OleDbCommand(SqlStr, OleDbCon)
Dim OleDtRdr As OleDbDataReader = OleDbCmd.ExecuteReader()
nbar = Me.ctSchedule0.AddTimeBar(
nIndex, OleDtRdr.GetInt32(0), OleDtRdr.GetInt32(1), OleDtRdr.GetValue(2), OleDtRdr.GetValue(2))