如何在 Delphi 中正确翻译 sql 代码

Question

在 sql-editor 中，这段代码可以正常工作：

Select *
from Journal
where status<>'D' 
order by JDate,J_ID

但无法在 Delphi 中编写正确的代码。

1)

dstJournal.Close;
dstJournal.SQL.Clear;
dstJournal.SQL.CommaText:='Select * from Journal  order by JDate,J_ID';

sql 错误代码=-104: Token Unknown J_ID

如果我只写 'order by JDate' 或只写 'oder by J_ID' 那么它可以工作。

2) 如果我写：

dstJournal.SQL.CommaText:='Select * from Journal where Status<>"D" ';

得到错误：sql 错误代码=-206:Column Unknown D.

我尝试了“D”，但 delphi 无法编译并显示“缺少运算符或分号”消息。

如何编写正确的delphi代码？

Answer 1

不要使用CommaText。它用于将 SDF 格式（引号、逗号分隔）的文本解析到 TStrings 对象中或从中取出。这不是你正在做的，所以不要使用它。

改为设置Text：

dstJournal.SQL.Text := 'SELECT * FROM Journal WHERE status <> ''D'' ORDER BY JDate, J_ID';

或者使用Add()方法：

dstJournal.SQL.Clear;
dstJournal.SQL.Add('SELECT * FROM Journal');
dstJournal.SQL.Add('WHERE status <> ''D''');
dstJournal.SQL.Add('ORDER BY JDate, J_ID');

我尝试了“D”，但 delphi 无法编译：缺少运算符或分号。

Delphi 字符串用单引号括起来，因此如果您打算将它们放入查询中，则必须使用两个单引号将它们转义。

  dstJournal.SQL.Add('WHERE status <> ''D''');