Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi ADO - Bei Update StoredProc Recordsaffected auslesen (https://www.delphipraxis.net/131910-ado-bei-update-storedproc-recordsaffected-auslesen.html)

needatip 2. Apr 2009 13:18

Datenbank: MSSQL • Version: 2000 • Zugriff über: ADO

ADO - Bei Update StoredProc Recordsaffected auslesen
 
Hallo,

wie kann ich die Anzahl der Datensätze, die bei einem Update gemacht werden, in ein Delphi Label schreiben.

Ich habe eine ADOConnection und ein ADOCommand Objekt auf einem Formular.

Delphi-Quellcode:
procedure Button1.Click(Sender: TObject);
begin
  with ADOCommand1 do
  begin
    CommandType := cmdStoredProc;
    CommandText := 'SetWerte'; // Stored Procedure
    Parameters.Clear; // Parameter erstellen
    with Parameters.AddParameter do
    begin
      Name := 'ProNr';
      DataType := ftInteger;
      Value := 50;
    end;
    with Parameters.AddParameter do
    begin
      Name := 'Prozent';
      DataType := ftInteger;
      Value := 10;
   end;
    Execute;
    lblResult.Caption := // RecordsAffected;
  end;
end;
Hab schon mit ADOCommand1.Execute(Recordsaffected) versucht, hab aber keinen richtigen Plan.

Da ich ja 2 Parameter der Stored Procedure übergebe, muss ich da jetzt noch einen Output Parameter erzeugen?
Wie löst man das am besten?

NormanNG 2. Apr 2009 13:57

Re: ADO - Bei Update StoredProc Recordsaffected auslesen
 
Hi,

entweder wie du schon sagst einem Output-Parameter in der Prozedur den recordcount zuweisen,
oder dazu den Standard-Parameter Return_Value verwenden, der in der Prozedur mit Return(@@RecordCount)
gesetzt werden kann.

needatip 3. Apr 2009 16:16

Re: ADO - Bei Update StoredProc Recordsaffected auslesen
 
Aber beim Command Objekt gibt es doch dafür extra die Long Variable "RecordsAffected".
Gibt es hier vielleicht ein Beispiel?
Danke.


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz