Hallo,
@anarkids:
Wie alzaimir bereits geschrieben hat, nimm die Active-Anweisung weg. Wenn du einem
Query-Object ein
SQL-Statement zuweist, darf die
Query nicht aktiv sein.
Ausserdem könntest Du dir angewöhnen, Deinen
SQL-String übersichtlicher zu gestalten und Parameters zu benutzen:
Delphi-Quellcode:
with ado_q
do
begin
Close;
SQL.Text:=
'
INSERT INTO Serverdaten '+#13#10+
'
([Servername], [URL], [IPAdresse], [ServiceLevel])'+#13#10+
'
VALUES (:server, :url, :ip, :service)';
with Parameters
do
begin
ParamByName('
server').Value:=S_Edit1.text;
ParamByName('
url').Value:=S_Edit2.text;
ParamByName('
ip').Value:=S_Edit3.text;
ParamByName('
service').Value:=S_Edit4.text;
end;
// with Parameters
try
ExecSQL;
except
on E:
Exception do ShowMessage(E.
Message);
end;
// try
end;
// with ado_q
Zitat von
alzaimar:
... Die TADOQuery-Komponente dient zum laden von Recordsets, die verändert werden können.