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()
arrow
arrow
    全站熱搜

    湯瑪的吳 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄