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