把服务器SQL数据复制到客户机DBF库上

[zz9415]

我想把服务器上的SQL表复制到客户机上的dbase数据库库中，在客户端运行以下代码，
ConnectString = "PROVIDER=MSDASQL;Driver={SQL Server};Server=服务器计算机名;uid=sa;pwd=;database=数据库;
Set cnn = New ADODB.Connection
cnn.Open ConnectString

strsql = "insert into OPENROWSET('MICROSOFT.JET.OLEDB.4.0','dBase IV;HDR=NO;IMEX=2;DATABASE=d:\Localdata','select * from item.dbf') " SELECT * FROM item"
cnn.Execute strsql

但是只更新了服务器上的dbase数据库，客户机上dbase数据库的d:\Localdata\item.dbf下的没更新，这要怎么写？？
研究几天了，还是没什么结果，望各位大侠多多指教！！！！

[zz9415]

自已再顶一下,希望高手给出解决代码??谢了

[duanzhi1984]

我觉得你可以 现在数据库 中执行,看是否可以 ，若不可以 请把错误贴出来 。。

insert into OPENROWSET('MICROSOFT.JET.OLEDB.4.0','dBase IV;HDR=NO;IMEX=2;DATABASE=d:\Localdata','select * from item.dbf') " SELECT * FROM item

若可以 那你再看是否是你的 strsql 是否有问题。。


忽然发现你的strsql有点小错误,应为：(你的多了个"

"insert into OPENROWSET('MICROSOFT.JET.OLEDB.4.0','dBase IV;HDR=NO;IMEX=2;DATABASE=d:\Localdata','select * from item.dbf') SELECT * FROM item"

[zz9415]

哦,是有错误,因为我把两句并成一句,所以错了.软件执行没有问题，
软件在客户端运行，只是我要把服务器SQL表的内容复制到客户机本机的DBF库中,并我软件执行的时候都只更新服务器上的DBF库,客户机的DBF库没更新.

ConnectString = "PROVIDER=MSDASQL;Driver={SQL Server};Server=服务器计算机名;uid=sa;pwd=;database=数据库;
Set cnn = New ADODB.Connection
cnn.Open ConnectString

strsql = "insert into OPENROWSET('MICROSOFT.JET.OLEDB.4.0','dBase IV;HDR=NO;IMEX=2;DATABASE=d:\Localdata','select * from item.dbf') SELECT * FROM item"
cnn.Execute strsql

[duanzhi1984]

[Quote=引用 7 楼 zz9415 的回复:]
哦,是有错误,因为我把两句并成一句,所以错了.软件执行没有问题，
软件在客户端运行，只是我要把服务器SQL表的内容复制到客户机本机的DBF库中,并我软件执行的时候都只更新服务器上的DBF库,客户机的DBF库没更新.

ConnectString = "PROVIDER=MSDASQL;Driver={SQL Server};Server=服务器计算机名;uid=sa;pwd=;databas……
[/Quote]

那就是你的语句有问题了呀


insert into OPENROWSET('MICROSOFT.JET.OLEDB.4.0','dBase IV;HDR=NO;IMEX=2;DATABASE=d:\Localdata','select * from item.dbf') SELECT * FROM item

以上语句执行OK嘛。。

[中国风]

加多一段
insert 同 select 換個位置

insert item
from OPENROWSET('MICROSOFT.JET.OLEDB.4.0','dBase IV;HDR=NO;IMEX=2;DATABASE=d:\Localdata','select * from item.dbf') t
where ID in(select ID from item)--加上條件

[ws_hgo]

--(5)
*/
/*将本地表中的信息导入到远程数据库表中
下面的例子将本地whsxjAdmin种的(Title,Password)插入到远程
zhongyiAdmin中去
*/
insert into opendatasource('SQLOLEDB','Data Source=IP地址;User ID=zhongyi;password=xinrongkeji').sqlzhongyi.dbo.zhongyiAdmin(Title,Password)
select Title,Password from whsxjAdmin

[ws_hgo]

/*
openDatasource:不使用连接服务器的名称,而提供特殊的链接信息.
使用openDatasource的前提是仅当 DisallowAdhocAccess 
注册表选项针对指定的提供程序显式设置为 0，
并且启用 Ad Hoc Distributed Queries 高级配置选项时，
OPENDATASOURCE 才可用于访问 OLE DB 数据源中的远程数据。
如果未设置这些选项，则默认行为不允许即席访问。
*/
--代码如下:
exec sp_configure 'show advanced options',1
reconfigure
exec sp_configure 'Ad Hoc Distributed Queries',1
reconfigure
--(1)例如现在我想打开D盘中BJData.mdb中的BJAdmin表的信息
select ID,Title,OwnerName from 
opendataSource('Microsoft.Jet.OLEDB.4.0','Data Source="D:\BJData.mdb";')...BJAdmin
/*Results:
ID          Title                OwnerName
----------- -------------------- --------------------------------------------------
1           xinrong              
4           webmaster            admin
5           bing                 webmaster
(3 行受影响)
*/
--(2)我现在要将BJAdmin中BJNewsCategory中的信息插入到A表中
--先查询下Test.Newscategory
select * from  Test.dbo.Newscategory
/*
ID          Title
----------- --------------------
1           MSSQL
(1 行受影响)
*/
insert into Newscategory select Title from OpenDataSource
('Microsoft.Jet.OLEDB.4.0','Data Source="D:\BJData.mdb";')...BJNewsCategory
--导入之后再查询
select * from  Test.dbo.Newscategory
/*
ID          Title
----------- --------------------
1           MSSQL
2           新闻分类
3           新闻动态
4           工程案例
5           膜结构知识
6           在建工程
(6 行受影响)
*/
--上面的都是在MSSQL中查询Access中的信息,现在将MSSQL中的信息导入到Access中去
--(3)将AdminInfo的信息插入到BJData.mdb中的BJAdmin中去
select * from Test.dbo.AdminInfo
/*
ID          Title
----------- ------------------------------
1           ws_hgo
(1 行受影响)
*/
insert into opendatasource('microsoft.Jet.OLEDB.4.0','Data source="D:/BJData.mdb"')...BJAdmin
(Title,RoleID) select Title,1 from AdminInfo
--然后查询BJAdmin表的信息
select ID,Title,OwnerName from 
opendataSource('Microsoft.Jet.OLEDB.4.0','Data Source="D:\BJData.mdb";')...BJAdmin 
/*
ID          Title                OwnerName
----------- -------------------- --------------------------------------------------
1           xinrong              
4           webmaster            admin
5           bing                 webmaster
12          ws_hgo               NULL
(4 行受影响)
*/
--(4)上面说的是Access与MSSQl之间的操作现在操作下
--Excel与MSSQL之间的操作
--从Excel中读取信息
select * from OpenDataSource
('Microsoft.Jet.OLEDB.4.0','Data Source="D:\work.et";Extended properties=Excel 5.0')...[sheet1$]
/*
EmployeeName        Sex            Age             Post
-----------       -----------    --------      ------------ 
ws_hgo             Boy            23             Senior Programmer
yangzhognyuan      Boy            24             Programmer
chenjing           Girl           24             Designer
(3 行受影响)

--(5)
*/
/*将本地表中的信息导入到远程数据库表中
下面的例子将本地whsxjAdmin种的(Title,Password)插入到远程
zhongyiAdmin中去
*/
insert into opendatasource('SQLOLEDB','Data Source=IP地址;User ID=zhongyi;password=xinrongkeji').sqlzhongyi.dbo.zhongyiAdmin(Title,Password)
select Title,Password from whsxjAdmin
--下面说下OPENROWSET
/*
包含访问 OLE DB 数据源中的远程数据所需的全部连接信息。
当访问链接服务器中的表时，这种方法是一种替代方法，
并且是一种使用 OLE DB 连接并访问远程数据的一次性的临时方法。
*/
--(1)直接查询远程服务器上面的信息
select ID,Title from OpenRowset
('SQLOLEDB','IP地址';'zhongyi';'xinrongkeji','select * from sqlzhongyi.dbo.zhongyiAdmin') t
--(2)查询Access里面的信息
select * from OpenRowset
('microsoft.Jet.OLEDB.4.0','d:\BJData.mdb';'Admin';'',BJAdmin) as g


本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/ws_hgo/archive/2010/04/23/5518918.aspx

[zz9415]

还是不明白,能不能写出代码,在客户端运行程序,把服务器上的SQL转入到客户端的DBF库中,我的代码都只是把服务器上的SQL转入到服务器的DBF库中,请问怎样修改,万分感谢!!!!!!!
ConnectString = "PROVIDER=MSDASQL;Driver={SQL Server};Server=服务器计算机名;uid=sa;pwd=;database=数据库;
Set cnn = New ADODB.Connection
cnn.Open ConnectString

strsql = "insert into OPENROWSET('MICROSOFT.JET.OLEDB.4.0','dBase IV;HDR=NO;IMEX=2;DATABASE=d:\Localdata','select * from item.dbf') " SELECT * FROM item"
cnn.Execute strsql

[zz9415]

不行啊,我改了还是不行,在客户端执行的时候都只更新服务器上的DBF库,客户机的DBF库没更新.
真晕倒了,