Hi Friends
I am using VB 6.0 SP6, MSDE 2000, I have a table to store subscriber's details, right now the table has only 10,000 records and the application is running very slow while fetching, saving and unloading the records. So i created a unique Index, which upto certain extend improved the speed, but the record count will be increasing day by day, in a span of 1 month it can go upto 20-25 thousand records also, that time it will slow down again, so what all methods and measures should i take to make sure that even there are lacks of records the system shouldnt go slow..
Here is my SQL Statement.
gSql = " Select SubId, SubCode, SubName, SubAdd1," _
& " SubTel1, SubTel2, SubCellNo, SubFaxNo, SubEmail," _
& " SubType, SubOrigin, SubTerritory, SubState, SubCity," _
& " SubPinCode, SubTitle, SubGender, SubAge, BulkSubName from SubscriberMaster order by SubCode asc"
Set gRs = New ADODB.Recordset
gRs.Open gSql, cn, adOpenDynamic, adLockOptimistic, adCmdText
If Not gRs.EOF Then
gRs.MoveLast
FillRecs
Else
'Clear Controls
CtlEnaDis Me, "BT"
CtlEnaDis Me, "BCHK"
CtlEnaDis Me, "BOPTB"
End If
Please guide me with ur valuable opinions...
Regards
Gazal
I am using VB 6.0 SP6, MSDE 2000, I have a table to store subscriber's details, right now the table has only 10,000 records and the application is running very slow while fetching, saving and unloading the records. So i created a unique Index, which upto certain extend improved the speed, but the record count will be increasing day by day, in a span of 1 month it can go upto 20-25 thousand records also, that time it will slow down again, so what all methods and measures should i take to make sure that even there are lacks of records the system shouldnt go slow..
Here is my SQL Statement.
gSql = " Select SubId, SubCode, SubName, SubAdd1," _
& " SubTel1, SubTel2, SubCellNo, SubFaxNo, SubEmail," _
& " SubType, SubOrigin, SubTerritory, SubState, SubCity," _
& " SubPinCode, SubTitle, SubGender, SubAge, BulkSubName from SubscriberMaster order by SubCode asc"
Set gRs = New ADODB.Recordset
gRs.Open gSql, cn, adOpenDynamic, adLockOptimistic, adCmdText
If Not gRs.EOF Then
gRs.MoveLast
FillRecs
Else
'Clear Controls
CtlEnaDis Me, "BT"
CtlEnaDis Me, "BCHK"
CtlEnaDis Me, "BOPTB"
End If
Please guide me with ur valuable opinions...
Regards
Gazal