有两种方法: 一种使用TTable控件,另一种使用TQuery控件
(代码如下,假设添加一个名为Name的字符串型字段)
1. 使用TTable控件
...
var
NewField: TFieldDef; //声明一个新字段
begin
Table1.Active:=Ture;
NewField:=Table1.FieldDefs.AddFieldDef;
with NewField do
begin
Name:='Name'; //名称
DataType:=ftString; //类型
Size:=8; //大小
Required:=False; //是否必须输入数据
end;
Table1.Active:=False;
Table1.CreateTable;
end;
2. 使用TQuery控件 //主要是设置SQL语句
...
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Alter table 表名 Add Name char(8)');
Prepare;
ExecSQL;
end;
...