怎样将RS查询数据集通过winsck传输？

Question

在S端已经通过SQL查询得到一数据集RS，问问各位大侠怎样将它通过winsck传到C端上？
谢谢

Answer 1

'记录集转化为Byte()
Public Function RecordsetToBinary(rs As Recordset) As Byte()    Dim stm As Stream
    
    Set stm = New Stream
    stm.Open
    stm.Type = adTypeBinary
    rs.Save stm, adPersistADTG
    stm.Position = 0
    RecordsetToBinary = stm.Read()
    Set stm = Nothing
    
End Function'Byte()转化为记录集
Private Function BinaryToRecordset(vData() As Byte) As Recordset
    
    Dim stm As Stream
    Dim rs As Recordset
    
    Set stm = New Stream
    stm.Open
    stm.Type = adTypeBinary
    stm.Write vData
    stm.Position = 0
    
    Set rs = New Recordset
    rs.Open stm
    Set BinaryToRecordset = rs
    
    Set rs = Nothing
    Set stm = Nothing
    
End Function
这只是简单转换的方法，用winsock发送数据的时候要构造好数据包，接收端要判断数据是否完整接收才能转换回记录集....

Answer 2

我个人觉得socket传递数据的话，还是自己整理数据之后再传递比较好。
不然就容易出现很不容易找出结果的一些问题。

Answer 3

VB达人啊，嘿嘿，3Qinnnnnnnnnnnnng。
100分innnnnnnng献上！

Answer 4

晕innnnnnnnnnnng谁都没说...
是VB达人——vbman2003