DELPHI sql添加字段的疑问 ?

你多定义一个字符串类型sqltext，然后定义sqltext := Format('alter table t_user add ''%s'' varchar(12)', st)

把sql.add('alter table t_user add st varchar(12)')//(变量)添加字段

改为sql.add(sqltext)

这样应该就可以了吧！

使用ADO，首先用ADOConnection对象建立连接，然后使用ADOQuery对象对数据库进行 *** 作。

ADOQuery对象 *** 作：

查询：先使用close；再设置SQL.text为SQL查询语句内容；最后使用OPEN方法打开

添加：Append或Insert；FieldByName（'字段名'）.Value

:=

字段内容；Post；

修改：Edit；FieldByName（'字段名'）.Value

:=

字段内容；Post；

删除：定位到指定记录（使用循环）；Delete；

我试过单个语句执行是可以增加的。

sourceQuery.Close

sourceQuery.SQL.Text

:=

'Alter

table

"D:\2009\work\paradox\System\Test.DB"

add

Audi

varchar(50)'

sourceQuery.ExecSQL

如果要增加两个，可以尝试分两次增加。

---