在VB中动态创建数据库,ACCESS数据库教程,数据库技术

在网页中显示可拖动月历
以分享为荣!优秀在线网络硬盘横向评测
如何在windows系统下安装MySQL
怎样在UNIX系统下安装MySQL
在服务器上安装、使用MySQL的注意事项
在ACCESS 中调用后台存储过程
怎样在Mysql中直接储存图片
怎样在vc、delphi中使用mysql(mysql odbc驱动的使用)
有了MySQL，客户资源管理尽在掌握
在win2003下MySQL数据库每天自动备份
无法在SQL 2005系统数据库中执行的T-SQL语句(XML处理)
教你怎样在MySQL中提高全文搜索效率
MySQL代码如何在 Windows环境下编译
Sql server使用内存限定在多少最为合适
sqlserver7.0中如何在死锁产生时自动将其杀死
在SQL Server的存储过程中调用Com组件
如何在应用程序中避免死锁问题？
在英文NT及SQL下，实现页面中中文出现
如何在SQL Server中恢复数据
在VB中压缩ACCESS数据库

最新文章

文章内容

在VB中动态创建数据库

作者：未知来源：网络收集录入：管理员

在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")

Chinaz~com

    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数据库安全中常见问题汇总
·搜一下：百度搜[在VB中动态创建数据库]相关内容