- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 循环SQLCommand (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123170)
-- 发布时间：2018/8/9 10:44:00
-- 循环SQLCommand
If e.Values.Count > 1 Then
Dim ddbh As String = Functions.Execute("bhsc")
Dim cmd As New SQLCommand
Dim dt1 As DataTable
cmd.C
bh = e.Values("编号")
Dim ev As Integer = e.Values("次数")
For i As Integer = 1 To ev
Dim ddmxbh As String = Functions.Execute("ddmxbh")
cmd.CommandText = "Insert Into 订单明细表 (日期,编号,品名,订单明细编号,折扣,单价,订单编号) Values(?,?,?,?,?,?,?)"
cmd.Parameters.Add("@日期",Date.now)
cmd.Parameters.Add("@编号",bh)
cmd.Parameters.Add("@品名",e.Values("品名"))
cmd.Parameters.Add("@订单明细编号",ddmxbh)
cmd.Parameters.Add("@折扣",e.Values("折扣"))
cmd.Parameters.Add("@单价",e.Values("单价"))
cmd.Parameters.Add("@订单编号",ddbh)
cmd.ExecuteNonQuery
Next
End If
此主题相关图片如下：qq截图20180809103310.png
我想请问下用SQLCommand循环新增20行应该怎么写。。
-- 发布时间：2018/8/9 10:51:00
--
好吧知道了， Dim cmd As New SQLCommand与cmd.c也要放到循环内。。
-- 发布时间：2018/8/9 10:57:00
--
是的，要重新new一个对象。