語法錯誤在SQL SELECT INTO FROM德爾福

Question

我試圖插入新記錄到使用SQL我的數據庫，但它總是告訴我，我有一個語法錯誤在FROM子句。

我看不出錯誤。

下面是代碼：

procedure TForm1.BitBtn7Click(Sender: TObject); 
var 
sCategoryName :string; 
begin 
sCategoryName := InputBox('Category Name', 'Please enter your category name that you would like to add',''); 
with dmRecords do 
    begin 
    qryRecords.Active := False; 
    qryRecords.SQL.Add('INSERT INTO [Category of Income]([Category Name])'); 
    qryRecords.SQL.Add('VALUES ' + '(' + QuotedStr(sCategoryName) + ')'); 
    qryRecords.ExecSQL; 
    qryRecords.SQL.Add('SELECT * FROM [Category of Income] ORDER BY [Category ID]'); 
    qryRecords.Active := True; 
    end; 
end; 

Answer 1

您還沒有清除從以前的語句SQL。當你打開查詢時，SQL有三行文本。

添加SELECT語句前添加qryRecords.SQL.Clear。