dim sndStr as string
sndStr=join(str,vbClrf)
winsock.senddata sndStr
接受方:
dim rows() as string
dim fields() as string
dim i as long
winsock.getdata strData
rows=split(strData,vbCLrf)
for i=0 to ubound(rows)-1
fields=split(rows(i),",")
'这里是你要对这行数据的具体操作,如显示之类的
next
第二种[就是把得到的记录写到文件中,然后用二进制的方法把这个数据文件发到接受方]
Open filepath For Output As #1
while (rs.eof<>true)
strData=rs.field("字段名1") & "," & rs.field("字段名2") & ... & "," & rs.field("字段名n") & vbCLrf
Print #1, strData
strData=""
loop
Close #1
dim filestream() as byte
redim filestream(filelen(filepath))
open filepath for Binary as #1
get #1,filestream
close #1
然后把filestream发到接受方
接受方:
得到数据后组合数据
第三种[同样是把得到的记录写到文件中,然后发条消息给client端,如“数据文件处理完成”;当client接到这条消息后,通过ftp的方式到server把数据文件取下来]
发送方:
Open filepath For Output As #1
while (rs.eof<>true)
strData=rs.field("字段名1") & "," & rs.field("字段名2") & ... & "," & rs.field("字段名n") & vbCLrf
Print #1, strData
strData=""
loop
Close #1
winsock.senddata "数据文件处理完成"
接受方:
winsock.getdata strMsg
if strMsg="数据文件处理完成" then
GetDataFileByFtp(svIP,User,Password,filename)
end if
private sub GetDataFileByFtp (byval svIP as string, _
byval user as string, _
pwd as string, _
fn as string)