else
txtfile.writeline(\远程数据库连接失败 ! ***** \ end if else
txtfile.writeline(date&\\ end if
releaseconnection conn_ora releaseconnection conn_local
set f=nothing set txtfile=nothing set rs_local=nothing set rs_ora=nothing 间隔 5分钟循环一次
!!!! ####### 网络故障WScript.Sleep 300000 Loop
------------- 数据同步过程 ----------------------------------------- Sub xcopy() dim records
(0) ------ 判断 temp 是否存在，存在则删除
sql_local=\name=temp and xtype=U\
rs_local.open sql_local,conn_local,1,1
records=rs_local(\
rs_local.close if records > 0 then
sql_local=\
rs_local.open sql_local,conn_local,1,1 end if
(1) ------ 取当前日期前Nday天的数据插入临时表 temp sql_local=\
OPENROWSET(MSDAORA.1,hydata;qyselect;qy08select12,SELECT * FROM
Hybjsb.V_QY_CKLSZ) \
sql_local=sql_local+\
CONVERT(smalldatetime,dbilldate)<=\CONVERT(smalldatetime,dbilldate)>= \
sql_local=sql_local+\曲烟寄售库 \
rs_local.open sql_local,conn_local,1,1 (2) ------ 判断是否有新记录
sql_local=\
sql_local=sql_local+\
sql_local=sql_local+\where bid not in (select bid from \lyrq>=\
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+\classcode,invclassname,chbm,lybjmc,lygg,lyxh,lyjh,graphid,lydw,lysl,lydj,lyje)\
sql_local=sql_local+\
sql_local=sql_local+\
dbilldate,billcode,storname,deptname,psnname,custname,invclasscode,invclassname,invcode,invname,invspec,invtype,invmnecode,graphid,measname,noutnum,nprice,noutmny\
sql_local=sql_local+\
sql_local=sql_local+\\lyrq>=\
rs_local.open sql_local,conn_local,1,1
txtfile.writeline(\
txtfile.writeline(\--- \new Add \记录.\ else
txtfile.writeline(\
txtfile.writeline(\--- no new data! \