none
Programmino semplice in ADO.NET con Access che non funziona RRS feed

  • Domanda

  • Ho due form.

    Nel primo vengo invitato ad inserire username e password; in caso contrario mi posso registrare se non ne sono in possesso.

    In questo secondo caso vengo indirizzato al form2 dove potrò inserire nome, cognome, nickname, mail, username e password.

    Se mi sarò registrato, cliccando su un tasto registra, mi verrà inviata una mail all indirizzo fornito come indirizzo mail. Avrò così completato la registrazione e questi dati verranno messi su un file Access presente solo sul mio computer e con i campi nome, cognome, nickname, mail, username e password. Questo sarà il record da registrare, se non già presente.


    • Modificato Marcone72 martedì 17 maggio 2016 08:51
    lunedì 16 maggio 2016 17:15

Risposte

Tutte le risposte

  • Ciao Marcone72

    intervengo in veste di moderatore di questo Forum.

    Ti invito a leggere il [Manifesto] Regole e Aspetti generali all'uso dei forum MSDN 

    In particolare :

    Assegnare un titolo significativo ai post!

    Se hai già usato le funzionalità di ricerca e non hai trovato risposte al tuo problema, è il momento di creare un nuovo post. Come prima cosa è necessario attirare l'attenzione di chi risponde assegnando al tuo post un titolo significativo e non generico.

    Alcuni suggerimenti su come assegnare un buon titolo:

    -          devono solo dare l'idea dell'argomento che riguarda il problema

    -          non devono contenere domande

    -          evitare le parole come "aiuto!!!" o "domanda"

    Alcuni esempi di titoli potrebbero essere "Puntatori in VB.NET" oppure "Deploy Windows Service" o ancora "Visibilità tra due form".


    Ciao


    Renato Marzaro

    Microsoft MVP .NET

    http://community.visual-basic.it/renato

    martedì 17 maggio 2016 07:44
    Moderatore
  • Ciao Marcone72,

    e quindi quale sarebbe il tuo quesito?

    Se cerchi qualcuno che sviluppi per te questo programma hai sbagliato tipo di sito a cui rivolgerti.

    Se hai un problema specifico nella realizzazione questo è il Forum giusto ma devi farci vedere il tuo codice dettagliando dove e perché sei bloccato oppure specificare nel dettaglio dove sei arrivato e cosa ti blocca.

    Ciao


    Renato Marzaro

    Microsoft MVP .NET

    http://community.visual-basic.it/renato

    martedì 17 maggio 2016 07:47
    Moderatore
  •         Dim objconn As OleDbConnection
            Dim stringaconn As String
            Dim stringasql As String
            Dim objcomm As OleDbCommand

            stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source="
            stringaconn = stringaconn & "d:\datab.mdb"
            objconn = New OleDbConnection(stringaconn)
            objconn.Open()

            stringasql = "Insert into TabellaData(Nome,Cognome,Nick,Mail,Username,Password) values('"
            stringasql = stringasql & Me.TXTNome.Text & "'" & ",'"
            stringasql = stringasql & Me.TXTCognome.Text & "'" & ",'"
            stringasql = stringasql & Me.TXTNick.Text & "'" & ",'"
            stringasql = stringasql & Me.TXTMail.Text & "'" & ",'"
            stringasql = stringasql & Me.TXTUsername.Text & "'" & ","
            stringasql = stringasql & "'" & Me.TXTPassword.Text & "'" & ")"

            objcomm = New OleDbCommand(stringasql, objconn)
            Dim risputente As Integer
            Try
                risputente = objcomm.ExecuteNonQuery
                If risputente = 1 Then
                    MsgBox("Inserimento effettuato con successo")
                    objconn.Close()
                    Me.TXTNome.Text = ""
                    Me.TXTCognome.Text = ""
                    Me.TXTNick.Text = ""
                    Me.TXTMail.Text = ""
                    Me.TXTUsername.Text = ""
                    Me.TXTPassword.Text = ""

                    Me.TXTNome.Focus()
                End If
            Catch es As Exception
                MsgBox("Errore !!!")
                objconn.Close()
            End Try
    martedì 17 maggio 2016 08:38
  • mi da errore anche se i campi sono pieni

    P.S. come cambio il titolo del mio forum ?

    • Contrassegnato come risposta Marcone72 martedì 17 maggio 2016 08:42
    • Contrassegno come risposta annullato Marcone72 martedì 17 maggio 2016 08:42
    martedì 17 maggio 2016 08:39
  • ok cambiato titolo al forum

    scusate sono nuovo

    martedì 17 maggio 2016 08:53
  • Ciao Marcone72,

    ti da errore ma che errore ?

    per modificare oggetto utilizza la funzione modifica che trovi sotto l'oggetto stesso


    Renato Marzaro

    Microsoft MVP .NET

    http://community.visual-basic.it/renato

    martedì 17 maggio 2016 08:58
    Moderatore
  • Cosa vuol dire "mi da errore"?

    Che tipo di errore? Dove? Hai verificato la stringa che stai costruendo con il comando sql?

    martedì 17 maggio 2016 08:59
  • risputente è diverso da uno, quindi va adeseguire il listato cath
    martedì 17 maggio 2016 09:19
  • risputente è diverso da uno, quindi va adeseguire il listato cath

    Ciao Marcone72,

    permettimi ma se vuoi essere aiutato devi metterci nelle condizioni di aiutarti ... so benissimo che va in Catch ma non sapendo che errori ti genera è difficile aiutarti.

    Considera che noi non abbiamo il tuo DB e nemmeno il tuo codice completo ...

    Ciao


    Renato Marzaro

    Microsoft MVP .NET

    http://community.visual-basic.it/renato

    martedì 17 maggio 2016 09:25
    Moderatore
  • si............... scusate di nuovo

    ci troviamo dentro la procedura avendo fatto click sul pulsante registra che dovrebbe registrare su access

    il record con questi dati.

    Faccio click su registra e mi da l' errore, al di la di tutto il resto del programma.

    Questa è una private procedure e funziona solo per il pulsante registra

    martedì 17 maggio 2016 09:32
  • Faccio click su registra e mi da l' errore, al di la di tutto il resto del programma.

    Ciao Marcone72,

    va bene va bene MA QUALE ERRORE ???

    Ciao

    Se proprio non riesci a fare diversamente togli blocco Try...Catch...End Try e lascia che appaia errore così da avere indicazioni sul perché va in errore altrimenti passamo giorni tu a scrivere 'va in errore' e noi a chiederti 'che errore?' :)


    Renato Marzaro

    Microsoft MVP .NET

    http://community.visual-basic.it/renato

    martedì 17 maggio 2016 09:37
    Moderatore
  • Ripartiamo dall inizio..........forse è meglio.....

    Ho due form:

    Nel primo inserisco username e password, se mi sono gia' registrato.

    Altrimenti mi devo registrare.

    QQuindi mi aprirà il secondo form per l iscrizione.

    Ora, quando mi iscrivo, al momento di cliccare sul tasto registra, dopo aver inserito tutti i dati, mi da errore

    Il listato è quello gia postato.

    La cosa curiosa è che con un listato con due campi, funziona benissimo.

    -con i miei 6 campi da questo errore.

    Perchè ??

    martedì 17 maggio 2016 09:44
  • Ora, quando mi iscrivo, al momento di cliccare sul tasto registra, dopo aver inserito tutti i dati, mi da errore

    Il listato è quello gia postato.

    La cosa curiosa è che con un listato con due campi, funziona benissimo.

    -con i miei 6 campi da questo errore.

    Perchè ??

    Ciao Marcone72,

    purtroppo ho la sfera di cristallo in manutenzione e quindi non riesco a aiutarti.

    NON so' se altri utenti del Forum ne abbiano a disposizione una funzionante ma per quanto mi riguarda abbandono questo thread in quanto inconcludente ... una sola curiosità personale ...

    MA TI COSTA COSI' TANTO SCRIVERE CHE ERRORE TI GENERA IL PROGRAMMA ?

    Ciao


    Renato Marzaro

    Microsoft MVP .NET

    http://community.visual-basic.it/renato

    martedì 17 maggio 2016 09:56
    Moderatore
  • Bravo Renato !

    Ho tolto try cacth end try

    Mi dice che è un errore di sintassi nel comando Insert into ma non lo riesco ad individuare......

    Come faccio ??

    martedì 17 maggio 2016 09:57
  • Ora il listato è questo:

            Dim objconn As OleDbConnection
            Dim stringaconn As String
            Dim stringasql As String
            Dim objcomm As OleDbCommand

            stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=d:\datab.mdb"
            objconn = New OleDbConnection(stringaconn)
            objconn.Open()

            stringasql = "Insert into TabellaData(Nome,Cognome,Nick,Mail,Username,Password) values('"
            stringasql = stringasql & Me.TXTNome.Text & "'" & ",'"
            stringasql = stringasql & Me.TXTCognome.Text & "'" & ",'"
            stringasql = stringasql & Me.TXTNick.Text & "'" & ",'"
            stringasql = stringasql & Me.TXTMail.Text & "'" & ",'"
            stringasql = stringasql & Me.TXTUsername.Text & "'" & ","
            stringasql = stringasql & "'" & Me.TXTPassword.Text & "'" & ")" '

            objcomm = New OleDbCommand(stringasql, objconn)
            Dim risputente As Integer
            'Try
            risputente = objcomm.ExecuteNonQuery
                If risputente = 1 Then
                    MsgBox("Inserimento effettuato con successo")
                    objconn.Close()
                    Me.TXTNome.Text = ""
                    Me.TXTCognome.Text = ""
                    Me.TXTNick.Text = ""
                    Me.TXTMail.Text = ""
                    Me.TXTUsername.Text = ""
                    Me.TXTPassword.Text = ""

                    Me.TXTNome.Focus()
                End If
            'Catch es As Exception
            MsgBox("Errore: il campo cognome e/o nome sono vuoti")
                objconn.Close()
            'End Try


            ''Dim objconn As OleDbConnection
            ''Dim stringaconn As String
            ''Dim stringasql As String
            ''Dim objcomm As OleDbCommand

            ''stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source="
            ''stringaconn = stringaconn & "d:\datab.mdb"
            ''objconn = New OleDbConnection(stringaconn)
            ''objconn.Open()

            ''''Dim objconn As OleDbConnection
            ''''Dim stringaconn As String
            ''''Dim stringasql As String
            ''''Dim objcomm As OleDbCommand
            ''''stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source="
            ''''stringaconn = stringaconn & "c:\test\prova.mdb"
            ''''objconn = New OleDbConnection(stringaconn)
            ''''objconn.Open()
            ''''stringasql = "Insert into tabprova(cognome,nome) values('"
            ''''stringasql = stringasql & Me.TXT_Cognome.Text & "'" & ","
            ''''stringasql = stringasql & "'" & Me.TXT_Nome.Text & "'" & ")"
            ''''objcomm = New OleDbCommand(stringasql, objconn)
            ''''Dim risputente As Integer
            ''''Try
            ''''    risputente = objcomm.ExecuteNonQuery()
            ''''    If risputente = 1 Then
            ''''        MsgBox("Inserimento effettuato con successo")
            ''''        objconn.Close()
            ''''        Me.TXT_Cognome.Text = ""
            ''''        Me.TXT_Nome.Text = ""
            ''''        Me.TXT_Cognome.Focus()
            ''''    End If
            ''''Catch es As Exception
            ''''    MsgBox("Errore: il campo cognome e/o nome sono vuoti")
            ''''    objconn.Close()
            ''''End Try


            ''stringasql = "Insert into tabelladata(nome,cognome,nick,mail,username,password) values('"
            ''stringasql = stringasql & Me.TXTNome.Text & "'" & ","
            ''stringasql = stringasql & "'" & Me.TXTCognome.Text & "'" & ","
            ''stringasql = stringasql & "'" & Me.TXTNick.Text & "'" & ","
            ''stringasql = stringasql & "'" & Me.TXTMail.Text & "'" & ","
            ''stringasql = stringasql & "'" & Me.TXTUsername.Text & "'" & ","
            ''stringasql = stringasql & "'" & Me.TXTPassword.Text & "'" & ")"
            ''stringasql2 = """
            ''stringasql = stringasql & stringasql2

            ''objcomm = New OleDbCommand(stringasql, objconn)
            ''Dim risputente As Integer
            ''Try
            ''    risputente = objcomm.ExecuteNonQuery()
            ''    If risputente = 1 Then
            ''        MsgBox("Inserimento effettuato con successo")
            ''        objconn.Close()
            ''        Me.TXTNome.Text = ""
            ''        Me.TXTCognome.Text = ""
            ''        Me.TXTNick.Text = ""
            ''        Me.TXTMail.Text = ""
            ''        Me.TXTUsername.Text = ""
            ''        Me.TXTPassword.Text = ""
            ''        Me.TXTNome.Focus()
            ''    End If
            ''Catch es As Exception
            ''    MsgBox("Errore: il campo cognome e/o nome sono vuoti")
            ''    objconn.Close()
            ''End Try

    sempre errore di sintassi in insert into.............................. :-(

    martedì 17 maggio 2016 10:07
  • Ciao Marcone72,

    ALLELUIA!

    Hai utilizzato come nome colonna 'Password' che è una Keyword riservata

    Elenco di parole riservate in Jet 4.0

    Cambia nome alla colonna e vedrai che funzionerà

    Ciao


    Renato Marzaro

    Microsoft MVP .NET

    http://community.visual-basic.it/renato

    martedì 17 maggio 2016 10:14
    Moderatore
  • Grazie a Renato !! Il problema stava proprio nel nominare un campo con lo stesso nome di una parola chiave. Tutto risolto !
    martedì 17 maggio 2016 15:07