Database e Run-time error

[Raptusis]

Salve a tutti ^_^ premetto che come programmatore VB sono un newbie

questo e' il codice :

Private Sub Command2_Click()
    If Command2.Caption = "Aggiungi" Then
        'Attiva la funzione di aggiunta.
        Data1.Recordset.AddNew
        Command2.Caption = "Annulla"
        Command6.Visible = True
    Else
        'Annulla le modifiche.
        Data1.Recordset.CancelUpdate
        Command6.Visible = False
        Command2.Caption = "Aggiungi"
    End If
End Sub

Private Sub Command4_Click()
    Dim Risposta As Integer
    'Chiede conferma prima di procedere con l'eliminazione.
    Risposta = MsgBox("Eliminare i dati correnti?", vbQuestion + vbYesNo, Me.Caption)
    If Risposta = vbYes Then
        'Elimina i dati.
        Data1.Recordset.Delete
        'Si sposta nel record precedente.
        Data1.Recordset.MovePrevious
    End If
End Sub
Private Sub Command5_Click()
    'Aggiorna il controllo.
    Data1.Refresh
End Sub
Private Sub Command7_Click()
    'Esce dal programma.
    Unload Me
End Sub
Private Sub Form_Load()
    Data1.DatabaseName = App.Path & "\Agenda.mdb"
End Sub
Private Sub Command3_Click()
    If Command3.Caption = "Modifica" Then
        'Attiva la funzione di modifica.
        Data1.Recordset.Edit
        Command3.Caption = "Annulla"
        Command6.Visible = True
    Else
        'Annulla le modifiche.
        Data1.Recordset.CancelUpdate
        Command6.Visible = False
        Command3.Caption = "Modifica"
    End If
End Sub
Private Sub Command6_Click()
    'Salva le modifiche.
    Data1.Recordset.Update
    Command6.Visible = False
    Command2.Caption = "Aggiungi"
    Command3.Caption = "Modifica"
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
    Dim Risposta As Integer
    If Save = True Then
        'E' stato modificato un contatto.
        Risposta = MsgBox("Salvare le modifiche apportate?", vbQuestion + vbYesNo, Me.Caption)
        If Risposta = vbNo Then
            'Se si seleziona no, annulla le modifiche.
            'Per questo, la proprietà DataChanged delle TextBox viene impostata su False.
            Text1.DataChanged = False
            Text2.DataChanged = False
            Text3.DataChanged = False
            Text4.DataChanged = False
        End If
    End If
    'Nasconde il pulsante "Salva".
    Command6.Visible = False
    Command2.Caption = "Aggiungi"
    Command3.Caption = "Modifica"
End Sub
Private Sub Command1_Click()
    'Ricerca un nome all'interno dell'agenda.
    Dim NomeDaCercare As String
    NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca nell'agenda")
    If NomeDaCercare <> "" Then
        'Esegue la ricerca solo se è stato immesso un nome.
        Data1.Recordset.Index = "Nome"
        Data1.Recordset.Seek "=", NomeDaCercare
        If Data1.Recordset.NoMatch Then
            Data1.Recordset.MoveFirst
            Data1.Refresh
            'Il nome cercato non è stato trovato.
            MsgBox "Nome non trovato.", vbInformation, Me.Caption
        End If
    End If
End Sub

=======================================

Come vedete e' un semplicissimo code di un programma di RUbrica telefonica,
Il database Agenda.mdb l'ho creato, con tutte le voci, e CHiave primaria su "Nome".


QUando cerco un nome nel database mi da sempre un errore :


Run-Time error 3800

"Nome" non e' un indice di questa tabella.


Magari e' un semplice errore.



VI ringrazio anticipatamente a quanti mi risponderanno

ciauz ^^

[michele79]

prova ad usare come chiave primaria un indice numerico (tipo contatore su access)....."nome" è una stringa!

La prossima volta metti il codice entro i due tag :

[*code]

tuo codice

[*/code]

ma senza asterischi

[Raptusis]

CAvolo sei stato gentilissimo e velocissimo, ti ringrazio ^^

il codice? ma lo messo fra i tag, eh? (:quipy: :quipy: )

(ghghg me lo ero dimenticato)


CIauzz ^^

[michele79]

non fare il furbo....prima i tag non c'erano.....

[Raptusis]

perdonatemi ancora ma l'errore persiste,
infatti prima c'era l'id chiave, poi l'ho tolto e adesso l'ho rimesso.
ma l'errore rimane.:-(

Help, I need somebody
Help, not just anybody
Help, you know I need someone, help


;-P

[michele79]

io di solito interagisco con il db interamente da codice senza usare oggetti di tipo "data"...quindi non so di preciso come funzionino!!!

Cmq quando hai cambiato lòa chiave primaria come ti ho detto io...hai cambiato pure il codice?
guarda la modifica che ti ho indicato qui di sotto

Private Sub Command1_Click()
    'Ricerca un nome all'interno dell'agenda.
    Dim NomeDaCercare As String
    NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca nell'agenda")
    If NomeDaCercare <> "" Then
        'Esegue la ricerca solo se è stato immesso un nome.
        Data1.Recordset.Index = "Nome" <---- qui devi inserire la nuova chiave primaria al posto di nome  ...credo!
        Data1.Recordset.Seek "=", NomeDaCercare
        If Data1.Recordset.NoMatch Then
            Data1.Recordset.MoveFirst
            Data1.Refresh
            'Il nome cercato non è stato trovato.
            MsgBox "Nome non trovato.", vbInformation, Me.Caption
        End If
    End If
End Sub

[Legend81]

Ciao raptusis, il tuo problema si risolve facilmente:
quando crei il db su access fallo con la visualizzazione di struttura: prima di salvare il db controlla in basso la proprietà "indicizzato" e cambia il suo valore su "si-duplicati ammessi" e vedrai che il codice funziona normalmente come l'hai scritto tu!:sexpulp:

[Raptusis]

Grazie Legend81 ! ^^
Volevo proprio una risposta come questa ^^
Funziona tutto benissimo ^^

Grazie anke te michele79 , gentilissimo e disponibile anke tu ^^