vb 增加access数据字段

用SQL语句给表增加字段
ALTER TABLE 表名 ADD 列名 VARCHAR(20) NULL
注意只能添加允许为空的字段，添加不为空的会出错

增加默认值为null，属性为varchar,长度为20的字段
ALTER TABLE 表名 ADD 列名 VARCHAR(20) default NULL

删除字段
ALTER TABLE table_NAME DROP COLUMN column_NAME

1. Vb6处理数据库事物最常用的DAO和ADO，ADO又包括ADODB和ADODC,这里用ADODC控件来完成。

2. 在“工程”菜单里选择“部件”，添加Microsoft ADO Data Control 6.0 (SP6)

3. 在“工具箱”把adodc控件添加到窗体，再添加一个commandbutton到窗体。

4. 程序代码如下：

Private Sub Command1_Click()

  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\Documents\db2.mdb"

  Adodc1.RecordSource = "select * from tb1 where 1<>1"

  Adodc1.Refresh

  Adodc1.Recordset.ActiveConnection.Execute "ALTER TABLE tb1 ADD eee text(30)"'为表tb1添加文本型字段，字段名eee

  MsgBox "OK"

End Sub

呵呵，前两天才回答过类似的问题，但愿我的答案能帮到您。

......

注：如果只是对已有的Access数据库中的表添加字段，可忽略创建部分。

这100分不好挣。