用VB的代码创建Access数据库

怎样用VB的代码创建Access数据库
用ADOX:
'菜单“工程”--> "引用"--> Microsoft ADO for DDL ado Security
' 建数据库:
Private Sub Form_Load()
Dim cat As
Set cat = New
'在当前目录下建立名为newdata的Access数据库
( "Provider= Source= " + & "\ " + "; ")
MsgBox "数据库已经创建成功！"
End Sub
' 建表:
Private Sub Command1_Click()
Dim cn As New
= "Provider= Source= " & & ";Persist Security Info=False "
"CREATE TABLE [aaa]([学生姓名]Text(20),[年龄]Integer,[成绩]Double) "
End Sub
'删表:
Private Sub Command2_Click()
Dim cn As New
= "Provider= Source== " & & ";Persist Security Info=False "
"DROP TABLE [aaa] "
End Sub
alue = False
( "AutoIncrement ").Value = True
col, 0
'增加一个文本字段
Dim col2 As
Set col2 = New
= cat
= "Description "
( "Jet OLEDB:Allow Zero Length ").Value = False
col2, 25
'增加一个货币型字段
Dim col4 As
Set col4 = New
= cat
=
= "xx "
col4,
'增加一个OLE字段
Dim col5 As
Set col5 = New
= cat
=
= "OLD_FLD "
col5,
'增加一个数值型字段
Dim col3 As
Set col3 = New
= cat
=
= "ll "
col3,
Dim p As
For Each p In
& ": " & & ": " & & ": " &
Next
'设置主键
"PrimaryKey ", "id ", " ", " "
tbl
MsgBox "数据库表：" + + "已经创建成功！"
Set tbl = Nothing
Set cat = Nothing
End Sub
for DDL and Security.”。

ADOX 库文件名为“”，程序ID (ProgID) 为“ADOX”。

有关建立库引用的详细信息，请参阅开发工具的文档。

使用ADOX对象模型中的Catalog对象来创建数据库，创建Access数据库的方式非常简单，使用的字符串和对象的连接字符串是一样的。

较为简单的示例如下：
1、创建数据库
'声明Catalog对象
Dim cat As New
'设置创建数据库用到的字符串，和对象的连接字符串相同
Dim Workstring As String
Workstring = "Provider=" & "Data Source=" & "E:\"
'创建数据库
Workstring
= Workstring
'声明Table对象
Dim tb1 As New
= "表1"
tb1
2、下面的代码将字段添加到表中，我们以一个单精度字段和一个文本字段为例。

"成绩", adSingle
("成绩").Properties("default").Value = 0 '字段默认值为0
'要说明的是，设置默认值和充许为空相冲突，所以这句可以和上句互换
'("成绩").Attributes = adColNullable
"文本", adVarWChar, 50
("文本").Properties("default").Value = "5362"
'以这种方式添加文本列的时候不能指定Attributes属性为adColNullable,希望能有人指点下
3、较为完整的添加字段的方法，与第二节没什么区别
Dim col1 As New
Dim col2 As New
= cat
= "成绩"
= adSingle
("default").Value = 0
' = adColNullable
col1
= cat
= "文本"
= adVarWChar
= 50
= adColNullable
'("default").Value = "2222"
col2
'如果先添加列，col1，而后设置其属性，可以不用= cat这一句
4、在数据库已经存在的情况下，可以使用SQL语句创建表和字段，仍以添加一个单精度字段和一个文本字段为例，代码如下：
Dim conn As New
Dim Workstring As String
Workstring = "Provider=" & "Data Source=" & "E:\"
Workstring
strsql = "CREATE TABLE test9(编号single default 0,姓名text (50) not null default XXXX)" strsql
Set conn = Nothing
相比较而言，第4段代码中添加表和字段的方法较为简练。