请教（Up 有分）

[calling]

procedure TForm1.Button5Click(Sender: TObject);
var s:Tfieldtype ;
i:integer;
j:string;
recname:string;
k:string;
begin

。。。。
s:=adoquery1.fieldbyname('test').DataType ;


i:= adoquery1.FieldByName('test').Size ;
j:= inttostr(adoquery1.FieldByName('test').Size);
recname:= 'test';
Adoquery2.Close ;
Adoquery2.SQL.Clear ;
Adoquery2.SQL.Add('ALTER TABLE test add '+recname+' ????('+j+')') ;
adoquery2.ExecSQL ;

end;

上面代码是根据某个表的字段，在另外一个表中建立一个相同的字段，
请问类型？？？怎样写，
或者有其他方法？

[calling]

:)

[charles2118]

s:=adoquery1.fieldbyname('test').DataType
改成s:=adoquery1.fieldbyname('test').astring;
？？？变成s就行了

[calling]

楼上的不对

[hiflower]

var
FieldType:string;

s:=adoquery1.fieldbyname('test').DataType ;
case s of
ftstring: FieldType:='VarChar'; //看你是什么数据库了，不同的数据库不一样的
ftFloat: FieldType:='Float';
....
end;

[dhyuser10]

gz

[Wang_xiaoni]

hiflower(花) 正确，我前几天才走过的歧路

[zxp2005]

我同意 hiflower(花)。
最好是写成函数给一个类型，根据不同类型的数据库，返回不同的类型。

[kuan]

就是这种方法了，不用再找人UP了

[calling]

hiflower：

我用的是数ACCSEE据库
我比较愚蠢，
TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,
ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob,
ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd);
分别代表什么？（'VarChar'...）

[shockjoy]

upup

[calling]

up

[chenzf]

gz

[hiflower]

具体的对应，你查一下 ACCESS 数据库的数据类型标识符
不需要一一对应的
比如 ftInteger、ftWord 都对应 ACCESS 的整型就行了