[VB6] Errore: impossibile eliminare dalle tabelle specificate

[lexus89]

eseguendo questo codice il debug mi restituisce questo errore:

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
rs.Open "DELETE from utenti WHERE [utenti.nome]='k'", cn, 1

rs.MoveNext

chi mi puo dire dove ho sbagliato???grazie!!!

[Stoicenko]

Evvai un'altra discussione in barba al regolamento..

Sarà l'autunno ma fioriscono come fosse primavera...

Linguaggio? Il titolo? REGOLAMENTO??

L'errore è di access cmq, sicuro che la struttura della tabella utenti sia giusta?

[lexus89]

Originariamente inviato da Stoicenko
Evvai un'altra discussione in barba al regolamento..

Sarà l'autunno ma fioriscono come fosse primavera...

Linguaggio? Il titolo? REGOLAMENTO??

L'errore è di access cmq, sicuro che la struttura della tabella utenti sia giusta?

In che senso la struttura della tabella???la tabella utenti ha tre campi: id, nome, cognome

[Stoicenko]

prova con

rs.Open "DELETE from utenti WHERE [utenti.nome]= ' & k & "' ", cn, 1

[LeleFT]

Qui ti avevo già invitato a leggere il regolamento.
Queata discussione te l'ho sistemata io.

Scegli tu: o leggi e rispetti il regolamento, o mi vedo costretto a segnalarti...


Ciao.

[lexus89]

Originariamente inviato da Stoicenko
prova con

rs.Open "DELETE from utenti WHERE [utenti.nome]= ' & k & "' ", cn, 1

rs.Open "DELETE from utenti WHERE [utenti.nome]= ' & k & "' ", cn, 1

mi da l'ultima parte in vedere perke crede sia un commento

[MItaly]

rs.Open "DELETE from utenti WHERE [utenti.nome]= '" & k & "' ", cn, 1

[lexus89]

Originariamente inviato da MItaly

rs.Open "DELETE from utenti WHERE [utenti.nome]= '" & k & "' ", cn, 1

niente da fare neanke così gli piace......

[Brainjar]

Credo che sbagli in due punti :

1) Se, come si capisce, vuoi eliminare tutti i nomi che iniziano per 'K' devi utilizzare LIKE al posto di = nella stringa sql (okkio che ci va anche il carattere %, vedi esempio in fondo).

2) Devi aprire la connessione nel modo canonico indicando il tipo di cursore, il tipo di lock e il tipo del comando :

rs.open 'DELETE ecc......", cn, adOpenDynamic, adLockOptimistic, adCmdText

quindi :

 
rs.Open "DELETE from utenti WHERE [utenti.nome] LIKE '" & k & "%' ", cn, adOpenDynamic, adLockOptimistic, adCmdText

[Stoicenko]

No bè da quello che si vede k è una variabile in cui c'è il testo di una textbox..

i flag invece mancavano..