buffer=4096
Do While Len(szSendMe) >= buffer
Dim szSendMeTemp As String
szSendMeTemp = Left$(szSendMe, 4096)
szSendMe = Mid$(szSendMe, 4097)
WinsockSendData.SendData szSendMeTemp
Loop
if szsendMe<>"" then
WinsockSendData.SendData szSendMe
end if
Do While Len(szSendMe) >= buffer
Dim szSendMeTemp As String
szSendMeTemp = Left$(szSendMe, 4096)
szSendMe = Mid$(szSendMe, 4097)
WinsockSendData.SendData szSendMeTemp
Loop
if szsendMe<>"" then
WinsockSendData.SendData szSendMe
end if
解决方案 »
- 保存記錄集時出錯提示:Run-time error'-2147217864(80040e38)':找不到要更新的資料行。最後讀取的值已被更改
- 怎么我UPDATE ORACLE数据库就死机???
- 先给各位拜个早年,另请各位帮忙。
- 斑竹大哥,怎么会事啊?我发的帖子怎么没有啊?
- 一个简单却无法验证的问题!大家帮帮忙!
- 如何用vba(excel环境下)访问access数据库?
- 欢迎访问http://CoolSlob.fykj.com/。目前唯一可以查询CSDN FAQ的站点!
- 需crystal reports 9.0 简体中文版
- 怎样关闭adodc控件的数据库连接
- 难一点的问题?50分,请给出详细的代码。
- 下载网页超时的问题。
- 有关透明!(我会不断增加分数的……)
非常感谢大家的帮助,问题解决后一定给大家加分