[VB6] Eliminazione dati usando la chiave selezionata di un RecordSet

[techno]

salve a tutti
Devo eliminare i campi da una tabella tramite un pulsante elimina questo è il codice:

Dim LI As ListItem
With ListViewSchedeCliente
.ListItems.Clear
Dim mdbARC As String
mdbARC = App.Path & "\archivio.mdb"
Set connARC = New adodb.Connection
connARC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbARC & "; Persist Security Info=true"
Set recCNT = recCNT.Execute("Delete From schede Where IDS='" & .SelectedItem.Key & "'")
Set recCNT = Nothing
Set recCNT = New adodb.Recordset

naturalmente nello stesso form vi è un listview.

ma quando clicco su elimina mi da questo errore:
Errorre di run-time '91'
Variavile oggetto o variabile With non impostata

Non riesco a capire dovè l'errore.
Mi aiutate? Grazie

[wallrider]

sarebbe utile sapere su quale riga ti da errore, nonchè (per me) mettere il codice indentato tramite pulsante #

[814(k m49!(]

sbaglio o manca l'end with?
comunque quell'errore di solito si verifica se non hai impostato una variabile o non hai aggiunto il riferimento alla dll.
mi sembra di vedere ADODB in minuscolo, probabilmente non hai i riferimentio per usarlo.
sarebbe opportunuo indicare la riga su cui ti da l'errore.
ciao

[XWolverineX]

Significa che da qualche parte hai dichiarato qualcosa, ma non hai poi ricevuto la memoria

dim cs as adodb.connection
cs.open 'Da errore

dim cs as adodb.connection
set cs=new adodb.connection 'tutto ok
cs.open 'Da errore

[techno]

Allora ecco di nuovo lo script con la riga dove da l'errore:
Dim LI As ListItem
With ListViewSchedeCliente
.ListItems.Clear
Dim mdbARC As String
mdbARC = App.Path & "\archivio.mdb"
Dim connARC As ADODB.Connection
Set connARC = New ADODB.Connection
connARC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbARC & "; Persist Security Info=true"
Set recCNT = recCNT.Execute("Delete From schede Where IDS='" & .SelectedItem.Key & "'")
Set recCNT = Nothing
...
End With

[814(k m49!(]

dove hai dichiarato recCNT ?

[techno]

se dichiaro recCNT mi da errore su
.Execute

mi dice impossibile trovare il metodo o il membro dei dati.

[oregon]

Ma cosa e' recCNT? Perche' pensi che esista il metodo Execute per tale oggetto? Come mai utilizzi un oggetto senza dichiararlo?

[techno]

Si ho fatto un errore nel digitarvi il codice ora ve lo posto bene:

Dim LI As ListItem
With ListViewSchedeCliente
.ListItems.Clear
Dim mdbARC As String
mdbARC = App.Path & "\archivio.mdb"
Dim connARC As ADODB.Connection
Dim recCNT As ADODB.Recordset
Set connARC = New ADODB.Connection
connARC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbARC & "; Persist Security Info=true"
Set recCNT = connARC.Execute("Delete From schede Where IDS='" & .SelectedItem.Key & "'")
Set recCNT = Nothing
Set recCNT = New ADODB.Recordset
recCNT.Open ("Select * From clienti Order by Cognome Asc, Nome Asc"), connARC, 1, 1
If recCNT.RecordCount > 0 Then
.Enabled = True
Do While Not (recCNT.EOF)
Set LI = .ListItems.Add(, recCNT.Fields("IDS"), recCNT.Fields("IDS"))
LI.SubItems(1) = recCNT.Fields("NumeroScontrino")
LI.SubItems(2) = recCNT.Fields("DataScontrino")
Set LI = Nothing
recCNT.MoveNext
Loop
Else
.Enabled = False
End If
recCNT.Close
Set recCNT = Nothing
connARC.Close
Set connARC = Nothing
End With

End If

da come ho capito l'errore deriva dall evidenzito in rosso

[oregon]

Scusa ma un attimo prima fai un

.ListItems.Clear

e poi ti riferisci ad un

.SelectedItem.Key

Ovviamente non avrai nessun SelectedItem dato che hai eliminato tutti gli Item con la Clear!