procedure TFormLOrder.ModifyDB;

var

  F: Integer;

begin

  with TADOQuery.Create(nil) do

  try

//    ConnectionString := GetAdoAccConStr(SoftPath + SendDataDir +LogisOrderDB);

    Connection := ADOCon;

    SQL.Add('Select * from ' + tblogistics_orders); //不能用 Select seller_flag from ，否则会报 参数 seller_flag 没有默认值

    Open;

    if FieldList.Find('seller_flag') = nil then //不能用 FieldByName,因为参数必须是存在的字段，否则会产生异常

    begin

      Close;

      SQL.Clear;

      SQL.Add('ALTER TABLE ' + tblogistics_orders);

      SQL.Add('ADD COLUMN seller_flag INTEGER DEFAULT 0');

//      ADOCon.Execute(sql.Text, F); //这个也可以的，并 不是 必须用这个

      ExecSQL;

    end;

    //

    Close;

    sql.Clear;

    sql.Add('Select sub_tids from ' + tblogistics_orders);

    Open;

    if (FieldCount > ) and (FieldByName('sub_tids').Size < ) then

    begin

      Close;

      SQL.Clear;

      sql.Add('ALTER TABLE ' + tblogistics_orders);

      SQL.Add('ALTER COLUMN sub_tids TEXT(255)'); //换行的话，前面不用加 空格

      ExecSQL;

//      if RowsAffected > 0 then

//       ShowMessage('');

    end;

  finally

    Free

  end;

end;

[原]Access里的Alter Table

--阅读1925 评论0

ASP连接ACCESS数据库通常有两种方法

. "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=[数据库地址]"

. "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[数据库地址]"

第一种连接方式使用的是“ANSI SQL”，第二种为Microsoft Jet 数据库引擎。而Microsoft Jet 数据库引擎限制较少，例如，它允许在表达式中进行分组和排序，且提供了更强有力的表达式。诸如：CREATE TABLE、ALTER TABLE的在MS SQLSERVER数据库经常用到的更新数据表的SQL语句。

因此，推荐使用第二种数据连接方式。

以下是今天使用ALTER TABLE的一些心得。

语法：ALTER TABLE 表 ADD COLUMN 字段类型 [(字长)] [NOT NULL] [DEFAULT (VALUES)] [CONSTRAINT 索引] |

    ALTER COLUMN 字段类型 [(字长)] |

    CONSTRAINT 多重字段索引 } |

    DROP DROP{COLUMN 字段 I CONSTRAINT 索引名 } }

上面的语法资料出自《Microsoft Jet SQL 参考》，但其中并没有[DEFAULT (VALUES)]这一参数。经实验，DEFAULT设置默认值的参数完全是有效的。

但需要注意的是，NOT NULL|NULL 不区分大小写。DEFAULT则区分，小写的"default"不是Jet SQL的关键字，并不起效。

附：《Microsoft Jet SQL 参考》，这是开发ACCESS的好帮助文档，值得推荐。