الاجرائات المخزنة - نسخة قابلة للطباعة

كود :
Dim cmd As New SqlCommand

        cmd.CommandText = StordProce.Text

        cmd.Connection = con

        cmd.CommandType = CommandType.StoredProcedure

        Dim par(If(StordProce.Text = "UpdateStudentData", 19, 18)) As SqlParameter

        par(0) = New SqlParameter("@StudentFName", SqlDbType.NVarChar)

        par(0).Value = StudentFName.Text

        par(0).IsNullable = True

        par(1) = New SqlParameter("@StudentsName", SqlDbType.NVarChar)

        par(1).Value = StudentSName.Text

        par(1).IsNullable = True

        par(2) = New SqlParameter("@StudenttName", SqlDbType.NVarChar)

        par(2).Value = StudentTName.Text

        par(2).IsNullable = True

        par(3) = New SqlParameter("@StudentFoName", SqlDbType.NVarChar)

        par(3).Value = StudentFoName.Text

        par(3).IsNullable = True

        par(4) = New SqlParameter("@StudentLName", SqlDbType.NVarChar)

        par(4).Value = StudentLName.Text

        par(4).IsNullable = True

        par(5) = New SqlParameter("@StudentCLass", SqlDbType.Int)

        par(5).Value = StudentClass.Text

        par(5).IsNullable = True

        par(6) = New SqlParameter("@StudentPhone", SqlDbType.Int)

        par(6).Value = StudentPhone.Text

        par(6).IsNullable = True

        par(7) = New SqlParameter("@StudentPhoto", SqlDbType.Image)

        par(7).Value = StudentImage

        par(7).IsNullable = True

        par(8) = New SqlParameter("@StudentNatio", SqlDbType.NVarChar)

        par(8).Value = StudentNatio.Text

        par(8).IsNullable = True

        par(9) = New SqlParameter("@StudentSex", SqlDbType.NVarChar)

        par(9).Value = StudentSex.Text

        par(9).IsNullable = True

        par(10) = New SqlParameter("@StudentRel", SqlDbType.NVarChar)

        par(10).Value = StudentReli.Text

        par(10).IsNullable = True

        par(11) = New SqlParameter("@BirthIN", SqlDbType.Date)

        par(11).Value = BirthIn

        par(11).IsNullable = True

        par(12) = New SqlParameter("@FatherJob", SqlDbType.NVarChar)

        par(12).Value = FatherJob.Text

        par(12).IsNullable = True

        par(13) = New SqlParameter("@Place", SqlDbType.NVarChar)

        par(13).Value = Place.Text

        par(13).IsNullable = True

        par(14) = New SqlParameter("@Department", SqlDbType.NVarChar)

        par(14).Value = Department.Text

        par(14).IsNullable = True

        par(15) = New SqlParameter("@Mohafatha", SqlDbType.NVarChar)

        par(15).Value = Mohafatha.Text

        par(15).IsNullable = True

        par(16) = New SqlParameter("@FatherAddress", SqlDbType.NVarChar)

        par(16).Value = FatherAddress.Text

        par(16).IsNullable = True

        par(17) = New SqlParameter("@FatherNum", SqlDbType.Int)

        par(17).Value = FatherNum.Text

        par(17).IsNullable = True

        par(18) = New SqlParameter("@FatherName", SqlDbType.NVarChar)

        par(18).Value = FatherName.Text

        par(18).IsNullable = True

        If StordProce.EditValue = "UpdateStudentData" Then

            par(19) = New SqlParameter("@StudentIID", SqlDbType.Int)

            par(19).Value = StudentID.Text

        End If

        cmd.Parameters.AddRange(par)

        cmd.ExecuteNonQuery()