Nel mio progetto ho creato una pagina aspx (di seguito ho scritto il codice per intero). Come programma ho utilizzato "Microsoft Visual Web Developer 2005 Express Edition".
Volevo inserire un nuovo utente su un DataBase fatto con "Microsoft Office Access 2003".
Mi sapreste aiutare? E' molto importante.
Quale errore ho commesso?
Grazie per il vostro aiuto!
DEFAULT.ASPX
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Registrati</title>
<script language="javascript" type="text/javascript">
</script>
</head>
<body>
<form id="form1" runat="server">
<div>
Username:<asp:TextBox ID="Username" runat="server"></asp:TextBox><br />
Password:<asp:TextBox ID="Password" runat="server" TextMode="Password"></asp:TextBox><br />
Nome:<asp:TextBox ID="Nome" runat="server"></asp:TextBox><br />
Cognome:<asp:TextBox ID="Cognome" runat="server"></asp:TextBox><br />
Età:<asp:TextBox ID="Eta" runat="server"></asp:TextBox><br />
Nazione:<asp:TextBox ID="Nazione" runat="server"></asp:TextBox><br />
Città:<asp:TextBox ID="Citta" runat="server"></asp:TextBox><br />
Indirizzo e-mail:<asp:TextBox ID="Mail" runat="server"></asp:TextBox><br />
<asp:Button ID="Button" runat="server" Text="Registrati" /><br />
<asp:Label ID="Label" runat="server" Text=""></asp:Label></div>
</form>
</body>
</html>
DEFAULT.ASPX.VB
Imports System.Data.OleDb
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button.Click
Dim stringaconn As String
Dim percorso As String
Dim conn As OleDbConnection
Dim dbread As OleDbDataReader
Dim sql As String
Dim dbcomm As OleDbCommand
percorso = "C:\Documents and Settings\Utente\Desktop\Registrazione\Login.mdb"
stringaconn = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = " & percorso & " ; "
conn = New OleDbConnection(stringaconn)
conn.Open()
sql = "Insert Into Tabella (Username,Password,Nome,Cognome,Eta,Nazione,Citta,Mail)"
sql &= "Values ("
sql &= "'" & Username.Text & "',"
sql &= "'" & Password.Text & "',"
sql &= "'" & Nome.Text & "',"
sql &= "'" & Cognome.Text & "',"
sql &= "'" & Eta.Text & "',"
sql &= "'" & Nazione.Text & "',"
sql &= "'" & Citta.Text & "',"
sql &= "'" & Mail.Text & "'"
sql &= ")"
dbcomm = New OleDbCommand(sql, conn)
dbread = dbcomm.ExecuteReader()
End Sub
End Class
Volevo inserire un nuovo utente su un DataBase fatto con "Microsoft Office Access 2003".
Mi sapreste aiutare? E' molto importante.
Quale errore ho commesso?
Grazie per il vostro aiuto!
DEFAULT.ASPX
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Registrati</title>
<script language="javascript" type="text/javascript">
</script>
</head>
<body>
<form id="form1" runat="server">
<div>
Username:<asp:TextBox ID="Username" runat="server"></asp:TextBox><br />
Password:<asp:TextBox ID="Password" runat="server" TextMode="Password"></asp:TextBox><br />
Nome:<asp:TextBox ID="Nome" runat="server"></asp:TextBox><br />
Cognome:<asp:TextBox ID="Cognome" runat="server"></asp:TextBox><br />
Età:<asp:TextBox ID="Eta" runat="server"></asp:TextBox><br />
Nazione:<asp:TextBox ID="Nazione" runat="server"></asp:TextBox><br />
Città:<asp:TextBox ID="Citta" runat="server"></asp:TextBox><br />
Indirizzo e-mail:<asp:TextBox ID="Mail" runat="server"></asp:TextBox><br />
<asp:Button ID="Button" runat="server" Text="Registrati" /><br />
<asp:Label ID="Label" runat="server" Text=""></asp:Label></div>
</form>
</body>
</html>
DEFAULT.ASPX.VB
Imports System.Data.OleDb
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button.Click
Dim stringaconn As String
Dim percorso As String
Dim conn As OleDbConnection
Dim dbread As OleDbDataReader
Dim sql As String
Dim dbcomm As OleDbCommand
percorso = "C:\Documents and Settings\Utente\Desktop\Registrazione\Login.mdb"
stringaconn = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = " & percorso & " ; "
conn = New OleDbConnection(stringaconn)
conn.Open()
sql = "Insert Into Tabella (Username,Password,Nome,Cognome,Eta,Nazione,Citta,Mail)"
sql &= "Values ("
sql &= "'" & Username.Text & "',"
sql &= "'" & Password.Text & "',"
sql &= "'" & Nome.Text & "',"
sql &= "'" & Cognome.Text & "',"
sql &= "'" & Eta.Text & "',"
sql &= "'" & Nazione.Text & "',"
sql &= "'" & Citta.Text & "',"
sql &= "'" & Mail.Text & "'"
sql &= ")"
dbcomm = New OleDbCommand(sql, conn)
dbread = dbcomm.ExecuteReader()
End Sub
End Class