我用winsock传数据总是会少几条数据,是为什么啊rs1.Open "select * from data_hdgl where 运单编号='" & Temp1 & "'", AnalyzeConn, 1, 3If rs1.RecordCount <> 0 Then
while not rs1.eof
For FieldNum = 1 To rs1.Fields.Count - 5
TempStr = TempStr & Encode(FixNull(rs1(FieldNum))) & Chr(3)
Next
Wsk(wskIndex).SendData "searchresult" & Chr(2) & Encode(tType) & Chr(2) & TempStr & Chr(2) & Encode("回单信息") & Chr(2) & Temp1 & Chr(2) & Chr(8)
TempStr = ""
rs1.movenext
wend
End If
rs1.Close
while not rs1.eof
For FieldNum = 1 To rs1.Fields.Count - 5
TempStr = TempStr & Encode(FixNull(rs1(FieldNum))) & Chr(3)
Next
Wsk(wskIndex).SendData "searchresult" & Chr(2) & Encode(tType) & Chr(2) & TempStr & Chr(2) & Encode("回单信息") & Chr(2) & Temp1 & Chr(2) & Chr(8)
TempStr = ""
rs1.movenext
wend
End If
rs1.Close
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货