白城小姐火车站有吗:VB 里如何实现动态创建、删除ACCESS数据库

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/05 00:56:36
数据库的名字是由用户任意定的

看看这里的代码吧
1,删除数据库
你是要把整个数据库删除掉吗?直接删除文件一样删除就可以拉
kill 文件名(包括绝对路径哦)[app.path & "\文件名"]
2,创建数据库
Private mytable As TableDef, myfield As Field, mydb As Database
Set mydb = CreateDatabase("要创建的数据库名")
Set mytable = mydb.CreateTableDef("要创建的表名")
Set myfield = mytable.CreateField("表中字段名", 字段类型,如:dbInteger)
mytable.Fields.Append myfield '添加字段
mydb.TableDefs.Append mytable '添加表
mydb.close
set mydb=nothing
创建多个表,表中创建多个字段只不过是对上面的操作重复而已
本人花了一些时间摸索出来的,呵呵,特此奉献给大家哦

用SQL语句