Ciao amici,
non riesco a capire perché mi da questo errore
BC30451: Nome 'btnUpdate' non dichiarato
alla riga 18!
Vi posto in allegato il codice.
-----------------------------------------------------------------
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDB" %>
<script runat="server">
'dichiaro la connessione
dim strConn as string = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("/mdb-database/database.mdb")
dim conn as new OleDBConnection (strConn)
dim intId as integer
sub page_load (obj as object, e as eventargs)
intId = request.QueryString("id")
if request.QueryString("action") = "delete" then
delete_record()
end if
if request.querystring("action") = "edit" then
--> btnUpdate.visible = true
btnAdd.Visible = false
bind_data()
else
btnUpdate.visible = false
btnAdd.Visible = true
end if
end sub
sub delete_record ()
'apro la connessione
dim objCmd as new OleDBCommand ("Delete from Modulistica where id = " & intID, Conn)
dim objReader as OleDbDataReader
try
objCmd.Connection.Open()
objCmd.ExecuteNonQuery()
response.Redirect("default.aspx?message=Record eliminato")
objCmd.Connection.Close()
catch ex as Exception
lblErrore.text = "Errore di accesso al database."
objCmd.Connection.Close()
end try
end sub
sub bind_data()
'apro la connessione
dim objCmd as new OleDBCommand ("Select * from Modulistica where id = " & intID, Conn)
dim objReader as OleDbDataReader
try
objCmd.Connection.Open()
objReader = objCmd.ExecuteReader()
dlManage.datasource = objReader
dlmanage.Databind()
objCmd.Connection.Close()
catch ex as Exception
lblErrore.text = "Errore di accesso al database."
objCmd.Connection.Close()
end try
end sub
sub update_record(obj as object, e as eventargs)
'apro la connessione
dim objCmd as new OleDBCommand ("Update Modulistica SET Titolo = 'prova' where id = " & intID, Conn)
dim objReader as OleDbDataReader
try
objCmd.Connection.Open()
objCmd.ExecuteNonQuery()
response.Redirect("default.aspx?message=Record aggiornato")
objCmd.Connection.Close()
catch ex as Exception
lblErrore.text = "Errore di accesso al database."
objCmd.Connection.Close()
end try
end sub
sub add_record()
dim strSQL as string = "INSERT INTO Modulistica (Titolo) VALUES ('" & tbTitolo.text & "')"
dim objConn as OleDBCommand (strSQL, Conn)
try
objCmd.Connection.Open()
objCmd.ExecuteNonQuery()
objCmd.Connection.Close()
response.Redirect("default.aspx?message=Nuovo record inserito")
catch
lblErrore.text = "Errore di accesso al database"
objCmd.Connection.Close()
end sub
'recupero la data di oggi
sub scrivi_data(obj as object, e as eventargs)
dim now as datetime = datetime.now
dim strOraAccesso as string = ""
dim strDataAccesso as string = ""
strOraAccesso = now.hour.tostring &":"& now.minute.tostring
strDataAccesso = now.day.tostring & "/" & now.month.tostring & "/" & now.year.tostring
lblOraAccesso.Text = strOraAccesso & " (" & strDataAccesso & ")"
end sub
</script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Gestore modulistica</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<table cellspacing="0" cellpadding="5" width="770" border="0">
<tbody>
<tr>
<td class="testo336699" valign="top" width="165">
Sono le <asp:Label id="lblOraAccesso" text="Ora non disponibile" onload="scrivi_data" runat="server"></asp:Label>
Utente: <span class="testo336699"></span>
</td>
<td valign="top" width="585">
<div align="right">
</div>
</td>
</tr>
</tbody>
</table>
<div align="left">
</div>
<table class="testo336699" cellspacing="0" cellpadding="0" width="770" border="0">
<tbody>
<tr>
<td width="50%" height="37">
<font size=+1>Gestore modulistica</font> </td>
<td width="50%">
<div align="right">Inserisci un nuovo modulo
</div>
</td>
</tr>
</tbody>
</table>
<form runat="server">
<table cellspacing="0" cellpadding="0" width="770" border="0">
<tbody>
<tr>
<td class="testo336699" valign="top" width="522" height="185">
<aspataList id="dlManage" runat="server" ForeColor="Black" CellPadding="4" BackColor="White" BorderColor="#CCCCCC" BorderWidth="1px" GridLines="Horizontal" BorderStyle="None">
<FooterStyle forecolor="Black" backcolor="#CCCC99"></FooterStyle>
<HeaderStyle font-bold="True" forecolor="White" backcolor="#333333"></HeaderStyle>
<SelectedItemStyle font-bold="True" forecolor="White" backcolor="#CC3333"></SelectedItemStyle>
<ItemTemplate>
<table width="100%" border="0" cellpadding="15">
<tr>
<td>
<asp:Label id="lblId" text='<%#container.dataitem("id")%>' visible="false" runat="server" CssClass="moduli"></asp:Label></td>
</tr>
<tr>
<td>
<asp:TextBox id="tbTitolo" runat="server" CssClass="moduli" Text='<%#container.dataitem("titolo")%>'></asp:TextBox>
<asp:button id="btnUpdate" runat="server" OnClick="update_record" Text="Effettua modifiche" CssClass="moduli"></asp:button>
<asp:button id="btnAdd" runat="server" OnClick="add_record" Text="Effettua inserimento" CssClass="moduli"></asp:button>
</td>
</tr>
</table>
</ItemTemplate>
</asp
<asp:Label id="lblErrore" runat="server"></asp:Label>
</p>
</td>
</tr>
</tbody>
</table>
</form>
</body>
</html>
Rispondi quotando
