用VB的代码创建Access数据库.doc

怎样用VB的代码创建Access数据库用 ADOX: 菜单“工程”- 引用 - Microsoft ADO Ext.2.7 for DDL ado Security 建数据库:Private Sub Form_Load() Dim cat As ADOX.Catalog Set cat = New ADOX.Catalog 在当前目录下建立名为newdata的Access数据库 cat.Create ( Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path & newdata.mdb + ; ) MsgBox 数据库已经创建成功！ End Sub 建表: Private Sub Command1_Click() Dim cn As New ADODB.Connection cn.ConnectionString= Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & newdata.mdb;Persist Security Info=False cn.Open cn.Execute CREATE TABLE aaa(学生姓名Text(20),年龄Integer,成绩Double) cn.Close End Sub 删表: Private Sub Command2_Click() Dim cn As New ADODB.Connection cn.ConnectionString= Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & newdata.mdb;Persist Security Info=False cn.Open cn.Execute DROP TABLE aaa cn.Close End Sub/Option Explicit Dim i As Integer Dim j As Integer Private Sub Form_Load() 菜单“工程”- 引用 - Microsoft ActiveX Data Objects 2.7 Library Microsoft ADO Ext.2.7 for DDL ado Security Dim cat As ADOX.Catalog Set cat = New ADOX.Catalog cat.Create ( Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:newdata.mdb + ; ) MsgBox 数据库已经创建成功！ Dim tbl As ADOX.Table Set tbl = New ADOX.Table tbl.ParentCatalog = cat tbl.Name = MyTable 增加一个自动增长的字段 Dim col As ADOX.Column Set col = New ADOX.Column col.ParentCatalog = cat col.Type = ADOX.DataTypeEnum.adInteger / 必须先设置字段类型 col.Name = id col.Properties( Jet OLEDB:Allow Zero Length ).Value = False col.Properties( AutoIncrement ).Value = True tbl.Columns.Append col, ADOX.DataTypeEnum.adInteger, 0 增加一个文本字段 Dim col2 As ADOX.Column Set col2 = New ADOX.Column col2.ParentCatalog = cat col2.Name = Description col2.Properties( Jet OLEDB:Allow Zero Length ).Value = False tbl.Columns.Append col2, ADOX.DataTypeEnum.adVarChar, 25 增加一个货币型字段 Dim col4 As ADOX.Column Set col4 = New ADOX.Column col4.ParentCatalog = cat col4.Type = ADOX.DataTypeEnum.adCurrency col4.Name = xx tbl.Columns.Append col4, ADOX.DataTypeEnum.adCurrency 增加一个OLE字段 Dim col5 As ADOX.Column Set col5 = New ADOX.Column col5.ParentCatalog = cat col5.Type = ADOX.DataTypeEnum.adLongVarBinary col5.Name = OLD_FLD tbl.Columns.Append col5, ADOX.DataTypeEnum.adLongVarBinary 增加一个数值型字段 Dim col3 As ADOX.Column Set col3 = New ADOX.Column col3.ParentCatalog = cat col3.Type = ADOX.DataTypeEnum.adDouble col3.Name = ll tbl.Columns.Append col3, ADOX.DataTypeEnum.adDouble Dim p As ADOX.Property For Each p In col3.Properties Debug.Print p.Name & : & p.Value & : & p.Type & : & p.Attributes Next 设置主键 tbl.Keys.Append PrimaryKey , ADOX.KeyTypeEnum.adKeyPrimary, id , , cat.Tables.Append tbl MsgBox 数据库表： + tbl.Name + 已经创建成功！ Set tbl = Nothing Set cat = Nothing End Sub/本例中我们使用ADOX来创建Access数据库。 Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security (ADOX) 是对 ADO 对象和编程模型的扩展。ADOX 包括用于模式创建和修改的对象，以及安全性。由于它是基于对象实现模式操作，所以用户可以编写对各种数据源都能有效运行的代码，而与它们原始语法中的差异无关。 ADOX 是核心 ADO 对象的扩展库。它显露的其他对象可用于创建、修改和删除模式对象，如表格和过程。它还包括安全对象，可用于维护用户和组，以及授予和撤消对象的权限。 要通过开发工具使用 ADOX，需要建立对 ADOX 类型库的引用。对 ADOX 库的说明为“Microsoft ADO Ext. for DDL and Security.”。ADOX 库文件名为“Msadox.dll”，程序 ID (ProgID) 为“ADOX”。有关建立库引用的详细信息，请参阅开发工具的文档。使用ADOX对象模型中的Catalog对象来创建数据库，创建Access数据库的方式非常简单，使用的字符串和ADODB.Connection对象的连接字符串是一样的。较为简单的示例如下：1、创建数据库声明Catalog对象Dim cat As New ADOX.Catalog设置创建数据库用到的字符串，和ADODB.Connection对象的连接字符串相同Dim Workstring As StringWorkstring = Provider=Microsoft.Jet.OLEDB.4.0; & Data Source= & E:test27.mdb创建数据库cat.Create Workstringcat.ActiveConnection = Workstring声明Table对象Dim tb1 As New ADOX.Tabletb1.Name = 表1cat.Tables.Append tb12、下面的代码将字段添加到表中，我们以一个单精度字段和一个文本字段为例。tb1.Columns.Append 成绩, adSingletb1.Columns(成绩).Properties(default).Value = 0字段默认值为0要说明的是，设置默认值和充许为空相冲突，所以这句可以和上句互换tb1.Columns(成绩).Attributes = adColNullabletb1.Columns.Append 文本, adVarWChar, 50tb1.Columns(文本).Properties(default).Value = 5362以这种方式添加文本列的时候不能指定Attributes属性为adColNullable,希望能有人指点下3、较为完整的添加字段的方法，与第二节没什么区别Dim col1 As New ADOX.ColumnDim col2 As New ADOX.Columncol1.ParentCatalog = catcol1.Name = 成绩col1.Type = adSinglecol1.Properties(default).Value = 0col1.Attributes = adColNullabletb1.Columns.Append col1col2.ParentCatalog = catcol2.Name = 文本col2.Type = adVarWCharcol2.DefinedSize = 50col2.Attributes = adColNullablecol2.Properties(default).Value = 2222tb1.Columns.Append col2如果先添加列，tb1.Columns.Append col1，而后设置其属性，可以不用col1.ParentCatalog = cat这一句4、在数据库已经存在的情况下，可以使用SQL语句创建表和字段，仍以添加一个单精度字段和一个文本字段为例，代码如下：Dim conn As New ADODB.ConnectionDim Workstring As StringWorkstr