用sql+Ado设置access的字段的默认值

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);

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 > 0) and (FieldByName('sub_tids').Size < 255) 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;

http://www.gxlcms.com/article/990.htm

http://m.blog.csdn.net/blog/xijupony/5741707

[原]Access里的Alter Table
2010-7-17阅读1925 评论0

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

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

2. "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的好帮助文档，值得推荐。

http://linux.chinaunix.net/techdoc/database/2005/12/14/925763.shtml

http://www.cnblogs.com/luckboy/archive/2009/11/21/1607564.html