Saving Names with Single Quotation Mark Problem

[TJLearn]

Hi,

I'm having a problem with my INSERT statement when the name on a text box is including a single quotation mark. The name is O'Kelly

My insert statement is:

Dim sql AS string

sql = "insert into LoanAgent "
sql = sql & "(LName) values "
sql = sql & "('" & txt.LName & "')"

Any help is very appreciated.

 

[ByteMyzer]

Try this modification for the sql statement:

sql = "insert into LoanAgent "
sql = sql & "(LName) values "
sql = sql & "(""" & txt.LName & """)"

 

[PHV]

You can also try replace this:
sql = sql & "('" & txt.LName & "')"
By this:
sql = sql & "('" & Replace(txt.LName, "'", "''") & "')"

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244