台灣最大程式設計社群網站
線上人數
997
 
會員總數:246136
討論主題:189720
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 將資料下載到client端的DB內
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
將資料下載到client端的DB內
價值 : 0 QP  點閱數:1209 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
Set Qrs = rs.PT_CommonCall(CltAryLogin,"SP_SRI12P", strStatus, strMessage,ARRAY())
If strStatus="1" Then
Call messageshow("結果","查無資料!!")
EXIT SUB
END IF
dim rs1,rs2
Const adOpenDynamic = 2
Dim i,J
DIM REMOTECONNECTOLEDB,wrkjet,dbconn
set dbconn= CreateObject("ADOdb.connection")
dbconn.ConnectionTimeOut = 60
dbconn.CommandTimeOut = 300
dbconn.CursorLocation =3
dbconn.open ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\HOTAI\SRDownload.MDB"
Set rs1 = CreateObject("ADOdb.Recordset")
rs1.CursorType =2
rs1.ActiveConnection =dbconn
rs1.open "SRTARGETDM",,adOpenDynamic,3,2
If rs1.EOF=FALSE THEN
rs1.MoveFirst
Do while rs1.EOF = FALSE
If rs1.EOF=False then rs1.Delete
rs1.MoveNext
Loop
End if
FOR J=0 TO Qrs.RECORDCOUNT-1
rs1.AddNew
for i = 0 to (rs1.Fields.Count - 1)
rs1(I)=Qrs(I).VALUE
next
rs1.UPDATE
qrs.MOVENEXT
NEXT
rs1.close
dbconn.close
Call messageshow("結果","資料載入完成!!")


本篇文章發表於2001-12-26 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.