Delphi 10.2 Tokyo 的插入语句中的语法错误

Question

我在编码方面需要帮助，我尝试更改变量并显示 SQL，但仍然看不到错误

谢谢。

这是我的代码：

qryCustomerInformation.SQL.Add('/*The SQL query string from below*/');
showmessage(qryCustomerInformation.SQL.Text);
qryCustomerInformation.ExecSQL;

这是我的查询字符串：

INSERT INTO BasicInformation (
    Passwords, 
    CustomerID, 
    Names, 
    Surname, 
    Age, 
    IdentitiyNumber, 
    Address, 
    CardNumber, 
    CSV, 
    Expirey, 
    Image, 
    PhoneNumber
) VALUES (
    ''' + CustomerPassword + 
    ''',''' + CustomerId + 
    ''',''' + CustomerName + 
    ''',''' + CustomerSurname + 
    ''',''' + CustomerAge + 
    ''',''' + CustomerIdNumber + 
    ''',''' + CustomerAddress + 
    ''',''' + CustomerCardNumber + 
    ''',''' + CustomerCSV + 
    ''',''' + CustomerExpirey + 
    ''',''' + CustomerImage + 
    ''',''' + CurstomerPhoneNumber 
+ ''')

Answer 1

您遇到问题的部分原因是您的 SQL 在语法上 不必要的复杂。假设CustomerPassword等都是字符串变量， 您可以按如下方式简化您的 Sql：

var InsertSql : String;

begin
  [...]
  InsertSql :=
  'INSERT INTO BasicInformation ('
   + '    Passwords, '
   + '    CustomerID, '
   + '    Names, '
   + '    Surname, '
   + '    Age, '
   + '    IdentitiyNumber, '
   + '    Address, '
   + '    CardNumber, '
   + '    CSV, '
   + '    Expirey, '
   + '    Image, '
   + '    PhoneNumber'
   + ')'
   + ' VALUES ('
   + QuotedStr(CustomerPassword) + ', '
   [... etc]
   + QuotedStr(CurstomerPhoneNumber) + ')'
   ;

   qryCustomerInformation.SQL.Add(InsertSql);

我添加了 InsertSql 局部变量以避免在其中构造 Sql 调用 qryCustomerInformation.SQL.Add()，因为这经常会导致错误。

上面的代码在字符串变量的值周围使用了QuotedStr。它不仅提供了必要的引号，还可以正确处理变量值包含嵌入式单引号的情况。

但是，正如 David Heffernan 所说，最好使用参数化查询， 您需要为每个值添加一个参数到 qryCustomerInformation 在Values 子句中，并修改 InsertSql 使其引用它们中的每一个 而不是原来的字符串值，像这样

   + ' VALUES ('
   + ':CustomerPassword, '
   etc.

qryCustomerInformation 会自动将参数值替换为冒号前的标签。

顺便说一句，您的代码包含许多我认为可疑的拼写： 过期ey CustomerExpirey CurstomerPhoneNumber