在VB中动态创建数据库

2008-02-23 08:04:44来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

在VB中动态创建数据库新建工程.添加控件对应写上代码 以下为引用的内容:PrivateSubCommand2_Click()DimmyDBAsDAO.Database'SetmyDB=DAO.OpenDatabase("d:\mydb3.mdb")SetmyDB=DAO.OpenDatabase(App.Path "/mydb.mdb")DimdAsStringd="delete*fromNewTable1"myDB.ExecutedMsgBox"成功删除全部记录" 站.长.站 EndSubPrivateSubCommand3_Click()DimmyDBAsDAO.Database'SetmyDB=DAO.OpenDatabase("d:\mydb3.mdb")SetmyDB=DAO.OpenDatabase(App.Path "/mydb.mdb")DimeAsStringe="dropTABLENewTable1"myDB.ExecuteeEndSubPrivateSubForm_Load()DimmyDBAsDAO.Database'SetmyDB=DAO.Workspaces(0).CreateDatabase("d:\mydb3.mdb",dbLangGeneral)SetmyDB=DAO.Workspaces(0).CreateDatabase(App.Path "/mydb.mdb",dbLangGeneral)Dimstr_SQLAsString [中国站长站] str_SQL="CreateTableNewTable1(Field1Text(10),Field2Short)"myDB.Executestr_SQLDimaAsStringa="InsertINTONewTable1VALUES('litao','21')"myDB.Executeastr_SQL="CreateTableNewTable2(Field1Text(10),Field2Short)"myDB.Executestr_SQLmyDB.CloseMsgBox"成功创建mydb3.mdb数据库外加一条记录litao21"EndSubPrivateSubCommand1_Click()DimmyDBAsDAO.Database'SetmyDB=DAO.OpenDatabase("d:\mydb3.mdb") 中国.站长站 SetmyDB=DAO.OpenDatabase(App.Path "/mydb.mdb")DimcAsStringc="InsertINTONewTable1VALUES('liqiao','20')"myDB.ExecutecMsgBox"成功插入一条记录liqiao20"EndSub 中国.站长站

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:Access数据库安全中常见问题汇总

下一篇:在Access中使用系统表保存应用程序变量