[VB6] Apice in SQL

[gprox]

Allora ragazzi vi espongo il mio problema, io salvo in un database dei valori usando questa stringa:

"Insert into carica (campo1, campo2, campon, ....) Values ('" & Text1.Text & "', '" & Text2.Text & "', '" & Textn.Text & "', ....);"

Tutto avviene perfettamente, ma se in un texbox vi è un apice a quel punto non salva es:

text1.text = "l'Italia"

Come posso risolvere questo problema ??

[gibra]

Perchè bisogna raddoppiare gli apici.
Ti conviene farti usare Function che ti semplifica la vita

Public Function Apici(ByVal s As String) As String
    If s = "" Then Exit Function
    Apici = Chr$(34) & Replace(s, "'", "''") & Chr$(34)
End Function

che ti semplifica la stringa SQL, usandola così:

INSERT INTO carica (campo1, campo2) VALUES (" & Apici(Text1.Text) & ", " & Apici(Text2.Text))

In ogni caso, sarebbe assai meglio usare i Parametri di ADO
ADO, Parametri ed affini
http://nuke.vbcorner.net/Articoli/VB...5/Default.aspx
così ti eviti tutti i problemi di formattazione dei dati

Buone Feste

[gprox]

Grazie gentilissimo ma nononostante questa funzione la stringa non viene inserita cosa posso fare

[oregon]

Non e' possibile ... mostra tutto il codice cosi' come l'hai scritto e indica l'errore ...

[gibra]

Originariamente inviato da gprox
Grazie gentilissimo ma nononostante questa funzione la stringa non viene inserita cosa posso fare

Difficile dirlo, sei troppo generico.
- non salva
- non viene inserita
ecc.

1. Fino ad ora hai mostrato solo la stringa di comando, ma non come la esegui.
2. Non da alcun errore?
3. Forse la stringa è vuota?

In ogni caso devi verificare la string SQL che passi prima di eseguire il comando.

Dim sSQL As String 
sSQL = "INSERT INTO carica (campo1, campo2) VALUES (" & Apici(Text1.Text) & ", " & Apici(Text2.Text))"
Debug.Print sSQL

e controlli nella finestra Immediate di VB la stringa formattata

[gprox]

L'errore è che non viene inserito il record nel DB, in vb6 non ci sono errori, al contrario per il DB sto usando un dataenvironment, eccovi il codice:

Public Function Apici(ByVal s As String) As String
If s = "" Then Exit Function
Apici = Chr$(34) & Replace(s, "'", "''") & Chr$(34)
End Function

DB.DBS.Execute "Insert into tab(campo1, campo2) Values (" & Apici(Text1.Text) & ", '" & Text2.Text & "');"

[gibra]

Originariamente inviato da gprox
L'errore è che non viene inserito il record nel DB, in vb6 non ci sono errori, al contrario per il DB sto usando un dataenvironment

Allora mi ritiro.
Non uso il DataEnvironment (e mai lo userò) quindi non posso aiutarti.
(certo che M$ poteva risparmiarsi di creare simili schifezze come il DE & soci)

[Grumpy]

Neanche io uso il Data Environment, ma qui l'errore è nella stringa SQL

DB.DBS.Execute "Insert into tab(campo1, campo2) Values (" & Apici(Text1.Text) & ", '" & Text2.Text & "');"

La funzione che ti ha fornito gibra raddoppia gli apici all'interno della stringa e ne aggiunge uno in testa e uno in coda. Quindi quelli prima e dopo Text2.text sono di troppo.
Basterebbe un po' più di attenzione.

[gibra]

Originariamente inviato da Grumpy
Neanche io uso il Data Environment, ma qui l'errore è nella stringa SQL

La funzione che ti ha fornito gibra raddoppia gli apici all'interno della stringa e ne aggiunge uno in testa e uno in coda. Quindi quelli prima e dopo Text2.text sono di troppo.
Basterebbe un po' più di attenzione.

Non mi pare:

DB.DBS.Execute "Insert into tab(campo1, campo2) Values (" & Apici(Text1.Text) & ", '" & Text2.Text & "');"

Solo il primo Text1.Text usa la routine Apici(), mentre il secondo Text2.text è racchiuso direttamente tra apici.

[Grumpy]

Vero!
L'avevo detto che basterebbe un po' più di attenzione.