[VB6 - Access] Salvare dati

[j7-na]

Buongiorno ragazzi,
sto interfacciando la mia applicazione con un database Access e dovrei salvare i dati che inserisco.

Ecco il codice:

Set Conn = New ADODB.Connection
Set RS = New ADODB.Recordset

Conn.Open str
RS.Open "Table1", Conn, 3, 3

For i = 1 To N
RS.AddNew
RS("Casa") = NumCasa(i)
RS("Valore") = ValoreCasa(i)
RS("Data") = data
RS.Update
Next i
Set Conn = Nothing
Set RS = Nothing

Se inserisco il nome, un valore e data...il programma salva in un database. Il mio problema sta nel fatto, che se inserisco un nome uguale, ma con valore diverso e data diversa o uguale...il programma non salva. In pratica nel database visualizzo solo i valori inseriti prima, non anche quelli inseriti dopo.

Esempio:

NumCasa: 1
Valore: 250.000
Data: 21/12/2011

NumCasa: 1
Valore: 300.000
Data: 22/12/2011


Nel database visualizzo i dati inseriti per prima cioè:

NumCasa: 1
Valore: 250.000
Data: 21/12/2011

Cosa devo modificare?


Thanks!

[Grumpy]

La tabella Table1 ha per caso un indice univoco (o chiave primaria) sulla colonna NumCasa?
In caso affermativo, da qualche parte c'è un'istruzione "On Error Resume Next" che ti impedisce di rilevare l'errore?

[j7-na]

Si la colonna "Casa" dove inserisco "NumCasa" ha un codice univoco.

Poi quando salvo i dati da un bottone c'è l'istruzione "On Error Resume Next". Ecco:

Private Sub cmdCalcola_Click()
On Error Resume Next


N = 26

Do While N > 25
N = Val(InputBox("Quante case vuoi caricare?" & vbCrLf & _
"(Inserire un valore minore di 25)", "Richiesta numero dati"))
If N = 0 Then Exit Sub 
Loop


For i = 1 To N
Numeri(i) = InputBox("Inserisci Numero casa", "Inserimento Dati")
Valore(i) = InputBox("Inserisci Valore", "Inserimento Dati")
Next i

Set Conn = New ADODB.Connection
Set RS = New ADODB.Recordset

Conn.Open str
RS.Open "Table1", Conn, 3, 3

For i = 1 To N
RS.AddNew
RS("Macchina") = Numeri(i)
RS("Valore") = Valore(i)
RS("Data") = data
RS.Update
Next i
Set Conn = Nothing
Set RS = Nothing

End Sub

[Grumpy]

Originariamente inviato da j7-na
Si la colonna "Casa" dove inserisco "NumCasa" ha un codice univoco.

Quindi come puoi pretendere di inserire due record con lo stesso codice?

Originariamente inviato da j7-na
Poi quando salvo i dati da un bottone c'è l'istruzione "On Error Resume Next".

Se l'istruzione c'è vuol dire che qualcuno ce l'ha messa: perché mai? Essa ti impedisce di ricevere i messaggi di errore.

[j7-na]

Si infatti, ho inserito un'altra colonna e ho risolto!

Per quanto riguarda l'istruzione degli errori, so a cosa serve, quell'istruzione è stata inserita prima che inserivo la parte di codice riferita al salvataggio su database...infatti ti chiedo cosa c'entra? Può comportare qualcs quando salvo sui database?

Grazie!

[Grumpy]

Originariamente inviato da j7-na
Per quanto riguarda l'istruzione degli errori, so a cosa serve, quell'istruzione è stata inserita prima che inserivo la parte di codice riferita al salvataggio su database...infatti ti chiedo cosa c'entra?

E lo chiedi a me? Chiedilo a chi ce l'ha messa, no?

Originariamente inviato da j7-na
Può comportare qualcs quando salvo sui database?

Hai detto che sai a cosa serve . Serve a rendere difficile l'individuazione degli errori, anche quelli banali; se ti sembra un nobile fine, lasciacela pure .

[j7-na]

Ok...comunque grazie di tutto! Molto gentile!