用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:All