在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 中国.站长站
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
