在VB中动态创建数据库

2024-07-21 02:13:34

字体：大中小

来源：转载

供稿：网友

在vb中动态创建数据库
新建工程.添加控件对应写上代码

以下为引用的内容：
private sub command2_click()
    dim mydb as dao.database
    'set mydb = dao.opendatabase("d:/mydb3.mdb")
    set mydb = dao.opendatabase(app.path + "/mydb.mdb")
    dim d as string
    d = "delete * from newtable1"
     mydb.execute d
     msgbox "成功删除全部记录"
end sub

private sub command3_click()
    dim mydb as dao.database
    'set mydb = dao.opendatabase("d:/mydb3.mdb")
    set mydb = dao.opendatabase(app.path + "/mydb.mdb")
    dim e as string
    e = "drop table newtable1"
    mydb.execute e
end sub

private sub form_load()
    dim mydb as dao.database
    'set mydb = dao.workspaces(0).createdatabase("d:/mydb3.mdb", dblanggeneral)
     set mydb = dao.workspaces(0).createdatabase(app.path + "/mydb.mdb", dblanggeneral)
    dim str_sql as string
    str_sql = "create table newtable1(field1 text(10),field2 short)"
    mydb.execute str_sql
    dim a as string
    a = "insert into newtable1 values ('litao','21')"
    mydb.execute a

    str_sql = "create table newtable2(field1 text(10),field2 short)"
    mydb.execute str_sql
    mydb.close
    msgbox "成功创建mydb3.mdb数据库外加一条记录litao 21"
    end sub

private sub command1_click()
    dim mydb as dao.database
    'set mydb = dao.opendatabase("d:/mydb3.mdb")
    set mydb = dao.opendatabase(app.path + "/mydb.mdb")
    dim c as string
    c = "insert into newtable1 values ('liqiao','20')"
    mydb.execute c
msgbox "成功插入一条记录liqiao 20"
end sub

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

下一篇：Access数据库安全中常见问题汇总

学习交流

如何查找有故障的配件

如何查找有故障的配件...

热门图片

猜你喜欢的新闻

猜你喜欢的关注