[Jet SQL] gebruik " ' " in tekstveld

[Verwijderd]

Ik heb een VB6 programma gemaakt die een database vult en updated, hiervoor gebruik ik SQL instructies, het probleem is echter dat in de tekstvelden ook een enkel aanhalingsteken kan zitten. Bijvoorbeeld

code:

tekst = " Voorbeeld gebruik ' in SQL"

sql = "UPDATE TABEL SET TABEL.COMMENT = '" & tekst & "' WHERE TABEL.ID = 1"
db.execute(sql)

Je krijgt nu echter als sql statement

UPDATE TABEL SET TABEL.COMMENT = ' Voorbeeld gebruik ' in SQL ' WHERE TABEL.ID = 1

en dat pikt hij niet.

Hoe kan ik dit oplossen?

[whoami]

Gebruik parameters in uw query, dan ben je direct van het probleem verlost. Ik weet wel niet hoe je dat in VB6 implementeert maar in VB.NET en C# doe je het als volgt:

code:

cmdQuery.CommandText = "SELECT * FROM table WHERE id = @p_Id";
cmdQuery.Parameters.Add ( .... );
cmdQuery.Parameters["@p_Id"].Value = 1;

Dan hoef je zelf geen rekening meer te houden met quotes ed.

Anders kun je ook eens nagaan of VB een functie heeft ala QuotedStr (Delphi) of AddSlashes oid.

[zoepercavia]

Replace(str, "'", "''") moet ook werken, oftewel vervang alle enkele quotes door dubbele quotes...