Command10,Access数据库

原创 2013年12月05日 17:03:15

我的按钮名为Command10,Access文档新建在当前目录下,代码如下

Private Sub Command10_Click()
 Dim cat As ADOX.Catalog
  Set cat = New ADOX.Catalog

 '在当前目录下建立名为newdata的Access数据库

cat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\Access练习实例.mdb" + ";")
a = MsgBox("新建成功!文件建立在当前目录中!", 1, "成功")
Dim MSAccess As New Access.Application
    MSAccess.OpenCurrentDatabase (App.Path & "\Access练习实例.mdb")
    Set MSAccess = OpenDatabase(Access练习实例)
    MSAccess.Visible = True
End Sub
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

分析Sqlserver与access数据库sql语法的10大差异

做项目时,最常用的数据库即Sqlserver与Access数据库莫属了!但使用会经常发现很多SQL执行的问题。这里整理出之间的差异,做个十大差异的总结。  ACCESS结构简单容易处理,而且也能满...

MFC学习(10)ACCESS数据库使用max无法读取结果集的解决办法

这样读取结果集会出现问题 /**********************数据库操作*******************/ int MonitorNum::sql_insert(void) { /...

VS2010连接SqlServer2008数据库,Oracle10g数据库,Mysql5.524数据库,Access2013数据库经典教程,不看肯定后悔

今天看vs2010多态,既然数据库类库都是实现接口的信息,那么我直接使用接口来连接不同数据库,这不是很符合接口的性质哈   设计了VS2010连接SqlServer2008,Oracle10g,My...

FSX 10 Keyboard Command

  • 2014年07月30日 21:51
  • 285KB
  • 下载

Command "python setup.py egg_info" failed with error code 10

问题描述: 按照教程 我运行cmd.exe 执行 pipinstall pyspider 报错“Command "python setup.py egg_info" failed with error...

使用Command执行数据库命令

  • 2013年10月06日 12:01
  • 710KB
  • 下载

10 basic examples of linux netstat command

etstat is a command line utility that can be used to list out all the network (socket) connections o...

Win10 NotePad++ “ShellExecute failed (2): Is this command correct?”

问题: 右键点击->Edid With Notepadd ++ 然后出现 "ShellExecute failed(2): Is this command correct?" 解决办法: 1. ...
  • hwjean
  • hwjean
  • 2016年09月14日 13:44
  • 1447
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Command10,Access数据库
举报原因:
原因补充:

(最多只允许输入30个字)