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