Try
cmd.BeginTransaction()
Dim _id As Integer
For i=1 To 20
cmd.Parameters.Clear()
cmd.CommandText = "insert into [tb_test] (p_id,c_date) values (?,?);select SCOPE_IDENTITY() as id"
cmd.Parameters.Add("@p_id",_platid)
cmd.Parameters.Add("@c_date",Date.Today)
_id = cmd.ExecuteScalar()
cmd.Parameters.Clear()
cmd.CommandText = "insert into [tb_test_detail] (p_id,test_id) values (?,?)"
cmd.Parameters.Add("@p_id",_platid)
cmd.Parameters.Add("@test_id",_id) ' 主表id
cmd.ExecuteNonQuery()
Next
cmd.commit()
Catch ex As Exception
cmd.Rollback()
MessageBox.Show(ex.Message)
End Try
加好友 
发短信
Post By：2021/8/25 10:23:00 [显示全部帖子]
