Einzelnen Beitrag anzeigen

Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#5

AW: Stored Procedure: Rückgabewert

  Alt 12. Mär 2011, 09:54
Hi,

danke euch.

@Thomas:
Ja, die SP lief auch aus dem Programm heraus - bis das Suspend kam
Trotzdem schadet es sicher nicht die Connection zuzuweisen, das ist wohl wahr...
Für solche "atomaren" Sachen ist eine extra Transaktion aber nicht notwendig, oder?


@Thomas:
Ja, das wollte ich auch ursprünglich so machen, aber ich habe es nicht hinbekommen.
Jetzt wollte ich nochmal meinen Versuch rekonstruieren, habe es aber nicht mehr geschafft - es läuft jetzt

Mit folgendem Code klappt es nun:
Delphi-Quellcode:
var
  proc: TIBCStoredProc;
begin
  proc := TIBCStoredProc.Create(nil);
  proc.Connection := ibc_MainDB;
  proc.StoredProcName := 'CREATECUSTOMER';
  proc.Prepare;
  proc.ParamByName('name').Value := custName;
  proc.ParamByName('title').Value := title;
  proc.ParamByName('forename').Value := forename;
  proc.ParamByName('surname').Value := surname;
  proc.ParamByName('street').Value := street;
  proc.ParamByName('houseNo').Value := houseNo;
  proc.ParamByName('country').Value := Uppercase(country);
  proc.ParamByName('zipcode').Value := zipcode;
  proc.ParamByName('cityname').Value := cityname;
  proc.ExecProc;
  result := proc.ParamByName('contactid').AsInteger;
  proc.Close;
  proc.Free;
end;

@Markus:
Hätte das gegenüber obigen einen Vorteil oder ist es nur "anders"?


LG, Frederic
Frederic Kerber
  Mit Zitat antworten Zitat