用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); //不能用 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.jb51.net/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

你可能感兴趣的:(Access)