let sqlquote s =
let b = Buffer.create 0 in
Buffer.add_char b '\'';
for i = 0 to String.length s - 1 do
Buffer.add_char b s.[i];
if s.[i] = '\'' then
Buffer.add_char b '\'';
done;
Buffer.add_char b '\'';
Buffer.contents b