如何向一个表里添加一个字段？？？

[flc]

我用的是ACCESS数据库，名为info.mdb其中有一个表为：type。我想动态的添加一个字段到这个type表里，如何实现？？
谢谢！！
在线等待……
十万火急……

[victorycyz]

cn.execute "alter table tablename add column fieldname fieldtype"

[flc]

你能不能再详细的写一下代码。
谢谢 ！

[snail2011]

ALTER TABLE 职员表格
ADD COLUMN 薪水 CURRENCY money(8)；

[SoHo_Andy]

此示例在员工表中增加 Currency 数据类型的一个工资字段。

Sub AlterTableX1()

Dim dbs As Database

'在您的计算机中修改此行使其正确指到 Northwind
'的路径。
Set dbs = OpenDatabase("Northwind.mdb")

'添加工资字段至员工表中，
'并且设置为 Currency 数据类型。
dbs.Execute "ALTER TABLE Employees " _
& "ADD COLUMN Salary CURRENCY;"

dbs.Close

End Sub

此示例从员工表中删除工资字段。

Sub AlterTableX2()

Dim dbs As Database

'在您的计算机中修改此行使其正确指到 Northwind
'的路径。
Set dbs = OpenDatabase("Northwind.mdb")

'从员工表中删除工资字段。
dbs.Execute "ALTER TABLE Employees " _
& "DROP COLUMN Salary;"

dbs.Close

End Sub

[franklyn119]

我是初学者，不知道对不对！！
上面cn为数据库连接,""里面的语句可以到MS SQL 帮助中查-------

更改表以添加新列
ALTER TABLE TYPE 想要加的字段 类型（例如：VARCHAR(20)） NULL

[franklyn119]

ALTER TABLE TYPE ADD 想要加的字段 类型（例如：VARCHAR(20)） NULL
差一点误人子弟！！
楼上的说的很详细了。

[chao778899]

对，加个COLUMN

[yoki]

'引用Microsoft Activex Data Object2.x Library
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\info.mdb "
cn.Execute "alter table [type] add column fieldname varchar(20)"
cn.Close
Set cn = Nothing

[flc]

如何设置该字段为：允许为空

[victorycyz]

默认的就是允许为空的。除非加了关键字：not null

[mmcgzs]

conn.execute "alter table youtable add column fieldname varchar(20) not null"

[flc]

谢谢各位的关注

[fleshboy]

Alter Table YourTableName Add Column YourNewColumnName YourDataType NULL

[taosihai1only]

cn.execute "alter table type add column address varchar(40)"

[maculasoft]

alter table tablename add column fieldname fieldtype