Try
Dim _id As Integer
For i=1 To 20
cmd.BeginTransaction()
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()
cmd.commit()
Next
Catch ex As Exception
cmd.Rollback()
MessageBox.Show(ex.Message)
End Try
加好友 
发短信
Post By：2021/8/25 10:36:00 [显示全部帖子]
