在EXCEL中操作ACCESS库

drboys

前辈您好，我在运行你帖子“在EXCEL中操作ACCESS库”中的VBA程序时，运行这一句myCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myData时，老是出现“类没有注册”的错误，并按http://club.excelhome.net/thread-264228-1-1.html此贴处理了之后也没用，求不吝赐教，万分感谢。

boon

楼主很强啊，正式我所关心的内容，正在研究

chenxq9335

有心学习下这个，谢谢提供。

cwzj3807

首先非常感谢老师的无私奉献！
本人经过学习也编了一个在excel中用代码创建一个名为“Access数据库”的程序(见附件)，但怎么也不会用代码为这个“Access数据库”添加上打开的密码，因此特请教老师给予指点，谢谢！！！
创建Access数据库.rar (9.45 KB, 下载次数: 28)

2015-6-28 14:08 上传

点击文件名下载附件

cwzj3807

zez 发表于 2008-10-10 09:56

首先非常感谢老师的无私奉献！
本人经过学习也编了一个在excel中用代码创建一个名为“Access数据库”的程序(见附件)，但怎么也不会用代码为这个“Access数据库”添加上打开的密码，因此特请教老师给予指点，谢谢！！！
创建Access数据库.rar (9.45 KB, 下载次数: 25)

2015-6-28 14:11 上传

点击文件名下载附件

zez

cwzj3807 发表于 2015-6-28 14:12
首先非常感谢老师的无私奉献！
本人经过学习也编了一个在excel中用代码创建一个名为“Access数据库”的 ...

Public Sub 创建Access数据库()
   Dim myData As String
   On Error Resume Next
   Set myCat = CreateObject("adox.Catalog")
   Set myCmd = CreateObject("adodb.Command")
   myData = ThisWorkbook.Path & "\Access数据库.mdb"
   myCat.Create "provider=microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=123;data source=" & myData '& ";Persist Security Info=True"
   Set myCmd.ActiveConnection = myCat.ActiveConnection
   If Err.Number <> 0 Then MsgBox "数据库已存在！"
   Set myCat = Nothing
   Set myCmd = Nothing
End Sub

xj.cpa

zez 发表于 2015-6-28 15:54
Public Sub 创建Access数据库()
   Dim myData As String
   On Error Resume Next

非常谢谢老师的指点，学习中！

llww7779

楼主，你真是太那啥了，佩服！

cwzj3807

老师您好，又要求教您了：
附件中的文件是您本帖的实列，我的问题是：
1、如何用SQL代码获取Access中“总公司销售记录”表的记录数
2、如何用SQL代码同时对Access中“总公司销售记录”表的“商品名称”(第1关键字)及“销售额”(第2关键字)按升序排序
谢谢！
数据表排序及获取记录数.rar (17.18 KB, 下载次数: 14)

2015-6-29 15:59 上传

点击文件名下载附件

cwzj3807

zez 发表于 2015-6-28 15:54
Public Sub 创建Access数据库()
   Dim myData As String
   On Error Resume Next

老师您好，又要求教您了：
附件中的文件是您本帖的实列，我的问题是：
1、如何用SQL代码获取Access中“总公司销售记录”表的记录数
2、如何用SQL代码同时对Access中“总公司销售记录”表的“商品名称”(第1关键字)及“销售额”(第2关键字)按升序排序
谢谢！
数据表排序及获取记录数.rar (17.18 KB, 下载次数: 40)

2015-6-29 18:37 上传

点击文件名下载附件