Oppure

Loading
23/01/09 20:29
moet
cosa sbaglio ? grazie

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset



stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & App.Path & "\clienti.mdb"

cn.Open stringa
rs.Open "Tabella1", cn, 3, 3

nome = Combo1.Text

cn.Execute "DELETE * FROM Tabella1 WHERE Nomecognome=" & nome




rs.Close
    Set cn = Nothing
    Set rs = Nothing

aaa
24/01/09 10:53
GrG
premetto che con i db nn sn per niente bravo...
comunque prova a mettere gli apici in questo modo...
cn.Execute "DELETE * FROM Tabella1 WHERE Nomecognome='" & nome & "'"

e prova a metterli anke qua:

stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & App.Path & "\clienti.mdb'"
Ultima modifica effettuata da GrG 24/01/09 10:54
aaa
24/01/09 11:56
moet
Grazie mille... perfetto!

bastava sistemare gli apici nella execute.

Anche se sinceramente non ho ancora capito perchè in un altro programma cosi come li avevo messi funzionava. Qui no :)

i misteri di vb ! :)

aaa
24/01/09 12:21
GrG
secondo me ti funzionava perchè il nome era un'unica parola del tipo: Giacomo invece adesso nn ti funziona perchè il nome comprende uno spazio del tipo: Giacomo 2
aaa