如何用VB代码向数据库中添加数据表

'以下代码可以向当前数据库添加数据表

'(测试OK,添加"Table1"数据表，包含4个字段)：

Set

NewTable

=

CurrentDb.CreateTableDef("Table1")

With

NewTable

.Fields.Append

.CreateField("字段1",

dbText)

.Fields.Append

.CreateField("字段2",

dbText)

.Fields.Append

.CreateField("字段3",

dbText)

.Fields.Append

.CreateField("字段4",

dbText)

End

With

CurrentDb.TableDefs.Append

NewTable

材料/工具：电脑、VB 6.0软件

1、首先，我们需要点击文件菜单栏按钮。

2、然后，我们点击生成EXE按钮。

3、接下来，我们点击保存路径。

4、然后，我们输入我们想要保存的文件名。

5、最后，我们点击确定按钮。

6、然后，我们便可以看到，在桌面生成了Excel表格了。

---