Проектирование схемы БД в среде ERwin. Проблема избыточности данных. Проблема обновления данных. Проблема удаления данных., страница 15

checkcommand.Parameters.Add(New Data.OracleClient.OracleParameter("app1", System.Data.DbType.Int32, 10))

checkcommand.Parameters.Add(New Data.OracleClient.OracleParameter("tar", System.Data.DbType.Int32, 10))             checkcommand.Parameters("app1").Value = TextBox2.Text             checkcommand.Parameters("tar").Value = DropDownList2.SelectedValue

checkcommand.Connection.Open()

Try

checkcommand.ExecuteNonQuery()

Catch ex As Exception

End Try

Else

If TextBox1.Text = "" Then

Response.Redirect("no_msysdn.aspx")

Else

Dim ds As DataSet

Dim con As Data.OracleClient.OracleConnection                 con = New Data.OracleClient.OracleConnection("user id=dev;data

source=katestr;password=developer")

Dim icommand As Data.OracleClient.OracleCommand                 Dim ins As String = "DEV.WEB_INSERT_APP2"                 icommand = New Data.OracleClient.OracleCommand(ins, con)                 icommand.CommandType = CommandType.StoredProcedure

icommand.Parameters.Add(New Data.OracleClient.OracleParameter("app1", System.Data.DbType.Int32, 10))                 icommand.Parameters.Add(New Data.OracleClient.OracleParameter("tar", System.Data.DbType.Int32, 10))

icommand.Parameters.Add(New Data.OracleClient.OracleParameter("quant1", System.Data.OracleClient.OracleType.Number, 10))           icommand.Parameters.Add(New Data.OracleClient.OracleParameter("quant2", System.Data.DbType.Int32, 10))

icommand.Parameters.Add(New Data.OracleClient.OracleParameter("num1", System.Data.DbType.Int32, 10))

icommand.Parameters.Add(New Data.OracleClient.OracleParameter("num2", System.Data.DbType.Int32, 10))           icommand.Parameters.Add(New Data.OracleClient.OracleParameter("acc1", System.Data.DbType.Int32, 10))

icommand.Parameters.Add(New Data.OracleClient.OracleParameter("num3", System.Data.DbType.Int32, 10))

icommand.Parameters.Add(New Data.OracleClient.OracleParameter("st", System.Data.DbType.Int32, 10))

icommand.Parameters.Add(New Data.OracleClient.OracleParameter("cdate1", System.Data.OracleClient.OracleType.DateTime, 20))                 icommand.Parameters.Add(New Data.OracleClient.OracleParameter("msysdn1", System.Data.DbType.Int32, 20))                 icommand.Parameters("num1").Direction = ParameterDirection.Output                 icommand.Parameters("num2").Direction = ParameterDirection.Output                 icommand.Parameters("num3").Direction = ParameterDirection.Output                 icommand.Parameters("quant1").Direction = ParameterDirection.Output                 icommand.Parameters("quant2").Direction = ParameterDirection.Output                 icommand.Parameters("app1").Value = TextBox2.Text                 icommand.Parameters("tar").Value = DropDownList2.SelectedValue                 icommand.Parameters("cdate1").Value = TextBox4.Text                 icommand.Parameters("acc1").Value = DropDownList1.SelectedValue                 icommand.Parameters("st").Value = DropDownList3.SelectedValue                 icommand.Parameters("msysdn1").Value = TextBox1.Text

icommand.Connection.Open()

Try

icommand.ExecuteNonQuery()

Catch ex As Exception

End Try

TextBox5.Text = icommand.Parameters("quant1").Value

If icommand.Parameters("quant1").Value = 0 Then

Response.Redirect("no_service.aspx")

Else

If icommand.Parameters("quant2").Value = 0 Then

Response.Redirect("no_sim.aspx")

Else

If icommand.Parameters("num1").Value = 0 Then

Response.Redirect("no_money.aspx")

Else

If icommand.Parameters("num2").Value = 0 Then

Response.Redirect("no_active_mask.aspx")

Else

If icommand.Parameters("num3").Value = 0 Then