当前位置: 首页 > 图文教程 > 数据库 > Access > 在VB中动态创建数据库

Access
数据库应用程序需注意的问题
用Access分析网站实例
一个ACCESS数据库数据传递的方法
服务器架站应用：打造安全mdb数据库
Access数据库安全的几个问题
以前流行的4种Access数据库安全方式
三招设置数据库安全 保障网站安全运营
解决用Access数据库建站维护不便的问题
十万条Access数据表分页的两个解决方法
PHP高级技巧：使用PHP模拟HTTP认证
Access数据库成功导入Oracle库方法
使用access数据库时可能用到的数据转换
疑难解答：怎样使用Access数据库压缩文件
堵住电脑中的Access漏洞 拒绝恶意网站
在Access中模拟sql server存储过程翻页
如何将文本文件转换为ACCESS数据库
Access创建一个简单MIS管理系统
将mysql数据导入access数据库
Access数据库用另一种方式管理密码
Access如何制作复杂报表

No. « 6 7 8 9 »

技术文章搜索

关键字

Access 中的 在VB中动态创建数据库

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-17   浏览: 40 ::
收藏到网摘: n/a

在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