是不是和缓存大小有关?
如何控制缓存的大小呢?
如何控制缓存的大小呢?
解决方案 »
- 谁用过比较好的标尺控件?
- 请问:"acticvx 部件不能创建对象"如何是好?(我已安装了MDAC 2.8)--分不够可以加-已多处发贴了
- 文本输入问题(高分求教!!)
- 怎样保护VB安装程序的安全性
- 关于工程组调用ActiveDLL(高分)
- 如何在picturebox 中显示围绕着圆形的文字???
- 请问crystalreport控件在VB中的用法?
- 打印图形(不是图片,例如同心圆的打印)的问题.很急!!
- 有两个关于VB自定义控件问题 (分数不是问题,还能再加)
- vb.net好用吗
- 快过年了,想办法弄点钱! 现有1亿6000万左右个商业email地址出售,管理员大哥别删哟!
- 计算机科学与技术专业勤工俭学问题
最大的数据包为4.096K
但决不是60个字节
Dim a, a1 As String
Dim i, j, z, k As Integer
Dim tempS, b
a = CheckDb If a <> "" Then
tempS = Split(a, SplitC)
For j = LBound(tempS) To UBound(tempS)
If Trim(tempS(j)) <> "" Then
b = Split(tempS(j), ",")
For i = 0 To MaxSocket
If sendBuffer(i) = "" Then
sendBuffer(i) = CStr(b(1))
Winsock1(i).Connect
clearDb CInt(b(0))
Exit For
End If
Next
End If
Next
Else
addLog "[" & Now & "]" & vbCrLf & "没有新的点播记录"
End If
End SubFunction CheckDb() As String
Dim rs As New ADODB.Recordset
Dim b
CheckDb = ""
b = Split(fieldIndex, ",")
rs.Open "select * from MobileUser where substatus = 0", DBConnection
Do While Not (rs.EOF Or rs.BOF)
CheckDb = CheckDb & Trim(rs.Fields(0)) & ",1" & Trim(rs.Fields(1)) & Trim(rs.Fields(2))
rs.MoveNext
Loop
rs.Close
End Function