用VB的代码创建Access数据库VIP免费

怎样用VB的代码创建Access数据库用ADOX:'菜单“工程”-->"引用"-->MicrosoftADOExt.2.7forDDLadoSecurity'建数据库:PrivateSubForm_Load()DimcatAsADOX.CatalogSetcat=NewADOX.Catalog'在当前目录下建立名为newdata的Access数据库cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+App.Path&"\newdata.mdb"+";")MsgBox"数据库已经创建成功！"EndSub'建表:PrivateSubCommand1_Click()DimcnAsNewADODB.Connectioncn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"newdata.mdb;PersistSecurityInfo=False"cn.Opencn.Execute"CREATETABLE[aaa]([学生姓名]Text(20),[年龄]Integer,[成绩]Double)"cn.CloseEndSub'删表:PrivateSubCommand2_Click()DimcnAsNewADODB.Connectioncn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=="&App.Path&"newdata.mdb;PersistSecurityInfo=False"cn.Opencn.Execute"DROPTABLE[aaa]"cn.CloseEndSub/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////OptionExplicitDimiAsIntegerDimjAsIntegerPrivateSubForm_Load()'菜单“工程”-->"引用"-->"MicrosoftActiveXDataObjects2.7Library"'MicrosoftADOExt.2.7forDDLadoSecurityDimcatAsADOX.CatalogSetcat=NewADOX.Catalogcat.Create("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\newdata.mdb"+";")MsgBox"数据库已经创建成功！"DimtblAsADOX.TableSettbl=NewADOX.Tabletbl.ParentCatalog=cattbl.Name="MyTable"'增加一个自动增长的字段DimcolAsADOX.ColumnSetcol=NewADOX.Columncol.ParentCatalog=catcol.Type=ADOX.DataTypeEnum.adInteger'//必须先设置字段类型col.Name="id"col.Properties("JetOLEDB:AllowZeroLength").Value=Falsecol.Properties("AutoIncrement").Value=Truetbl.Columns.Appendcol,ADOX.DataTypeEnum.adInteger,0'增加一个文本字段Dimcol2AsADOX.ColumnSetcol2=NewADOX.Columncol2.ParentCatalog=catcol2.Name="Description"col2.Properties("JetOLEDB:AllowZeroLength").Value=Falsetbl.Columns.Appendcol2,ADOX.DataTypeEnum.adVarChar,25'增加一个货币型字段Dimcol4AsADOX.ColumnSetcol4=NewADOX.Columncol4.ParentCatalog=catcol4.Type=ADOX.DataTypeEnum.adCurrencycol4.Name="xx"tbl.Columns.Appendcol4,ADOX.DataTypeEnum.adCurrency'增加一个OLE字段Dimcol5AsADOX.ColumnSetcol5=NewADOX.Columncol5.ParentCatalog=catcol5.Type=ADOX.DataTypeEnum.adLongVarBinarycol5.Name="OLD_FLD"tbl.Columns.Appendcol5,ADOX.DataTypeEnum.adLongVarBinary'增加一个数值型字段Dimcol3AsADOX.ColumnSetcol3=NewADOX.Columncol3.ParentCatalog=catcol3.Type=ADOX.DataTypeEnum.adDoublecol3.Name="ll"tbl.Columns.Appendcol3,ADOX.DataTypeEnum.adDoubleDimpAsADOX.PropertyForEachpIncol3.PropertiesDebug.Printp.Name&":"&p.Value&":"&p.Type&":"&p.AttributesNext'设置主键tbl.Keys.Append"PrimaryKey",ADOX.KeyTypeEnum.adKeyPrimary,"id","",""cat.Tables.AppendtblMsgBox"数据库表："+tbl.Name+"已经创建成功！"Settbl=NothingSetcat=NothingEndSub/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////本例中我们使用ADOX来创建Access数据库。Microsoft®ActiveX®DataObjectsExtensionsforDataDefinitionLanguageandSecurity(ADOX)是对ADO对象和编程模型的扩展。ADOX包括用于模式创建和修改的对象，以及安全性。由于它是基于对象实现模式操作，所以用户可以编写对各种数据源都能有效运行的代码，而与它们原始语法中的差异无关。ADOX是核心ADO对象的扩展库。它显露的其他对象可用于创建、修改和删除模式对象，如表格和过程。它还包括安全对象，可用于维护用户和组，以及授予和撤消对象...