Microsoft ADO Ext.2.7 for DDL ado Security'建数据库:Private Sub Form_Load() Di">
Microsoft ADO Ext.2.7 for DDL ado Security'建数据库:Private Sub Form_Load() Di" />
1、怎样用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="
2、+ App.Path & "ewdata.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
3、 cn.Execute "CREATE TABLE [aaa]([学生姓名]Text(20),[年龄]Integer,[成绩]Double)" cn.CloseEnd 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 S
4、ecurity Info=False" cn.Open cn.Execute "DROP TABLE [aaa]" cn.CloseEnd Sub/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////Option ExplicitDim i As Inte
5、gerDim j As IntegerPrivate 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.Catalogcat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:ewdata.m
6、db" + ";")MsgBox "数据库已经创建成功!"Dim tbl As ADOX.TableSet tbl = New ADOX.Tabletbl.ParentCatalog = cattbl.Name = "MyTable"'增加一个自动增长的字段Dim col As ADOX.ColumnSet col = New ADOX.Columncol.ParentCatalog = catcol.Type = ADOX.DataTypeEnum.adInteger ' // 必须先设置字段类型col.Name = "id"
7、col.Properties("Jet OLEDB:Allow Zero Length").Value = Falsecol.Properties("AutoIncrement").Value = Truetbl.Columns.Append col, ADOX.DataTypeEnum.adInteger, 0'增加一个文本字段Dim col2 As ADOX.ColumnSet col2 = New ADOX.Columncol2.ParentCatalog = catcol2.Name = "Description"col
8、2.Properties("Jet OLEDB:Allow Zero Length").Value = Falsetbl.Columns.Append col2, ADOX.DataTypeEnum.adVarChar, 25'增加一个货币型字段Dim col4