apostrofo

[sara81it]

Ciao a tutti
ho un piccolo problema. Dovrei inserire da una textbox un campo nel db.

il problema è che se nella textbox ho una parola con l'apostrofo, si incricca. come lo posso risolvere?


grazie SAra

[ladyBlu]

Replace(TextBox, "'", "''")

[sara81it]

ok, adesso funziona.

Il problema però è un altro.
Quando voglio fare la modifica dei campi e scelgo il nome con l'apostrofo mi da un problema. questo come lo risolvo??

grazie Sara

[ladyBlu]

spiegami bene come l'utente compie questa modifica.
visualizza il nome in una textbox e poi clicca su un qualche pulsante?

in ogni caso sempre la funzione Replace devi usare, cambiando il nome della variabile o controllo che deve essere verificato, quindi sostituendo TextBox (vedi esempio del primo mio post) con ciò che ti serve.

[sara81it]

Nel form_Load carico una combo con la ragione sociale dal db.

l'utente sceglie la ragione sociale. al click della combo compaiono gli altri campi.

il problema è che se io clicco nella combo e scelgo la ragione sociale apostrofata si incasina e mi dà errore!

spero di essermi spiegata bene

[JamesD]

Per sicurezza è sempre bene fare la funzione che ti ha passato Lady per ogni campo in cui l'utente andrà a scrivere ed eventualmente per i valore che passa il programma e che come nel tuo caso possono contenere degli apici!

Prima o durante la creazione della stringa sql per l'inserimento, o comunque prima dell'inserimento nel caso in cui non usi sql, devi fare il controllo

Replace (Variabile, "'", "''")

Ciaoz

[sara81it]

ok,
scusa, ma non ho benj capito...
il codice che tu ai messo mi serve per poter richiamare il nome dal db??

Inserisco il nome con l'apostrofo. clicco su salva mi fa il salvataggio nel DB. e fino a qui tutto ok!

clicco su modifica, mi si apre il form. scelgo il cliente (scelgo da una combo). scelgo il cliente che contiene l'apostrofo.
mi da errore di run-time 3075 errore di sintassi (operatore mancante) nell'espressione della query 'Ragso= D'Alessio'".


il codice del reperimento del dato sul db è:

Set db = OpenDatabase(App.Path & "\Db.mdb")
sql = "select * from Clienti where Ragso = '" & cmbragso.Text & "'"
Set rs = db.OpenRecordset(sql)

dove dovrei inserire il tuo codice?

grazie Sara

[ladyBlu]

Set db = OpenDatabase(App.Path & "\Db.mdb")
sql = "select * from Clienti where Ragso = " & _
      "'" & Replace(cmbragso.Text, "'", "''") & "'"
Set rs = db.OpenRecordset(sql)

[GudFella]

Set db = OpenDatabase(App.Path & "\Db.mdb")
RagioneSociale = Replace (cmbragso.Text, "'", "''")
sql = "select * from Clienti where Ragso = '" & RagioneSociale & "'"
Set rs = db.OpenRecordset(sql)

[sara81it]

funziona!!!!!



siete mitici!!!!!!!!!!!!!!!!!!!!!!!!!!!




Grazie!