[VB6] Query di Access non funzionante in VB6

[Gumble]

ciao,

eseguo la seguente query direttamente in access e funziona:

INSERT INTO [user] (name, first_name, user_name, password, [group], default_lang) VALUES ('te', 're', 'we', 'hh', 2, 2);

ma se la eseguo tramite vb6 non funziona:

q = "INSERT INTO [user] (name, first_name, user_name, password, [group], default_lang) VALUES ('te', 're', 'we', 'hh', 2, 2);"

dbConn.Execute q

l'errore: syntax error in insert statement

:master:

[oregon]

password e' una parola riservata ... mettila tra parentesi quadre ...

[Gumble]

ok! sei un mito! oggi mi hai tirato fuori da quei problemi idioti a cui non avrei trovato soluzione neanche a cercare tutto il giorno

[Gumble]

lo so... non mi fermo un attimo con le domande...

pero ci provo lo stesso:

per costruire la query descritta sopra, parto dalle informazioni che ci sono in vari textbox. il problema é che se un utente mi mette un bell'apostrofo la query non va piu!

come posso fare l'escape dell'apostrofo quando eseguo la query? e come posso ripulire il tutto quando creo il recordset che poi assegno al datagrid che lo mostra?

grazie mille per le risposte

[tippolo]

ciao

.............il problema é che se un utente mi mette un bell'apostrofo la query non va piu!

e tu obbliga l'utente a non inserire apostrodi

   If KeyAscii = 39 Then
      KeyAscii = 96 '32
   End If

[power.mobile]

altrimenti metti una funzione che cerca gli apostrofi nei parametri e se c'è lo raddoppia...

INSERT INTO [user] (name, first_name, user_name, password, [group], default_lang) VALUES ('t''e', 're', 'we', 'hh', 2, 2);

[Gumble]

Originariamente inviato da tippolo
ciao

.............il problema é che se un utente mi mette un bell'apostrofo la query non va piu!

e tu obbliga l'utente a non inserire apostrodi

   If KeyAscii = 39 Then
      KeyAscii = 96 '32
   End If

questo non lo posso fare... perché é possibile che ci sia l'apostrofo in alcuni campi di testo

[tippolo]

questo non lo posso fare... perché é possibile che ci sia l'apostrofo in alcuni campi di testo

Hai provato il codice che ti ho postato, prima di dire che non si può fare?

[Gumble]

Originariamente inviato da tippolo
Hai provato il codice che ti ho postato, prima di dire che non si può fare?

scusami... é che ho interpretato il "obbliga l'utente a non inserire apostrofi" come un divieto e non ho letto il codice.

se ho capito, cambi il carattere... lo provo lunedi. grazie

[LMondi]

Ciao Gumble,
Anziché operare sui campi del DB conviene verificare il contenuto del controllo prima
d'inserirlo nel relativo Campo, con la funzione Replace, come segue:

& "values('" & Replace(FrmDCF.Text1.Text, "'", "''") & "', '" &  ......