请教VBA如何与excel,acess进行连接??

simon_hbedi 发表于 2003-4-29 16:27:00

Taoyimaier 发表于 2003-5-1 22:34:00

一言难尽，不过，本网站有些不错的文章，在‘二次开发’栏目中

认真找吧，很容易就会找到的

efan2000 发表于 2003-10-10 21:30:00

VBA可以有两种方式来与excel,acess进行连接。
1、使用OLE方式，即启动相应的应该程序，通过其COM接口来控制。这种方式需要熟悉它的接口，即对象体系。功能强大，但真正掌握需要一段时日。
2、做为数据库看待，即通过数据连接组件，以类似访问其它数据库的途径来控制。这种方式需要熟悉结构化查询语言SQL。只能实现一般的数据操作，但是通用性好，其它数据库如SQL Server和Oracle都兼容SQL。

dazhangyu 发表于 2003-11-18 16:42:00

efan2000版主,能不能具体点呢？for example.........
我也正想解决这个问题呢！

dazhangyu 发表于 2003-11-18 16:45:00

或者提供一些这方面的资料，那样我会自己去找一个很安静的地方，不会再烦劳版主了，当然如果没看明白的话，我还会来的哟！

bluemoon 发表于 2003-11-18 17:57:00

前面我不是做了个例子吗你没看到？

efan2000 发表于 2003-11-18 20:12:00

Sub Test_Excel()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
   "Data Source=C:\Book1.xls;" & _
   "Extended Properties=""Excel 8.0;"
rs.Open "Select * from ", cn, adOpenStatic

' 或者通过OLE
Dim xl As Excel.Application
Set xl = CreateObject("Excel.Application")
End Sub

Sub Test_Access()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
   "Data Source=C:\db1.mdb;"
rs.Open "Select * from Table", cn, adOpenStatic

' 或者通过OLE
Dim ac As Access.Application
Set ac = CreateObject("Access.Application")
End Sub

页: [1]

明经CAD社区's Archiver

请教VBA如何与excel,acess进行连接??

一言难尽，不过，本网站有些不错的文章，在‘二次开发’栏目中