te l'ho detto che sono tarda io 
eccoti il codice
codice:
Public Class ModificaDisco2_bak
Inherits System.Web.UI.Page
Protected WithEvents dbConnessione As System.Data.SqlClient.SqlConnection
Protected WithEvents daElenco As System.Data.SqlClient.SqlDataAdapter
Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
Protected WithEvents DsElenco1 As Dischi.dsElenco
Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
Protected WithEvents lblerrori As System.Web.UI.WebControls.Label
Protected WithEvents Message As System.Web.UI.HtmlControls.HtmlGenericControl
Protected WithEvents MyDataGrid As System.Web.UI.WebControls.DataGrid
#Region " Codice generato da Progettazione Web Form "
'Chiamata richiesta da Progettazione Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.dbConnessione = New System.Data.SqlClient.SqlConnection()
Me.daElenco = New System.Data.SqlClient.SqlDataAdapter()
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
Me.DsElenco1 = New Dischi.dsElenco()
CType(Me.DsElenco1, System.ComponentModel.ISupportInitialize).BeginInit()
'
'dbConnessione
'
Me.dbConnessione.ConnectionString = "data source=CORINNA;initial catalog=CD;integrated security=SSPI;persist security " & _
"info=False;workstation id=CORINNA;packet size=4096"
'
'daElenco
'
Me.daElenco.SelectCommand = Me.SqlSelectCommand1
Me.daElenco.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Dischi", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("IDTipologia", "IDTipologia"), New System.Data.Common.DataColumnMapping("Descrizione", "Descrizione"), New System.Data.Common.DataColumnMapping("Etichetta", "Etichetta"), New System.Data.Common.DataColumnMapping("IDDisco", "IDDisco")})})
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText = "SELECT IDTipologia, Descrizione, Etichetta, IDDisco FROM Dischi"
Me.SqlSelectCommand1.Connection = Me.dbConnessione
'
'DsElenco1
'
Me.DsElenco1.DataSetName = "dsElenco"
Me.DsElenco1.Locale = New System.Globalization.CultureInfo("it-IT")
Me.DsElenco1.Namespace = "http://www.tempuri.org/dsElenco.xsd"
CType(Me.DsElenco1, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: questa chiamata al metodo è richiesta da Progettazione Web Form.
'Non modificarla nell'editor del codice.
InitializeComponent()
End Sub
#End Region
Sub Paginazione(ByVal sender As System.Object, ByVal E As DataGridPageChangedEventArgs)
Try
'per la paginazione
MyDataGrid.CurrentPageIndex = E.NewPageIndex
MyDataGrid.DataBind()
Catch ex As Exception
'lblerrori.Text = ex.Message
Call BindGrid()
End Try
End Sub
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Inserire qui il codice utente necessario per inizializzare la pagina
If Not (IsPostBack) Then
BindGrid()
End If
End Sub
Sub MyDataGrid_Edit(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = CInt(E.Item.ItemIndex)
BindGrid()
End Sub
Sub MyDataGrid_Cancel(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
MyDataGrid.EditItemIndex = -1
BindGrid()
End Sub
Sub BindGrid()
daElenco.Fill(DsElenco1)
Page.DataBind()
End Sub
Sub MyDataGrid_Update(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
'LA MODIFICA------------------------------------------------------------------------>
Dim idKey As Integer
Dim SQL As String
Dim oggParametro As SqlClient.SqlParameter
Dim cmd As SqlClient.SqlCommand
idKey = MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))
lblerrori.Text = idKey
Dim strEti As TextBox = E.Item.FindControl("eti")
Dim strDesc As TextBox = E.Item.FindControl("desc")
Dim strEti1 As String
Dim strDesc1 As String
strEti1 = strEti.Text
strDesc1 = strDesc.Text
strEti1 = Replace(strEti1, "'", "''")
strDesc1 = Replace(strDesc1, "'", "''")
Dim sql2 As String
sql2 = "update dischi set Etichetta ='" & strEti1 & "', Descrizione ='" & strDesc1 & "' where idDisco =" & idKey
cmd = New SqlClient.SqlCommand(sql2, dbConnessione)
lblerrori.Text = sql2
dbConnessione.Open()
Try
cmd.ExecuteNonQuery()
Message.InnerHtml = "Record aggiornato correttamente
Chiudi"
MyDataGrid.EditItemIndex = -1
Catch Exp As Exception
Message.InnerHtml = Exp.Message
End Try
dbConnessione.Close()
End Sub
'ELIMINAZIONE ------------------------------------------------------------------------------------>
Sub MyDatagrid_Delete(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs)
Dim ID As Integer
Dim Command As SqlClient.SqlCommand
Dim StrSql As String
Dim Str2 As String
Dim Str3 As String
Dim Str4 As String
Dim str5 As String
Dim cmd2 As SqlClient.SqlCommand
Dim cmd3 As SqlClient.SqlCommand
Dim cmd4 As SqlClient.SqlCommand
Dim cmd5 As SqlClient.SqlCommand
ID = MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))
StrSql = "DELETE FROM Dischi WHERE idDisco =" & ID
Str2 = "DELETE FROM dettaglioDiscoAutori WHERE idDisco =" & ID
Str3 = "DELETE FROM dettaglioDischiCaseDiscografiche WHERE idDisco =" & ID
Str4 = "DELETE FROM Contenuti WHERE idDisco =" & ID
str5 = "DELETE FROM dettaglioDischiCategorie WHERE idDisco =" & ID
Command = New SqlClient.SqlCommand(StrSql, dbConnessione)
cmd2 = New SqlClient.SqlCommand(Str2, dbConnessione)
cmd3 = New SqlClient.SqlCommand(Str3, dbConnessione)
cmd4 = New SqlClient.SqlCommand(Str4, dbConnessione)
cmd5 = New SqlClient.SqlCommand(str5, dbConnessione)
dbConnessione.Open()
Try
cmd2.ExecuteNonQuery()
Catch Exp As Exception
Message.InnerHtml = Exp.Message
End Try
Try
cmd5.ExecuteNonQuery()
Catch Exp As Exception
Message.InnerHtml = Exp.Message
End Try
Try
cmd3.ExecuteNonQuery()
Catch Exp As Exception
Message.InnerHtml = Exp.Message
End Try
Try
cmd4.ExecuteNonQuery()
Catch Exp As Exception
Message.InnerHtml = Exp.Message
End Try
Try
Command.ExecuteNonQuery()
Message.InnerHtml = "Record cancellato correttamente
Chiudi"
MyDataGrid.EditItemIndex = -1
Catch Exp As Exception
Message.InnerHtml = Exp.Message
End Try
dbConnessione.Close()
End Sub
End Class
sulla pagina
codice:
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="ModificaDisco2_bak.aspx.vb" Inherits="Dischi.ModificaDisco2_bak"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>Modifica Disco</title>
<LINK href="kkk.css" rel="stylesheet">
<meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">
<meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body style="FONT: 10pt verdana">
<div align="center">
<form id="Form1" runat="server">
<h2>Modifica / Elimina</h2>
[img]images\edit.gif[/img]</P>
<span id="Message" runat="server">
<ASP:DATAGRID id=MyDataGrid runat="server" OnPageIndexChanged="Paginazione" AllowPaging="True" Font-Names="Verdana" AutoGenerateColumns="False" Width="80%" CellPadding="0" Font-Name="Verdana" HeaderStyle-BackColor="#aaaadd" OnEditCommand="MyDataGrid_Edit" OnCancelCommand="MyDataGrid_Cancel" OnUpdateCommand="MyDataGrid_Update" DataSource="<%# DsElenco1 %>" DataKeyField="IDDisco" OnDeleteCommand="Mydatagrid_Delete">
<AlternatingItemStyle BackColor="White"></AlternatingItemStyle>
<HeaderStyle ForeColor="White" BackColor="MidnightBlue"></HeaderStyle>
<Columns>
<asp:BoundColumn Visible="False" DataField="IDDisco" SortExpression="IDDisco" HeaderText="IDDisco"></asp:BoundColumn>
<asp:TemplateColumn HeaderText="Nome">
<ItemTemplate>
<asp:Label runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Etichetta") %>'>
</asp:Label>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox runat="server" ID="Eti" Text='<%# DataBinder.Eval(Container, "DataItem.Etichetta") %>'>
</asp:TextBox>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Descrizione">
<ItemTemplate>
<asp:Label runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Descrizione") %>'>
</asp:Label>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox ID="Desc" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Descrizione") %>'>
</asp:TextBox>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:EditCommandColumn HeaderImageUrl="images\edit_piccina.gif" ButtonType="LinkButton" UpdateText="Salva" CancelText="Annulla" EditText="Mod."></asp:EditCommandColumn>
<asp:ButtonColumn Text="Canc." HeaderImageUrl="images\delete_piccino.gif" CommandName="Delete"></asp:ButtonColumn>
</Columns>
<PagerStyle Position="TopAndBottom" PageButtonCount="3" Mode="NumericPages"></PagerStyle>
</ASP:DATAGRID>
<asp:label id="lblerrori" runat="server"></asp:label></span></form>
</div>
</body>
</HTML>
Rispondi quotando
