可不可以在客户端组织数据到一个Recordset，然后一次性Update到另外一个数据源

Question

如题，不知道讲明白没有，另一个数据源是SQL Server，
不想用DTS，也不想用链接服务器，客户端用VB编程

Answer 1

可以，ADO 可以使用 内存数据集
不需要任何数据源
参考
当然可使用记录集
因为记录集可以直接创建在内存中
Dim Rs As New ADODB.Recordset
Dim II As LongRs.CursorLocation = adUseClient
Rs.Fields.Append "Col1", adVarChar, 20
Rs.Fields.Append "Col2", adVarChar, 20
Rs.Fields.Append "Col3", adVarChar, 20
Rs.Fields.Append "Col4", adVarChar, 20
Rs.Open "me"
'把表格中的数据搬到数据集，再借助 .Find 即可查找,速度超快For II = 1 To 1000
'插入1000行
    Rs.AddNew
    Rs(0).Value = "a" & II & 1
    Rs(1).Value = "b" & II & 2
    Rs(2).Value = "c" & II & 3
    Rs(3).Value = "d" & II & 4
    Rs.Update
NextRs.MoveFirstRs.Find "Col1='a11'"
If Rs.EOF = False Then
    MsgBox Rs(0)
End IfRs.Close

Answer 2

感谢zlt982001(乐天)那么，怎么把这个Recordset的内容更新另到一个SQL Server数据源里呢？

Answer 3

可能有些朋友不明白为什么要这样，那时因为客户端需要采集很多数据，但是和服务器又不是24小时随时连接，并且网络情况又不太好，不能容许一条一条记录插入，那将花费大量时间，Bulk Insert是不错的，但是很麻烦，要把数据文件通过其它方式传到服务器上。
我想，如果有一种机制把内存Recordset直接更新到服务器数据源上岂不是更方便。
也许想法天真了。但是请知道的朋友帮帮我。不胜感激。

Answer 4

我们用asp来处理
客户端，生成xml后，提交到远程asp文件
Private Sub CustomerManager_PostCustomerTable(ByVal rs As ADODB.Recordset)
  Dim RequestDoc As MSXML.DOMDocument
  Set RequestDoc = New MSXML.DOMDocument
  rs.Save RequestDoc, adPersistXML
  Dim httpRequest As New MSXML.XMLHTTPRequest
  httpRequest.Open "POST", sURL & "PostCustomerTable.asp", False
  httpRequest.send RequestDoc
  ' throw assert on any return status other than 200
  If httpRequest.Status <> 200 Then
    MsgBox httpRequest.statusText, , httpRequest.Status
  End If
End Sub服务端
<%@ Language=VBScript %><%  dim rs
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open Request
  rs.UpdateBatch
%>

Answer 5

谢谢online(龙卷风V3.0--笑傲江湖) & zlt982001(乐天)
结贴了。通过两位的方法，我想能够解决我提出的问题了。非常感谢。

Answer 6

很久没上CSDN了，不知道怎么给分了，看了帮助也没找到不好意思