[VB6] Inserimento dati e numerazione

[reddevil]

Ciao a tutti
io sono nuovo sia del forum sia di programmazione.
ho creato un piccolo programma con VB6 di inserimento dati in un database Access
il programma funziona correttamente e ho controllato i vari passaggi con l'esempio da cui l'ho creato.
Praticamente inserendo i dati nel programma non li trasferisce nel database però il database progredisce con la numerazione ogni volta che io clikko aggiungi e salva.
Io penso di non aver dato qualche comando al database ma non so cosa chiave primaria e indice le ho date cosa altro devo fare?

Grazie a tutti

[oregon]

Originariamente inviato da reddevil
Ciao a tutti
io sono nuovo sia del forum sia di programmazione.
ho creato un piccolo programma con VB6 di inserimento dati in un database Access

Questo non e' il forum giusto ... dovevi postare nel sottoforum dedicato ... inserire il linguaggio nel titolo ... leggere il regolamento ...

Originariamente inviato da reddevil
il programma funziona correttamente e ho controllato i vari passaggi con l'esempio da cui l'ho creato.
Praticamente inserendo i dati nel programma non li trasferisce nel database

Quindi il programma NON funziona correttamente ...

Originariamente inviato da reddevil
però il database progredisce con la numerazione ogni volta che io clikko aggiungi e salva.
Io penso di non aver dato qualche comando al database ma non so cosa chiave primaria e indice le ho date cosa altro devo fare?

Facci vedere il codice che inserisce i dati ... e dicci qualcosa sulle tabelle e i campi del db su cui operi, altrimenti non si puo' rispondere ...

[reddevil]

La tabella è un database di film
contiene 5 campi titolo - genere - anno - tipo suono - N° dvd

mentr in VB ho 5 textbox 1 dat1 7 bottoni i quali fanno

aggiuni - trova - aggiorna - salva - elimina - esci - modifica.

questo è il codice in DATA1

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
Text5.DataChanged = False

End If
End If
'Nasconde il pulsante "Salva".
Command6.Visible = False
Command2.Caption = "Aggiungi" 'IStrUZIONE AGGIUNTA.
Command3.Caption = "Modifica"
End Sub