Question

Delphi中关于如何拼接SQL语句

Answer 1

核心提示：在一些论坛，常看到有人拼接SQL的时候，喜欢直接硬拼，结果就是出现一大堆加号和单引号，不仅写起来麻烦（你得小心该连续写多少个单引号），SQL的可读性也相当差。...稍微好一点的方法是，使用QuotedStr函数，这个函数用于输出一个单引号括着的字符串。我相信写“'Insert into table(a,b,c) values(' + QuotedStr('ET') + ',' + QuotedStr('OTL') + ',' + QuotedStr('ORZ') + ')'”，总比你写“'Insert into table(a,b) values(' + ''''ET'''' + ',' + ''''OTL'''' + ',' + ''''ORZ'''' + ')'”可读性要强些吧，这么多引号看着都烦，别说写了。 更好的方法是使用Format函数。此函数一定要多多善用，通过格式化字符串的办法，可大大提高语句的可读性；而且格式化控制符有数字型也有字符串型，免除了你一会IntToStr，一会又StrToInt的痛苦。以上SQL的等效写法是“Format('Insert into table(a,b,c) values(%s,%s,%s)', [QuoteStr('ET'), QuotedStr('OTL'), QuotedStr('ORZ')])”。 本文到此还没结束，大家是否觉得尽管Format能大大提高了语句的可读性，但是写带单引号的字符串时，仍然比较麻烦呢？no problem，其实我们稍稍"扩充"下Format语句就行了： function FormatSQL(const AFormat: string; const Args: array of const): string; begin result := Format(StringReplace(AFormat, '%q', QuotedStr('%s'), [rfReplaceAll, rfIgnoreCase]), Args); end; 以上SQL的等效写法为“FormatSQL('Insert into table(a,b,c) values(%q,%q,%q)', ['ET', 'OTL', 'ORZ'])”。应该算是比较方便了，我觉得。顶一下