- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 数组问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140706)
-- 发布时间：2019/9/11 19:03:00
-- 数组问题
老师，
如下问题原因是什么呢？
此主题相关图片如下：微信截图_20190911190231.png
此主题相关图片如下：微信截图_20190911190255.png
Dim cmd As new SQLCommand
cmd.C
Dim Multi As String = "02000909111752071741,13559053751,DELIVRD,2019-09-11 17:52:19^02000909111752071740,13559053751,DELIVRD,2019-09-11 17:52:19^02000909111752071739,13559053751,DELIVRD,2019-09-11 17:52:20^02000909111752071742,13559053751,DELIVRD,2019-09-11 17:52:20^"
Dim Values() As String
Dim Values2() As String
Values = Multi.split("^")
For Index As Integer = 0 To Values.Length - 2
Values2 = Values(Index).split(",")
cmd.CommandText = "Insert Into 通用版发短信接收报告 (msgid, 手机号码, 状态码,发送时间) Values(?,?,?,?)"
cmd.Parameters.Add("@msgid",values2(0))
cmd.Parameters.Add("@手机号码",values2(1))
cmd.Parameters.Add("@状态码",values2(2))
cmd.Parameters.Add("@发送时间",values2(3))
cmd.ExecuteNonQuery()
output.show(values2(0))
output.show(values2(1))
output.show(values2(2))
output.show(values2(3))
Next
-- 发布时间：2019/9/12 9:00:00
--
For Index As Integer = 0 To Values.Length - 2
Values2 = Values(Index).split(",")
cmd.Parameters.clear