内容发布更新时间 : 2024/5/27 22:11:46星期一 下面是文章的全部内容请认真阅读。

end if

(3) delete ------- 删除记录

sql_local=\\

sql_local=sql_local+\lyrq>=\

sql_local=sql_local+\\

rs_local.open sql_local,conn_local,1,1

records=rs_local(\

rs_local.close

if records >0 then

sql_local=\

sql_local=sql_local+\

lyrq>=\

sql_local=sql_local+\\

rs_local.open sql_local,conn_local,1,1

txtfile.writeline(\--- \delete \记录.\ else

txtfile.writeline(\--- no delete data! \ end if

(4) update ----------- 更新记录

sql_local=\\

rs_local.open sql_local,conn_local,1,1

records=rs_local(\

rs_local.close

sql_local=\

sql_local=sql_local+\

sql_local=sql_local+\

lyrq=CONVERT(smalldatetime,T.dbilldate),djh=T.billcode,storname=T.storname,deptname=T.deptname,custname=T.custname,\

sql_local=sql_local+\

invclasscode=T.invclasscode,invclassname=T.invclassname,chbm=T.invcode,lybjmc=T.invname,lygg=T.invspec,lyxh=T.invtype,\

sql_local=sql_local+\

lyjh=T.invmnecode,graphid=T.graphid,lydw=T.measname,lysl=T.noutnum,lydj=T.nprice,lyje=T.noutmny\

sql_local=sql_local+\AS T\

sql_local=sql_local+\A.lyrq>=\

sql_local=sql_local+\

rs_local.open sql_local,conn_local,1,1

txtfile.writeline(\--- update data ------> \记录.\

txtfile.writeline(\ end sub

------------------------------------------------------------------------ （四）、ACCESS与SQL Server的实时同步

由于ACCESS数据本身的特点，桌面数据库，不支持网络访问操作，因此要实现与SQLSERVER数据库的同步，需要进行目录共享访问设置。具体实现如下： 1、 共享ACCESS 数据库目录，并赋予一admin权限的用户； 2、 测试局域网共享访问：\\\\IP\\目录\\... ；

3、 代码实现客户机共享ACCESS文件到服务器的拷贝；

4、 在同一服务器上实现ACCESS到SQLSERVER 数据的同步复制；

5、 以下主要VBS代码实现了MDB文件复制及与SQLSERVER同步更新； =============== ACCESS .MDB 文件实时备份过程 ================== sub backupfile(txtfile,ip,db) Dim Path,fso,fsofile,net ------ 初始化备份参数

source_path=\\\\\\产品数码跟踪\

target_file =\if ip=\

source_path=\\\\\\产品数码跟踪1\ end if err.clear Path=\

Set fso = CreateObject(\Set fsofile = CreateObject(\