Dim CN As New ADODB.Connection '定义数据库的连接存放数据和代码 Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False" CN.Open cn.excute "insert into table ........." cn.excute "update table set col=xx where ........." cn.excute "delete * from table where ........."执行sql 语句就可以对表进行操作了
上面各位,人家问的是同时访问两个不同的数据库 下面我的才是标准答案 应该是使用 openrowset()函数 示例1 select a.* from openrowset('SQLOLEDB'),'LONDON1';'newcustomer';"mypassword", 'select productid,unitprice from northwind.dbo.product order by uniprice') as a 示例2 select a.* from openrowset('Miscosoft.Jet.OLEDB.4.0' 'c:\msoffice\assess\samples\Northwind.mdb';'newcutomer';'mypassword',orders) AS a 注,以上是我一个字一个字打上去的,检查一下语法。 )
Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
CN.Open
cn.excute "insert into table ........."
cn.excute "update table set col=xx where ........."
cn.excute "delete * from table where ........."执行sql 语句就可以对表进行操作了
然后再用楼上给出的insert,update,delete来对表进行操作。
下面我的才是标准答案
应该是使用
openrowset()函数
示例1
select a.* from openrowset('SQLOLEDB'),'LONDON1';'newcustomer';"mypassword",
'select productid,unitprice from northwind.dbo.product order by uniprice') as a
示例2
select a.* from openrowset('Miscosoft.Jet.OLEDB.4.0'
'c:\msoffice\assess\samples\Northwind.mdb';'newcutomer';'mypassword',orders)
AS a
注,以上是我一个字一个字打上去的,检查一下语法。
)
楼主的意思是说 一个SQL语句里 对 access 和 SQL数据库 都进行操作?
这是不可能的。
只能是建立两个连接,各操作各的。
比如 …………
cn1 (access连接)
cn2 (SQL连接) rs1.Open "SELECT * FROM MYaccessTABLE", cn1, adOpenKeyset, adLockOptimistic
while not rs1.eof
cn2.Execute "insert into mySQLtable values(" & rs1("field1") & ")"
wend
虽然说各位没有回答我的问题。却让我知道了用ADO实现这个很难,算了我还是用DAO实现它吧。
用DAO可以同时操作两个数据库中的两个表。比如说从A表COPY到B表。一句话就可以搞定,不象ADO处理不同数据库中的不同表那样要循环插入。
反正都是实现这个功能。老技术也是可以的嘛!谢过各位了!!!! 明早结贴!*****************************楼主发方***************************************