如何获取一张ACCESS表的主键字段名？100元惊喜价！(100分)

B

BuddyWang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-14

• #1

如题
谢谢！

 

E

Energy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-15

• #2

我只用dao直接看的，你先从type library.把dao3.5包含进来，
在用
dao:=coDBengine.Create;
dat:=dapenDatabase(DatabaseName,false,false,'');
然后只要看看那些属性你就知道了。

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-15

• #3

it is very easy!

type tmytable=class(ttable)
end;

....

procedure TForm1.Button1Click(Sender: TObject);
begin
caption:=tmytable(Table1).PSGetKeyFields;
end;

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-15

• #4

@_@

 

B

BuddyWang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-22

• #5

menxin

你的方法行不通，编译都无法通过，我用的是4.0。

 

吕

吕建设

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-23

• #6

?

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-23

• #7

想知道.

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-23

• #8

var dbe:_DBEngine;
dbs:database;
ret:Recordset;
i:integer;
begin
dbe:=coDBengine.Create;
dbs:=dbe.opendatabase('C:/My Documents/test.mdb',false,false,'');
ret:=dbs.OpenTable('test',false);
for i:=0 to ret.Indexes.Count-1 do
if ret.indexes.item.primary then //如果该索引的primary为true
caption:=ret.indexes.item.name; //那么该索引就是主键

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-27

• #9

end or continue?

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-20

• #10

接受答案了.