Zitat von
testoli:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
begin
try
DM.DM_Main.SP_NEW_ADRTYP.Parameters.Refresh;
DM.DM_Main.SP_NEW_ADRTYP.Parameters.ParamByName('@ADRT_WERT_2').Value := TB_Wert.Text;
DM.DM_Main.SP_NEW_ADRTYP.Open;
except
exit;
end;
Wenn ich den Befehl sende, erhalte ich folgenden Fehler:
"Commandtext gibt keine Ergebnissmenge zurück!"
Was habe ich nicht beachtet???
Nur Abfragen mit SELECT geben eine Ergebnismenge zurück. Diese werden mit
.Open geöffnet.
Alles andere (INSERT, UPDATE, DELETE, ALTER ...) gibt keine Ergebnismenge zurück und wird mit
.ExecSQL ausgeführt.
Übrigens, folgendes sollte man nicht tun:
Delphi-Quellcode:
try
// Zugriff auf Datenbank
DM.DM_Main.SP_NEW_ADRTYP.ExecSQL;
except
exit;
end;
Der Datenbankzugriff funktioniert nicht, keine Fehlermeldung erscheint (nur in der
IDE) und keiner weiss warum die Sache nicht funktioniert.
Dann lieber try ... except komplett weglassen.