怎么在access数据库里面添加一个字段（用程序实现）

Question

我才用的access数据库，用的ado进行连接，现在要在一个已知的表中添加一个字段，怎么用delphi的程序实现？
比如说 表的名字为 A，添加字段为flag，怎么做啊？有sql语句实现吗？或者delphi实现

Answer 1

procedure Tsarch.Button1Click(Sender: TObject);
begin
 try
  with query1 do
 begin
  close;
  sql.clear;
  sql.add('create table A');//添加一个表A
  sql.add('(flag varcgar(20) not null,');//添加一个字段flag
  execqsl; //执行sql
 end;
  application.Messagebox('数据添加成功');
ecept
  application.Messagebox('数据添加失败');
end;

Answer 2

adoquery.sql.add('ALTER TABLE 已知表 ADD COLUMN 新字段 TEXT(30)');
adoquery.execqsl;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
 Try
  With query1 do
 begin
  close;
  sql.clear;
  sql.add('create table A');//添加一个表A
  sql.add('(flag varchar(20) not null,');//添加一个字段flag
  execqsl; //执行sql
 end;
  Application.Messagebox('数据添加成功');
Ecept
  Application.Messagebox('数据添加失败');
end;

Answer 4

刚刚有误：procedure TForm1.Button1Click(Sender: TObject);
begin
 Try
  With query1 do
 begin
  close;
  sql.clear;
  sql.add('create table A');//添加一个表A
  sql.add('(flag varchar(20) not null,');//添加一个字段flag
  execqsl; //执行sql
 end;
  Application.Messagebox('数据添加成功');
Except
  Application.Messagebox('数据添加失败');
end;