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

Dim sel As String = "select КОД_УСЛУГИ, УСЛУГА, ТИП_УСЛУГИ, ЦЕНА, С, ПО from web_srv where УСЛУГА like :param1||'%' and app=:param2"             con = New Data.OracleClient.OracleConnection("user id=dev;data source=katestr;password=developer")

da = New Data.OracleClient.OracleDataAdapter(sel, con)             da.SelectCommand.Parameters.Add(New Data.OracleClient.OracleParameter("param1", System.Data.OracleClient.OracleType.VarChar, 50))             da.SelectCommand.Parameters.Add(New Data.OracleClient.OracleParameter("param2", System.Data.OracleClient.OracleType.Number, 50))             da.SelectCommand.Parameters("param1").Value = TextBox6.Text             da.SelectCommand.Parameters("param2").Value = TextBox2.Text             ds = New DataSet             da.Fill(ds, "APP_SRV")

DataGrid1.DataSource = ds

DataGrid1.DataBind()

End If

End Sub

Private Sub DropDownList4_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList4.Init

Dim ds As DataSet

Dim con As Data.OracleClient.OracleConnection

Dim da As Data.OracleClient.OracleDataAdapter

Dim sel As String = "select service,name_srv from services where typeid not in(select typeid from types where lower(name_type) like 'телефонная')"         con = New Data.OracleClient.OracleConnection("user id=dev;data source=katestr;password=developer")         da = New Data.OracleClient.OracleDataAdapter(sel, con)         ds = New DataSet         da.Fill(ds, "SRV")

DropDownList4.DataSource = ds

DropDownList4.DataTextField = "NAME_SRV"

DropDownList4.DataValueField = "SERVICE"

DropDownList4.DataBind()

End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

If TextBox2.Text = "" Then

Response.Redirect("choose_app.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 checkcommand As Data.OracleClient.OracleCommand             Dim check As String = "DEV.WEB_SRV_PRICE"

checkcommand = New Data.OracleClient.OracleCommand(check, con)             checkcommand.CommandType = CommandType.StoredProcedure       checkcommand.Parameters.Add(New Data.OracleClient.OracleParameter("srv1", System.Data.DbType.Int32, 10))

checkcommand.Parameters.Add(New Data.OracleClient.OracleParameter("tar", System.Data.DbType.Int32, 10))       checkcommand.Parameters.Add(New Data.OracleClient.OracleParameter("pr", System.Data.DbType.Int32, 10))             checkcommand.Parameters("pr").Direction = ParameterDirection.Output             checkcommand.Parameters("srv1").Value = DropDownList4.SelectedValue             checkcommand.Parameters("tar").Value = DropDownList2.SelectedValue             checkcommand.Connection.Open()

Try

checkcommand.ExecuteNonQuery()

Catch ex As Exception

End Try

TextBox7.Text = checkcommand.Parameters("pr").Value

End If

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

If TextBox2.Text = "" Then

Response.Redirect("choose_app.aspx")

Else

If TextBox5.Text = "" Then

Response.Redirect("choose_srv.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 checkcommand As Data.OracleClient.OracleCommand                 Dim check As String = "DEV.WEB_CLOSE_SRV"                 checkcommand = New Data.OracleClient.OracleCommand(check, con)                 checkcommand.CommandType = CommandType.StoredProcedure