Ottimizzare codice per ricerca ed eliminazione valori da RecordSet

[Folcus]

Mi aiutate a migliorare il codice?
Con questo codice effettuo le seguenti operazione: Attivo la connesisone e seleziono la tabella su cui agire, se il valore A corrisponde al valore presente nella cella (0) della tabella elimino tale record.
(il cnDB e rsDB sono presenti in un Modulo)

Private Sub cmdElimina_Click()
'Elimina i valori dalla tabellaA
If rsDB.State = 1 Then
rsDB.Close
End If

'Seleziono la tabella dal database e attivo la connessione
rsDB.Source = "Select * from TabellaA"
rsDB.ActiveConnection = cnDB
rsDB.Open

'Valore dei record presenti nella tabella
a = (rsDB.RecordCount - 1)

'Valore A per paragonarlo al valore da cercare nella tabella
b = txtID.Text

'Muovi il record all'inizio
rsDB.MoveFirst

'Esamina tutta la tabella da 0 fino ad a
For k = 0 To a
    rsDB.MoveFirst
    rsDB.Move k
    If rsDB.EOF = False Then
        If b = rsDB.Fields(0) Then
            rsDB.Delete
            rsDB.MoveNext
        End If
    End If
Next k

'Chiudi
rsDB.Close
End Sub

Chi mi aiuta?

[wallrider]

se hai montato tutto questo "trampalo" per eliminare dei records è un pò esagerato!
bastava una query

"delete from tabellaA where id="& txtID.Text

[Folcus]

eh sì, ho montanto tutto quel popo di codice

le query non le conosco bene...anzi, per nulla...

quella riga di codice, dove la inserisco?

qui:

rsDB.Source = "delete from tabellaA where id="& txtID.Text
rsDB.ActiveConnection = cnDB
rsDB.Open

?

[wallrider]

si!

there ya go

[Folcus]

Mitico!

Grazie mille...tra poco arrivo con altro codice...

[Jupy64]

Originariamente inviato da Folcus
quella riga di codice, dove la inserisco?

qui:

rsDB.Source = "delete from tabellaA where id="& txtID.Text
rsDB.ActiveConnection = cnDB
rsDB.Open

?

Sarebbe meglio usare il metodo Execute dell'oggetto Connection oppure un oggetto Command.

cnDB.Execute "delete from tabellaA where id="& txtID.Text

[wallrider]

sono d'accordo

[yyzyyz]

a titolo informativo ke differenza passa tra .execute . command .open , differenze prestazionali ?