Y
yxuehui
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟在编时,想建立一个Table,为什么不行。以下是代码。
其中的tbUser我已经定义,databaseName也付值了。
tbUser.TableName :='testdb';
if tbUser.Exists then
tbUser.DeleteTable ;
with tbUser.FieldDefsdo
begin
Clear;
Add('No', ftString, 3, false);
Add('Number', ftString, 7, False);
add('Sure',ftSmallint,3,true);
Add('Score',ftinteger,0,true);
Add('Answer',ftString,5,false);
Add('StuAnswer',ftString,5,false);
Add('Memo',ftString,30,false);
end;
tbUser.CreateTable ;
if tbUser.active=false then
tbUser.Active :=true;
其中的tbUser我已经定义,databaseName也付值了。
tbUser.TableName :='testdb';
if tbUser.Exists then
tbUser.DeleteTable ;
with tbUser.FieldDefsdo
begin
Clear;
Add('No', ftString, 3, false);
Add('Number', ftString, 7, False);
add('Sure',ftSmallint,3,true);
Add('Score',ftinteger,0,true);
Add('Answer',ftString,5,false);
Add('StuAnswer',ftString,5,false);
Add('Memo',ftString,30,false);
end;
tbUser.CreateTable ;
if tbUser.active=false then
tbUser.Active :=true;