I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2
OttoVonFush
OttoVonFush
il 15 ottobre 2003 alle 19:39
6 messaggi dal 13 ottobre 2003
Non funziona. Facciamo una cosa: ti mostro il codice, dimmi come faresti tu per l'inserimento. L'ho modificato come mi hai detto aggiungendo i ? ma ancora non va. Uso Access e come linguaggio VB, come puoi vedere.

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">

dim Conn as new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=connessione al mio database")

sub Submit(obj as object,e as eventargs)

dim objCmd as OledbCommand
dim strSQL as string

strSQL = "INSERT INTO TblUsers (Nome, Cognome, Username, Password, ConfermaPSW, Email, Indirizzo, Citta, Stato, CAP, Telefono) VALUES (?,?,?,?,?,?,?,?,?,?,?)"

objCmd = new OleDbCommand(strSQL,Conn)

QUELLO CHE NON CAPISCO è QUI. tbName e compagnia bella sono gli id delle textbox e la proprietà text mi mostra il contenuto. E fin qui ok. Ma @Nome, @Cognome e così via cosa rappresentano???
Il codice seguente è giusto??? Praticamente queste istruzioni che seguono che fanno?

objCmd.Parameters.Add("@Nome",tbName.Text)
objCmd.Parameters.Add("@Cognome",tbSurname.Text)
objCmd.Parameters.Add("@Username",tbUser.Text)
objCmd.Parameters.Add("@Password",tbPsw.Text)
objCmd.Parameters.Add("@ConfermaPsw",tbPsw2.Text)
objCmd.Parameters.Add("@Email",tbemail.Text)
objCmd.Parameters.Add("@Indirizzo",tbAddress.Text)
objCmd.Parameters.Add("@Citta",tbCity.Text)
objCmd.Parameters.Add("@Stato",tbState.Text)
objCmd.Parameters.Add("@Cap",tbCap.Text)
objCmd.Parameters.Add("@Telefono",tbPhone.Text)

Conn.Open()
objCmd.ExecuteNonQuery()
Conn.Close()

end sub

</script>
RispondiQuoting
dracula
dracula
il 16 ottobre 2003 alle 08:58
575 messaggi dal 06 settembre 2002
Contributi
Ho Fatto 3 Operazioni.
1. Rinominare la tabella in TblUtenti
2. Rinominare 2 campi in UsernameX e PasswordZ
3. Iserire l'utente aspnet nei permessi del database in modifica e scrittura
(Tasto destro sul Db/ Protezione aggiungere aspnet in Modifica e scrittura)
e Ora Funziona.
Ecco il Codice.
Imports System.Data
Imports System.Data.OleDb

Public Class Registrazione
Inherits System.Web.UI.Page
Protected WithEvents btSalva As System.Web.UI.WebControls.Button
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox

#Region " Codice generato da Progettazione Web Form "

'Chiamata richiesta da Progettazione Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

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

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
End Sub

Private Sub btSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSalva.Click
Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Test\Data\db1.mdb;")
Dim strSQL As String = "INSERT INTO TblUtenti (Nome, Cognome, UsernameX, PasswordZ, ConfermaPSW, Email, Indirizzo, Citta, Stato, CAP, Telefono) VALUES (?,?,?,?,?,?,?,?,?,?,?)"
Dim objCmd As OleDbCommand = New OleDbCommand(strSQL, Conn)

objCmd.Parameters.Add("@Nome", OleDbType.VarWChar).Value = TextBox1.Text
objCmd.Parameters.Add("@Cognome", OleDbType.VarWChar).Value = TextBox1.Text
objCmd.Parameters.Add("@UsernameX", OleDbType.VarWChar).Value = TextBox1.Text
objCmd.Parameters.Add("@PasswordZ", OleDbType.VarWChar).Value = TextBox1.Text
objCmd.Parameters.Add("@ConfermaPsw", OleDbType.VarWChar).Value = TextBox1.Text
objCmd.Parameters.Add("@Email", OleDbType.VarWChar).Value = TextBox1.Text
objCmd.Parameters.Add("@Indirizzo", OleDbType.VarWChar).Value = TextBox1.Text
objCmd.Parameters.Add("@Citta", OleDbType.VarWChar).Value = TextBox1.Text
objCmd.Parameters.Add("@Stato", OleDbType.VarWChar).Value = TextBox1.Text
objCmd.Parameters.Add("@Cap", OleDbType.VarWChar).Value = TextBox1.Text
objCmd.Parameters.Add("@Telefono", OleDbType.VarWChar).Value = TextBox1.Text
Try

Conn.Open()
objCmd.ExecuteNonQuery()
Conn.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
If Conn.State = ConnectionState.Open Then Conn.Close()
End Try
End Sub
End Class
RispondiQuoting
gianca42
gianca42
il 16 ottobre 2003 alle 10:26
217 messaggi dal 06 settembre 2002
www.projectpp.it
Era capitato anche a me con il campo password in access. Infatti lo dovetti rinominare, e ci persi quasi una giornata di lavoro per capirlo.
Giancarlo
RispondiQuoting
OttoVonFush
OttoVonFush
il 17 ottobre 2003 alle 11:18
6 messaggi dal 13 ottobre 2003
FUNZIONA!!! Il problema era proprio nelle tabelle del database.
Grazie ancora per l'aiuto!!!
Ciao.
RispondiQuoting
1 2

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.