如何用VB建立数据库

1、首先点击打开主菜单栏中的“外接程序”选项。

2、然后在d出来的窗口中点击打开“可视化数据管理器”，出现下图中的界面。

3、然后单击文件中的新建，选择“microsot access”，“version 7.0”，d出保存界面，点击保存后出现如下界面。

4、然后右键单击properties，选择“新建表”，输入表名称，添加字段。

5、然后打开类型，选择字段类型的大小，回车确定。

6、然后点击“生成表”选项。

7、然后双击“1”或者右键单击选择打开。

8、然后输入值后工具栏会变化。

9、然后点击添加就完成了。

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

'(测试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

---