Excel 如何调用后台Access数据库里的过程

xiaoangel

我在Access数据库创建了一个窗体FORM1,并且在FORM1上建立了一个按钮Command1.
按下按钮Command1. 执行一个过程Private Sub Command1_Click()。这一切已经成功完成。


现在，我想在前台的Excel表直接调用后台的Access数据库的这个过程Private Sub Command1_Click()。该如何去做呢？


谢谢

zhaogang1960

把access文件中的主程序放在模块中，假设程序名是"bbb"，Access程序及数据库文件要处在打开状态，否则有个打开数据库过程，就不是后台了

1. Sub aaa()
   
2.     Dim myAccess As Object
   
3.     mydata = ThisWorkbook.Path & "\数据库.mdb"
   
4.     Set myAccess = CreateObject(mydata)
   
5.     myAccess.Run "bbb"
   
6.     Set myAccess = Nothing
   
7. End Sub
   

复制代码

建议把Access中的程序移植到Excel中，这样就能实现不打开Access后台处理了

xiaoangel

zhaogang1960 发表于 2015-2-26 17:41
把access文件中的主程序放在模块中，假设程序名是"bbb"，Access程序及数据库文件要处在打开状态，否则有个打 ...

噢，原来Access程序及数据库文件要处在打开状态呀。学习了。

xiaoangel

zhaogang1960 发表于 2015-2-26 17:41
把access文件中的主程序放在模块中，假设程序名是"bbb"，Access程序及数据库文件要处在打开状态，否则有个 ...

赵老师，

关于Excel控制后台Access数据库，遇到一个问题。 查了一些资料也没有搞成。

我想通过Excel的VBA，把后台Access数据库里的某几个表（table1，table2）里的数据清空。（不是删除表）

怎么实现呢？谢谢

zhaogang1960

xiaoangel 发表于 2015-7-8 10:38
赵老师，

关于Excel控制后台Access数据库，遇到一个问题。 查了一些资料也没有搞成。

SQL = "DELETE [数据表名.*] FROM 数据表名 [WHERE 条件]
cnn.Execute SQL

方括号内为可选

xiaoangel

zhaogang1960 发表于 2015-7-8 10:47
SQL = "DELETE [数据表名.*] FROM 数据表名 [WHERE 条件]
cnn.Execute SQL

赵老师，请帮我看看。

Sub cclean()
    Dim cat As Object, mytable As Object
    Dim SQL$, a$, b$, mydata$
    Set cat = CreateObject("ADOX.Catalog")
    mydata = ThisWorkbook.Path & "\OK.mdb"
    cat.ActiveConnection = "Provider = microsoft.ACE.oledb.12.0 ; data source=" & mydata & ";jet oledb:database password=123456;"
    On Error Resume Next
    For Each mytable In cat.Tables
        If mytable.Type = "TABLE" Then
            ''clean and clear records for all tables
            SQL = "DELETE FROM " & mytable & ""
            cnn.Execute SQL
        End If
    Next
    Set mytable = Nothing
    Set cat = Nothing
End Sub

xiaoangel

请看附件，请看附件，没有成功

luckberry

稍微修改即可实现你的需求。

1. Sub cclean()
   
2.     Dim cat As Object, mytable As Object
   
3.     Dim cnn As Object
   
4.     Dim SQL$, a$, b$, mydata$
   
5.     Set cat = CreateObject("ADOX.Catalog")
   
6.     Set cnn = CreateObject("ADODB.Connection") '设置连接
   
7.     mydata = ThisWorkbook.Path & "\OK.mdb"
   
8.     cat.ActiveConnection = "Provider = microsoft.ACE.oledb.12.0 ; data source=" & mydata & ";jet oledb:database password=123456;"
   
9.     cnn.Open cat.ActiveConnection '打开连接
   
10.     'On Error Resume Next
    
11.     For Each mytable In cat.Tables
    
12.         If mytable.Type = "TABLE" Then
    
13.             ''clean and clear records for all tables
    
14.             SQL = "DELETE FROM " & mytable.Name & ""
    
15.             cnn.Execute SQL '执行脚本
    
16.         End If
    
17.     Next
    
18.     cnn.Close '关闭连接
    
19.     Set cnn = Nothing
    
20.     Set mytable = Nothing
    
21.     Set cat = Nothing
    
22. End Sub
    

复制代码

493388750

支持一下，正如所愿

chenxinmin123

我正为这代码发愁的呢，太帮啦