送分(100分)

1

1235

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-03

• #1

我用tbatchmove复制PARADOX类型的索引表，可是复制后的表没有索引字段？请用代码说明。

 

房

房客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-04

• #2

自己建一个吧..

 

C

cat.yy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-04

• #3

歪猫到此一游！

 

C

cat.yy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-04

• #4

--------------------------
歪猫到此一游！

 

K

kingzi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-04

• #5

非也,非也

 

8

8712

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-04

• #6

我有段代码， 为什么不行？
var
x:integer;
begin
batchmove.execute;
source.open;
target.exclusive:=true;
target.open;
source.indexdefs.update;
for x:=0 to source.indexdefs.count-1 do
target.addindex(source.indexdefs[x].name,source.indexdef[x].fields,
source.indexdefs[x].option);
source.close;
target.close;
end;
请各位大虾指导！

 

Y

yangkee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-04

• #7

用bde api函数dbicopytable
可以复制索引和blob。
一百分拿来！
procedure quickcopytable(T:Ttable;DesTblName:string;Overwrite:Boolean);
var
DBTypeBINAME;
wasopen:Boolean;
NumCopied:word;
begin
wasopenL=T.Active;
If not WasOpen then T.open;
Check(DbiGetProp(hDBIObj(T.Handle),drvDRIVERTYPE,@DBTYPE,SizeOf(DBINAME),NumCopied));
Check(DbiCopyTale(T.DBHandle,Overwrite,PChar(T.TableName),DBType,PChar(DestTblName)));
T.Acitve:=WasOpen;
end;

 

8

8712

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-05

• #8

这百分给yangkee

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #9

接受答案了.