Ошибка синтаксиса ADO SQL Delphi

Question

Я получаю синтаксическую ошибку при обработке следующих строк кода. Особенно на AQ_Query.Open;

procedure THauptfenster.Button1Click(Sender: TObject); 
var 
    option: TZahlerArray; 
begin 
    option := werZahlte; 
    AQ_Query.Close; 
    AQ_Query.SQL.Clear; 
    AQ_Query.SQL.Add('USE wgwgwg;'); 
    AQ_Query.SQL.Add('INSERT INTO abrechnung '); 
    AQ_Query.SQL.Add('(`datum`, `titel`, `betrag`, `waldemar`, `jonas`, `ali`, `ben`)'); 
    AQ_Query.SQL.Add(' VALUES '); 
    AQ_Query.SQL.Add('(:datum, :essen, :betrag, :waldemar, :jonas, :ali, :ben);'); 
    AQ_Query.Parameters.ParamByName('datum').Value := DateToStr(mcDatum.Date); 
    AQ_Query.Parameters.ParamByName('essen').Value := ledTitel.Text; 
    AQ_Query.Parameters.ParamByName('betrag').Value := ledPreis.Text; 
    AQ_Query.Parameters.ParamByName('waldemar').Value := option[0]; 
    AQ_Query.Parameters.ParamByName('jonas').Value := option[1]; 
    AQ_Query.Parameters.ParamByName('ali').Value := option[2]; 
    AQ_Query.Parameters.ParamByName('ben').Value := option[3]; 
    AQ_Query.Open; 
end; 

Ошибка:

Я использую MySQL Delphi 2010.

Answer 1

1. USE и INSERT - это две разные команды SQL .
2. MySQL не поддерживает так называется «Партии».

=> вы должны вызвать эти команды один за одним

Answer 2

кажется мне, как вы используете кавычку на третьем AQ_Query.SQL.Add линии, когда вам нужно использовать нормальные одинарные кавычки.

Answer 3

Использование базы данных в сценарии SQL.

AQ_Query.SQL.Add('INSERT INTO wgwgwg.dbo.abrechnung '); 
    AQ_Query.SQL.Add('(`wgwgwg.dbo.abrechnung.datum`, `wgwgwg.dbo.abrechnungtitel`, `wgwgwg.dbo.abrechnungbetrag`, `wgwgwg.dbo.abrechnungwaldemar`, `wgwgwg.dbo.abrechnungjonas`, `wgwgwg.dbo.abrechnungali`, `wgwgwg.dbo.abrechnungben`)'); 

    AQ_Query.SQL.Add(' VALUES '); 

    AQ_Query.SQL.Add('(:datum, :essen, :betrag, :waldemar, :jonas, :ali, :ben);'); 
    AQ_Query.Parameters.ParamByName('datum').Value := DateToStr(mcDatum.Date); 
    AQ_Query.Parameters.ParamByName('essen').Value := ledTitel.Text; 
    AQ_Query.Parameters.ParamByName('betrag').Value := ledPreis.Text; 
    AQ_Query.Parameters.ParamByName('waldemar').Value := option[0]; 
    AQ_Query.Parameters.ParamByName('jonas').Value := option[1]; 
    AQ_Query.Parameters.ParamByName('ali').Value := option[2]; 
    AQ_Query.Parameters.ParamByName('ben').Value := option[3]; 

Вы также можете сделать новое подключение к wgwgwg и обратитесь вашим AQ_Query к новому соединению