Datenbanken und BDP... komfortables Einlesen von Daten?

[Texas]

Hallo Rexet
ich habe mir noch mal ein wenig

Kannst Du nicht eine Stored Procedure in deiner Datenbank einfügen


z.B.

Delphi-Quellcode:

CREATE PROCEDURE INSUPD_ARTIKEL (
    AART_ID INTEGER,
    AART_NR VARCHAR(20),
    AART_BEZ VARCHAR(40),
    AART_EKP NUMERIC(15,4),
    AART_EKPMENGE NUMERIC(10,4),…)

AS
BEGIN

  /* Artikel_id wurde nicht mit übergeben */
  IF ((aart_id IS NULL) OR (aart_id < 0)) THEN BEGIN
    /* neue Artikel_id bestimmen */
    aart_id = gen_id(artikel_id_gen, 1);
  END

  new_art_id = :aart_id;
  
  /* Datensatz einfügen */
  INSERT INTO artikel
  (
    art_id       ,
    art_nr       ,
    art_bez      , 
    art_ekp      ,
    art_ekpmenge ,´...
  )
  VALUES
  (
    :aart_id       ,
    :aart_nr       ,
    :aart_bez      , 
    :aart_ekp      ,
    :aart_ekpmenge ,...);

 
  /* Doppelter Primärindex   */
  WHEN SQLCODE -803 DO BEGIN

    UPDATE artikel
    SET    
      art_id       = :aart_id          ,
      art_nr       = :aart_nr          ,
      art_bez      = :aart_bez         , 
      art_ekp      = :aart_ekp         ,
      art_ekpmenge = :aart_ekpmenge    ,...
    WHERE
      art_id      = :aart_id;
    END
END

Gruß Michael