[VB6] Errore: impossibile eliminare dalle tabelle specificate

[oregon]

Niente di diverso da quello che ti ho gia' indicato ...

Invia tu il tuo progeto zippato e indica i passi per replicare esattamente il tuo problema ...

[lexus89]

Originariamente inviato da oregon
Niente di diverso da quello che ti ho gia' indicato ...

Invia tu il tuo progeto zippato e indica i passi per replicare esattamente il tuo problema ...

Private Sub Command1_Click()

Dim k As String
k = List1.Text

Dim cn As adodb.Connection
Dim rs As adodb.Recordset

stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "C:\test\test.mdb"

Set cn = New adodb.Connection
Set rs = New adodb.Recordset


cn.Open stringa

cn.Execute "DELETE FROM Utenti WHERE nome ='" & k & "%'"

End Sub

[oregon]

Forse hai fato un po' di confusione ...mi pare che ti sia stato suggerito di usare l'operatore

LIKE

e non

=

Del resto, utilizzi il carattere % nella query, e quindi *devi* utilizzare il LIKE ...

[lexus89]

Originariamente inviato da oregon
Forse hai fato un po' di confusione ...mi pare che ti sia stato suggerito di usare l'operatore

LIKE

e non

=

Del resto, utilizzi il carattere % nella query, e quindi *devi* utilizzare il LIKE ...

niente da fare, ho provato anche a cancellare e ricreare un altro db ma nn cancella niente.

[oregon]

Quindi, quale codice usi adesso ?

E come controlli che i record siano stati effettivamente cancellati?

Considera che se controlli senza aver chiuso la connessione con

cn.Close

o avere fatto un refresh, potresti non vedere le modifiche/cancellazioni ...

[lexus89]

Originariamente inviato da oregon
Quindi, quale codice usi adesso ?

E come controlli che i record siano stati effettivamente cancellati?

Considera che se controlli senza aver chiuso la connessione con

cn.Close

o avere fatto un refresh, potresti non vedere le modifiche/cancellazioni ...

il codice che uso è questo:

Private Sub Command1_Click()

Dim k As String
k = List1.Text

Dim cn As adodb.Connection
Dim rs As adodb.Recordset

stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "C:\test\test.mdb"

Set cn = New adodb.Connection
Set rs = New adodb.Recordset


cn.Open stringa

cn.Execute "DELETE FROM Utenti WHERE nome LIKE'" & k & "%'"

End Sub

per quanto riguarda come faccio a capire che non ha cancellato un record, apro il db in access e vedo se ha cancellato un record

[oregon]

Sì ... ma se non esegui un

cn.close

come ti avevo detto, potresti non vedere (o vedere in ritardo) le modifiche ...

[lexus89]

Originariamente inviato da oregon
Sì ... ma se non esegui un

cn.close

come ti avevo detto, potresti non vedere (o vedere in ritardo) le modifiche ...

purtroppo mi da errore quando aggiungo un cn.refresh prima del cn.close..

[oregon]

cn.Refresh non esiste ... non era cosi' che ti dicevo di fare il refresh ...

Fai solamente il cn.close ...

[lexus89]

Originariamente inviato da oregon
cn.Refresh non esiste ... non era cosi' che ti dicevo di fare il refresh ...

Fai solamente il cn.close ...

e come dovrei farlo il refresh? bhe cmq non cancella nulla anche mettendo il cn.close come dici tu