vb中timer下3秒执行一次以下代码,会不会执行不完啊?
在vb中timer下3秒执行一次以下代码,可是数据库记录中有时候隔6秒甚至9秒才收到一条。是不是因为数据量太大执行不完啊?可是3秒钟应该已经很长了啊!
s = V(0) + V(1) + V(2) + V(3) + V(4) + V(5) + V(6) + V(7) + V(8) + V(9) + _
V(10) + V(11) + V(12) + V(13) + V(14) + V(15) + V(16) + V(17) + V(18) + V(19) + _
V(20) + V(21) + V(22) + V(23) + V(24) + V(25) + V(26) + V(27) + V(28) + V(29) + _
V(30) + V(31) + V(32) + V(33) + V(34) + V(35) + V(36) + V(37) + V(38) + V(39) + _
V(40) + V(41) + V(42) + V(43) + V(44) + V(45) + V(46) + V(47) + V(48) + V(49) + _
V(50) + V(51) + V(52) + V(53) + V(54) + V(55) + V(56) + V(57) + V(58) + V(59) + _
V(60) + V(61) + V(62) + V(63) + V(64) + V(65) + V(66) + V(67) + V(68) + V(69) + _
V(70) + V(71) + V(72) + V(73) + V(74) + V(75) + V(76) + V(77) + V(78) + V(79) + _
V(80) + V(81) + V(82) + V(83) + V(84) + V(85) + V(6) + V(7) + V(8) + V(9) + _
V(90) + V(91) + V(92) + V(93) + V(94) + V(95) + V(86) + V(87) + V(88) + V(89) + _
V(100) + V(101) + V(102) + V(103) + V(104) + V(105) + V(106) + V(107) + V(108) + V(109) + _
V(110) + V(111) + V(112) + V(113) + V(114) + V(115) + V(116) + V(117) + V(118) + V(119) + _
V(120) + V(121) + V(122) + V(123) + V(124) + V(125) + V(126) + V(127) + V(128) + V(129) + _
V(130) + V(131) + V(132) + V(133) + V(134) + V(135) + V(136) + V(137) + V(138) + V(139) + _
V(140) + V(141) + V(142) + V(143) + V(144) + V(145) + V(146) + V(147) + V(148) + V(149) + _
V(150) + V(151) + V(152) + V(153) + V(154) + V(155) + _
L(0) + L(1) + L(2) + L(3) + L(4) + L(5) + L(6) + L(7) + L(8) + L(9) + _
L(10) + L(11) + L(12) + L(13) + L(14) + L(15) + L(16) + L(17) + L(18) + L(19) + _
L(20) + L(21) + L(22) + L(23) + L(24) + L(25) + L(26) + L(27) + L(28) + L(29)
For X = 1 To 5
On Error Resume Next
Winsock(X).SendData s
Next X
Text1.Text = Winsock.Count
sql = "insert into T1(DateTime,V1,V2,V3,V4,V5,V6,V7,V8,V9,V10,V11,V12,V13,V14,V15,V16,V17,V18,V19,V20,V21,V22,V23,V24,V25,V26,V27,V28,V29,V30,V31,V32,V33,V34,V35,V36,V37,V38,V39,V40,V41,V42,V43,V44,V45,V46,V47,V48,V49,V50,V51,V52,V53,V54,V55,V56,V57,V58,V59,V60,V61,V62,V63,V64,V65,V66,V67,V68,V69,V70,V71,V72,V73,V74,V75,V76,V77,V78,V101,V102,V103,V104,V105,V106,V107,V108,V109,V110,V111,V112,V113,V114,V115,V116,V117,V118,V119,V120,V121,V122,V123,V124,V125,V126,V127,V128,V129,V130,V131,V132,V133,V134,V135,V136,V137,V138,V139,V140,V141,V142,V143,V144,V145,V146,V147,V148,V149,V150,V151,V152,V153,V154,V155,V156,V157,V158,V159,V160,V161,V162,V163,V164,V165,V166,V167,V168,V169,V170,V171,V172,V173,V174,V175,V176,V177,V178,L,L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13,L14,L15,L16,L17,L18,L19,L20,L21,L22,L23,L24,L25,L26,L27,L28,L29)" & _
_
"values ('" & DateTime.Now() & "','" & V(0) & "','" & V(1) & "','" & V(2) & "','" & V(3) & "','" & V(4) & "','" & V(5) & "','" & V(6) & "','" & V(7) & "','" & V(8) & "','" & V(9) & "','" & V(10) & "','" & V(11) & "','" & V(12) & "','" & V(13) & "','" & V(14) & "','" & V(15) & "','" & V(16) & "','" & V(17) & "','" & V(18) & "','" & V(19) & "','" & V(20) & "','" & V(21) & "','" & V(22) & "','" & V(23) & "','" & V(24) & "','" & V(25) & _
_
"','" & V(26) & "','" & V(27) & "','" & V(28) & "','" & V(29) & "','" & V(30) & "','" & V(31) & "','" & V(32) & "','" & V(33) & "','" & V(34) & "','" & V(35) & "','" & V(36) & "','" & V(37) & "','" & V(38) & "','" & V(39) & "','" & V(40) & "','" & V(41) & "','" & V(42) & "','" & V(43) & "','" & V(44) & "','" & V(45) & "','" & V(46) & "','" & V(47) & "','" & V(48) & "','" & V(49) & "','" & V(50) & "','" & V(51) & "','" & V(52) & "','" & V(53) & "','" & V(54) & "','" & V(55) & "','" & V(56) & "','" & V(57) & "','" & V(58) & "','" & V(59) & "','" & V(60) & "','" & V(61) & "','" & V(62) & "','" & V(63) & "','" & V(64) & "','" & V(65) & _
_
"','" & V(66) & "','" & V(67) & "','" & V(68) & "','" & V(69) & "','" & V(70) & "','" & V(71) & "','" & V(72) & "','" & V(73) & "','" & V(74) & "','" & V(75) & "','" & V(76) & "','" & V(77) & "','" & V(78) & "','" & V(79) & "','" & V(80) & "','" & V(81) & "','" & V(82) & "','" & V(83) & "','" & V(84) & "','" & V(85) & "','" & V(86) & "','" & V(87) & "','" & V(88) & "','" & V(89) & "','" & V(90) & "','" & V(91) & "','" & V(92) & "','" & V(93) & "','" & V(94) & "','" & V(95) & "','" & V(96) & "','" & V(97) & "','" & V(98) & "','" & V(99) & "','" & V(100) & "','" & V(101) & "','" & V(102) & "','" & V(103) & "','" & V(104) & _
_
"','" & V(105) & "','" & V(106) & "','" & V(107) & "','" & V(108) & "','" & V(109) & "','" & V(110) & "','" & V(111) & "','" & V(112) & "','" & V(113) & "','" & V(114) & "','" & V(115) & "','" & V(116) & "','" & V(117) & "','" & V(118) & "','" & V(119) & "','" & V(120) & "','" & V(121) & "','" & V(122) & "','" & V(123) & "','" & V(124) & "','" & V(125) & "','" & V(126) & "','" & V(127) & "','" & V(128) & "','" & V(129) & "','" & V(130) & "','" & V(131) & "','" & V(132) & "','" & V(133) & "','" & V(134) & "','" & V(135) & "','" & V(136) & "','" & V(137) & "','" & V(138) & "','" & V(139) & "','" & V(140) & "','" & V(141) & "','" & V(142) & "','" & V(143) & "','" & V(144) & _
_
"','" & V(145) & "','" & V(146) & "','" & V(147) & "','" & V(148) & "','" & V(149) & "','" & V(150) & "','" & V(151) & "','" & V(152) & "','" & V(153) & "','" & V(154) & "','" & V(155) & "','" & L(0) & "','" & L(1) & "','" & L(2) & "','" & L(3) & "','" & L(4) & "','" & L(5) & "','" & L(6) & "','" & L(7) & "','" & L(8) & "','" & L(9) & "','" & L(10) & "','" & L(11) & "','" & L(12) & "','" & L(13) & "','" & L(14) & "','" & L(15) & "','" & L(16) & "','" & L(17) & "','" & L(18) & "','" & L(19) & "','" & L(20) & "','" & L(21) & "','" & L(22) & _
_
"','" & L(23) & "','" & L(24) & "','" & L(25) & "','" & L(26) & "','" & L(27) & "','" & L(28) & "','" & L(29) & "')"
adoCnn.Execute sql