[ADO.NET]SqlDataAdapter執行StorePorecdure
Dim adCourseBlock As New SqlDataAdapter
Dim scmCourseBlockInsert As New SqlCommand
With scmCourseBlockInsert
.Connection = conn
.Transaction = trans
.CommandType = CommandType.StoredProcedure
.CommandText = "RG_AddCourseBlockData"
.Parameters.Add(New SqlParameter("@syear", SqlDbType.NChar, 3)).Value = cbObj.syear
.Parameters.Add(New SqlParameter("@semester", SqlDbType.NChar, 1)).Value = cbObj.semester
.Parameters.Add(New SqlParameter("@course_open_no", SqlDbType.NChar, 6)).Value = cbObj.course_open_no
.Parameters.Add(New SqlParameter("@block_course_no", SqlDbType.NChar, 7)).Value = cbObj.block_course_no
.Parameters.Add(New SqlParameter("@score", SqlDbType.SmallInt, 5)).Value = cbObj.score
.Parameters.Add(New SqlParameter("@operator_no", SqlDbType.NVarChar, 15)).Value = cbObj.operator_no
End With
scmCourseBlockInsert.ExecuteNonQuery()
Dim scmCourseBlockInsert As New SqlCommand
With scmCourseBlockInsert
.Connection = conn
.Transaction = trans
.CommandType = CommandType.StoredProcedure
.CommandText = "RG_AddCourseBlockData"
.Parameters.Add(New SqlParameter("@syear", SqlDbType.NChar, 3)).Value = cbObj.syear
.Parameters.Add(New SqlParameter("@semester", SqlDbType.NChar, 1)).Value = cbObj.semester
.Parameters.Add(New SqlParameter("@course_open_no", SqlDbType.NChar, 6)).Value = cbObj.course_open_no
.Parameters.Add(New SqlParameter("@block_course_no", SqlDbType.NChar, 7)).Value = cbObj.block_course_no
.Parameters.Add(New SqlParameter("@score", SqlDbType.SmallInt, 5)).Value = cbObj.score
.Parameters.Add(New SqlParameter("@operator_no", SqlDbType.NVarChar, 15)).Value = cbObj.operator_no
End With
scmCourseBlockInsert.ExecuteNonQuery()
留言