[VB6] Eliminare record da Excel con ISAM

[dadooo]

ciao io ho creato un pregramma che inseriscie i dati in un file di excel che si collegaco con un comando data(il codice ho preso di esempio quello che fa vedere sul sito html http://programmazione.html.it/visualbasic/) però ora ho messo un pulsante che serve per eliminare un record :
Dim Risposta As Integer
'Chiede conferma prima di procedere con l'eliminazione.
Risposta = MsgBox("Eliminare i dati correnti?", vbQuestion + vbYesNo, Me.Caption)
If Risposta = vbYes Then
'Elimina i dati.
Data1.Recordset.Delete
'Si sposta nel record precedente.
Data1.Recordset.MovePrevious
End If

il codice lo ho sempre preso dal sito però questo pezzo di da un errore il seguente: errore run-time 3617 eliminazione dati in una tabella collegata non suppostata da questo ISAM che devo fare ?? ho gia installato l'ultima versione di Microsoft jet mi saperte dire

grazie

[wallrider]

temo di aver letto da qualche parte che l'accesso ai dati presenti su un foglio excel è in sola lettura, mi dispiace

[dadooo]

no di sola lettura non può essere perchè io i dati che sono su excel li inserisco da un programma che ho fatto con visual quindi sola lettura non è!!

[wallrider]

ma li inserisci da query (con "INSERT INTO ...") oppure apri il foglio con una excel.application e ce li vai a scrivere?

[dadooo]

li inserisco cosi:


If mnunuovo.Caption = "Nuovo" Then
'Attiva la funzione di aggiunta.
Data1.Recordset.AddNew

Else
'Annulla le modifiche.
Data1.Recordset.CancelUpdate

End If
il codice lo ho preso come ho gia detto dal sito di html però visto che non mi funzionava con il database ho fatto con excel!!

[wallrider]

e usando Excel come DB quelle istruzioni funzionano!?!

[mgmg]

Forse ha ragione wallrider in un foglio excel non si possono eliminare record. Ti posto il dettaglio dell'errore:
Eliminazione dati in una tabella collegata non supportata da questo ISAM (3617).
L'ISAM installabile che si sta utilizzando non consente di eliminare record nelle tabelle esterne. È possibile, solamente, aggiungere nuovi record.

ISAM installabile

Driver che può essere specificato dall'utente e che consente l'accesso a formati di database esterni quali dBase, Microsoft Excel e Paradox. ISAM è l'acronimo di Indexed Sequential Access Method, Metodo di accesso sequenziale indicizzato. Il modulo di gestione di database Microsoft Jet installa (carica) questi driver ISAM quando l'applicazione in uso vi fa riferimento. La posizione di questi driver viene gestita nel Registro di configurazione di Microsoft Windows.

Ciao

[wallrider]

Originariamente inviato da mgmg
Forse ha ragione wallrider in un foglio excel non si possono eliminare record. Ti posto il dettaglio dell'errore:
Eliminazione dati in una tabella collegata non supportata da questo ISAM (3617).
L'ISAM installabile che si sta utilizzando non consente di eliminare record nelle tabelle esterne. È possibile, solamente, aggiungere nuovi record.

Meno male altrimenti avrei perso un sacco di tempo

[davifumi89]

ho un problema legato al titolo del topic ma diverso dal problema dell'autore del topic...

del = Combo1.Text
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.MoveFirst
Do While Not (Data1.Recordset.EOF)
    If Data1.Recordset!Oggetto = del Then
        On Error Resume Next
        Data1.Recordset.Delete
        Data1.Recordset.Update
    End If
Loop
End If

il record lo elimina, ma mi da l'errore 3020 -Metodo Update o Cancel Update senza AddNew o Edit-

Per cui ho tolto Data1.Recordset.Update...runno, e mi da l'errore Nessun Record Corrente...che non dovrebbe dare dato che itera solo siamo alla fine del file (EOF)

soluzioni?

[wallrider]

non mi ricordo l'uso dei Data :master:
prova un refresh dopo il delete