Solved

D5 ADOTable.IndexName problem with MSAccess 2000

Posted on 2004-09-14
19
1,024 Views
Last Modified: 2012-05-05
Delphi 5 Enterprise

I am currently connecting to a MSAccess 2000 table using TADOTable. The table data shows up in my DBGrid, but when I try to set the "IndexName" property of TADOTable, I get an EOLEException with the message "Current provider does not support the necessary interface for Index functionality." In the Object Inspector, all of the Index names show up in the drop-down list for the "IndexName" property. If I try to set the property at design time, I get the same error message.

Any ideas?
0
Comment
Question by:dhawks
  • 8
  • 6
  • 5
19 Comments
 

Author Comment

by:dhawks
Comment Utility
I forgot the connection string I'm using for my ADOConnection


Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Projects\Database\Test.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False
0
 
LVL 6

Expert Comment

by:bpana
Comment Utility
what version of MDAC do you have ?
0
 
LVL 6

Expert Comment

by:bpana
Comment Utility
make sure the TADOTable is closed while changing the index
0
 
LVL 6

Expert Comment

by:bpana
Comment Utility
set the Active property of TADOTable to false
0
 

Author Comment

by:dhawks
Comment Utility
how would I find the version of MDAC?
0
 
LVL 13

Expert Comment

by:BlackTigerX
Comment Utility
0
 
LVL 6

Expert Comment

by:bpana
Comment Utility
did you set the Active property of TADOTable to False?
0
 
LVL 13

Expert Comment

by:BlackTigerX
Comment Utility
as for the problem...
did you set the

ADOConnection.CursorLocation to clUseServer and
ADOTable.TableDirect = True

?
0
 

Author Comment

by:dhawks
Comment Utility
Setting the Active property to false lets me assign IndexName, but it isn't setting IndexFieldNames for whatever reason.

MDAC is version 2.81.1117
0
Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

 

Author Comment

by:dhawks
Comment Utility
If I set the IndexFieldNames directly, it seems to work... why won't it use the FieldNames from the MSAccess Index?
0
 
LVL 13

Expert Comment

by:BlackTigerX
Comment Utility
from the Delphi help:

Use IndexFieldNames as an alternative method of specifying the index to use for a table. In IndexFieldNames specify the name of each column to use as an index for a table. Ordering of column names is significant. Separate names with semicolon. There need not be an index in existence based on the specified columns.
0
 
LVL 13

Expert Comment

by:BlackTigerX
Comment Utility
basically you can specify the IndexFieldNames and Delphi will sort it by that field(s) even if there is not an Index associated with that column, but it will be slow if there's no index
0
 
LVL 6

Expert Comment

by:bpana
Comment Utility
set TableDirect property to True. this way the recordset will be ordered by the fields in the index. No need to use IndexFieldNames.
0
 

Author Comment

by:dhawks
Comment Utility
If I set IndexName, nothing happens with the sorting of the records.

If I set IndexFieldNames, the records are sorted accordingly, but the IndexName property does not change.

I can set IndexFieldNames without setting Table.Active = False, but I must in order to set IndexName.

I still don't understand why the IndexFieldNames property is not being updated accordingly when I set IndexName.
0
 
LVL 6

Accepted Solution

by:
bpana earned 250 total points
Comment Utility
IndexFieldNames has nothing to do with the indexes on the table.

just set TableDirect to True
0
 
LVL 6

Expert Comment

by:bpana
Comment Utility
to obtain the fields which compose the index use something like:
ADOTable1.IndexDefs[1].Fields
0
 

Author Comment

by:dhawks
Comment Utility
Setting TableDirect seems to have solved my problem.

Can you tell me what affect setting this property is going to have? Is there anything I should know that might affect other parts of my program?

Thanks!
0
 
LVL 6

Expert Comment

by:bpana
Comment Utility
there is no negative effect, the setting is by default set to False because not all providers support accessing a table by its name.
0
 
LVL 13

Expert Comment

by:BlackTigerX
Comment Utility
>IndexFieldNames has nothing to do with the indexes on the table.

it has nothing to do with indexes, but it will sort your table by that field(s)
0

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Suggested Solutions

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
This video discusses moving either the default database or any database to a new volume.
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now