Eliminazione...al riavvio del programma....AIUTO!?!?

sabato 17 febbraio 2007 - 09.56

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Mimmozzo87 Profilo | Junior Member

116 messaggi | Data Invio: sab 17 feb 2007 - 09:56

praticamnete da un data grid seleziono un record e sciacciano il tasto ELIMINA si dovrebbe eliminare il record dalla lista----
siccome data3 è una visualizzazione di una query mi collego al data1 e cerco di elimiare il record con l'id...

il problema qual'è.....che premendo il tasto elimina mi esce questo errore:

"L'operazione non è consentita se l'oggetto è chiuso"

successivamente mi esce questo altro tipo di erroe:

"ERROE DEFINITO DALL'APPLICAZIONE O DALL'OGGETTO"

questo è il codice del pulsante....

Private Sub elimina_Click()

Dim s As String
Dim iddi As Integer

If (MsgBox("Eliminare ?", vbYesNo, "Conferma") = vbYes) Then

iddi = data1.Recordset("ID")

s = "DELETE FROM Lista Where ((Lista.ID) Like '%" & [iddi] & "%')"

data1.RecordSource = s
data1.CommandType = adCmdText

data1.Refresh

End If

End Sub

se succesivamente riavvio il programma il record è stato eliminato......
l'errore si riferisce a DATA1.REFRESH

aiuto perfavore....GRAZIE

StefanoLep Profilo | Senior Member

248 messaggi | Data Invio: lun 19 feb 2007 - 13:20

Ciao, l'errore si riferisce al recordset o alla connessione che sono chiusi. Però la parte che mi preoccupa di questa query è cancelli un ID con una condizione LIKE, questo significa che le fai qualcosa come LIKE %1% ti cancellerà non solo il record con ID 1 ma anche tutti quelli che hanno 1 nel codice come ad esempio 11 , 14, 21, 102 ecc. LIKE va bene quando cerchi qualcosa tipo un un nome, ma sugli ID devi cecrcare solo il record specifico...

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !