Insert Generator bei Interbase klappt nicht !

[wlfmario]

Hallo zusammen,

ich versuche grade per INSERT ein GeneratorFeld in mein PrimaryKey zu speichern !
Leider klappt das nicht so wie ich mir das vorstelle.

Hier mal der Code.

Delphi-Quellcode:

begin
DM.IBShop.Close;
DM.IBShop.InsertSQL.Text := 'INSERT INTO SHOPDATEN (SHOP_ID) VALUES ('+ GEN_ID(GEN_SHOPDATEN_ID,1) + ')';
DM.IBShop.Open;

Ich bekomme immer folgende Meldung:

Zitat:

Fehler] ShopTools.pas(167): Undefinierter Bezeichner: 'GEN_ID'

Ich finde aber keine Infos über GEN_ID.
Was muss ich machen damit mein Generator in mein Primarykey gespeichert wird ?

[mkinzler]

Gen_ID() ist keine Funktion von Delphi, sondern eine Funktion von Interbase.

Delphi-Quellcode:

DM.IBShop.InsertSQL.Text := 'INSERT INTO SHOPDATEN (SHOP_ID) VALUES (GEN_ID(GEN_SHOPDATEN_ID,1))';

oder besser das Ganze in einem Before Insert Trigger machen

[wlfmario]

Zitat:

Zitat von mkinzler

oder besser das Ganze in einem Before Insert Trigger machen

Hört sich evt. etwas Doof an aber was soll ich in den Trigger schreiben ?

[mkinzler]

In der Datenbank mit IConsole oder IBEXpert

SQL-Code:

CREATE TRIGGER Neue_ShopDaten FOR SHOPDATEN
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.ID IS NULL) THEN
    NEW.ID = GEN_ID(GEN_SHOPDATEN_ID,1);
END

Sorgt dafür das bei INSERTS bei fehlenden ID's automatisch einer vergeben wird

[wlfmario]

Danke für die Hilfe !

Leider wird bei mir nichts eingetragen wenn ich per INSERTSQL etwas in die Datenbank Eintragen möchte.

Delphi-Quellcode:

DM.IBShop.Close;
DM.IBShop.InsertSQL.Text :=('INSERT INTO SHOPDATEN (SHOP_ID) VALUES (GEN_ID(GEN_SHOPDATEN_ID,1))');
DM.IBShop.InsertSQL.Text :=('INSERT INTO SHOPDATEN (NAME) VALUES (MeinName)');
DM.IBShop.Open;

Was mache ich Falsch ? Ledie findet man über InsertSQL nicht viel Hilfe im Netz.

[mkinzler]

Zitat:

Zitat von wlfmario

Danke für die Hilfe !

Leider wird bei mir nichts eingetragen wenn ich per INSERTSQL etwas in die Datenbank Eintragen möchte.

Das PR Feld darf nicht in der Feldliste beim INSERT sein, da es ja (wenn es leer ist) vom Trigger gefüllt wird.

Was mache ich Falsch ? Ledie findet man über InsertSQL nicht viel Hilfe im Netz.

Delphi-Quellcode:

DM.IBShop.Close;
DM.IBShop.InsertSQL.Text :=('INSERT INTO SHOPDATEN (NAME) VALUES (MeinName)');
DM.IBShop.ExecSql;

Nachtrag: Bei nicht SELECT - Abfragen ( INSERT, UPDATE, DELETE) ist Open durch ExecSQL zu ersetzten, da solche Abfragen keine Ergebnismenge zurückliefern.

[wlfmario]

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Shop_Installer.exe ist eine Exception der Klasse EIBInterBaseError aufgetreten. Meldung: 'Dynamic SQL Error
SQL error code = -206
Column unknown
MEINNAME'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

Das habe ich auch schon probiert ! Leider kommt die obere Meldung.

[mkinzler]

Mein name ist durch eine String zu ersetzen z.B.

SQL-Code:

INSERT INTO SHOPDATEN (NAME) VALUES 'wlfmario'

[wlfmario]

Da liegt ja das Problem !
Ich habe es schon in allen Variationen versucht, entweder meckert Delphi oder Interbase.

Delphi-Quellcode:

DM.IBShop.InsertSQL.Text :=('INSERT INTO SHOPDATEN (NAME) VALUES 'MARIO' ');

Ich habe das gefühl das ich etwas übersehe.

[mkinzler]

Text ist eine Property die Klammern bei der Zuweisung sind zuviel.

Delphi-Quellcode:

DM.IBShop.InsertSQL.Text :='INSERT INTO SHOPDATEN (NAME) VALUES ('+QuotedString('MARIO')+')';

[tomsel]

Zitat:

Zitat von wlfmario

Da liegt ja das Problem !
Ich habe es schon in allen Variationen versucht, entweder meckert Delphi oder Interbase.

Delphi-Quellcode:

DM.IBShop.InsertSQL.Text :=('INSERT INTO SHOPDATEN (NAME) VALUES 'MARIO' ');

Ich habe das gefühl das ich etwas übersehe.

Delphi-Quellcode:

DM.IBShop.InsertSQL.Text :='INSERT INTO SHOPDATEN (NAME) VALUES (''MARIO'') ';

[wlfmario]

Danke das war es !

Leider wird nichts in der DB Eingetragen. Es werden auch keine Fehler angezeigt.

[mkinzler]

-hast du ein Commit der Transaktion ausgefüht oder steht diese auf AutoCommit?
Von was für einen Typ ist IBShop? Nehm mal ein IBQuery - Komponente

Delphi-Quellcode:

DM.IBShop.Close;
DM.IBShop.SQL.Text :='INSERT INTO SHOPDATEN (NAME) VALUES '+QuotedStr('Mario')+')';
DM.IBShop.ExecSql;

[wlfmario]

Ich benutze die IBDataSet.

Ein Commit habe ich mal eingefügt hat aber nichts gebracht.

[mkinzler]

Delphi-Quellcode:

IBDataSet.Insert;

einfügen.

[wlfmario]

Bringt auch nichts !Leider ....
Werde mal auf die Datensteuerung Kompos umstellen, damit klappt das eigendlich immer.
Bleibt nur die Frage wieso das jetzt nicht klappen will. So viele Fehler können doch nicht im Projekt sein.
Selbst mein Interbase Buch weis keine Lösung.

[mkinzler]

IBDatSet ist eine kombinierte Kompoenente, welche eiun ähnliches Verhalten simuliert wie eien BDE-Table.
Basis eist eine Selectabfrage.
Wird nun eine .Insert Befehl ausgeführt wird die Anweisung in der InsertSQL - Eigenschaft ausgeführt, bei .Update UpdateSQL usw.
Für eine einfache DML-Anweisung verwendet man eine einfache IBQuery:

Delphi-Quellcode:

 IBdatabase.Open;
 IBQuery.SQL.Text :='INSERT INTO SHOPDATEN (NAME) VALUES ('+QuotedStr('Mario')+')';
 IBTransaction.StartTransaction;
 IBQuery.ExecSql;
 IBTransaction.Commit;

Achtung .Open nur bei Select sonst .ExecSQL

[Hansa]

Da liegt ein grober Denkfehler vor ! Entweder der Trigger ist dafür zuständig, die ID hochzuzählen, oder man macht es von Hand zu Fuß. Ergo : wird die ID von Hand geändert und ist deshalt NOT NULL, dann kann der schönste Trigger nichts ausrichten, der den Generator mit :

SQL-Code:

I  IF (NEW.ID IS NULL) THEN
    NEW.ID = GEN_ID(GEN_SHOPDATEN_ID,1);
END

aktualisiert. Im Zusammenhang mit dem von Hand gemachten INSERT sieht es dann richtig öde aus. Wozu hat ein TDataset denn eigene Methoden (hier : Insert) um den Krempel ohne Schreibfehler zu machen ? Falsch zusammengebaute SQL-Statements sind Delphi nämlich schlichtweg egal ! Merke : Finger weg von den IDs im eigenen Programm (natürlich außer lesen). Noch zur Klarstellung : Generatoren enthalten nur Werte und sind auch transaktionsunabhängig. Rollback/Commit usw. gilt für die nicht ! Die BI-Trigger sind deshalb hervorragend dazu geeignet, die Generatorenwerte hochzuzählen. Bei mir wird da gleich noch der timestamp eines neu angelegten Datensatzes usw. mit gespeichert. Man kann auch sonstige Werte setzen. Die Möglichkeiten gehen weit über das schlichte Paradox-Autoincrement hinaus. Außerdem gibt es in IB/FB 6 verschiedene Trigger-Arten.

[wlfmario]

Ich kann mich täuschen aber irgend jemand hat mir mal gesagt das ich aus irgend einen Grund die Finger von der IBQuerry lasen soll.
Wieso das so war kann ich nicht mehr sagen, das war aber der Grund weshalb ich die nie verwendet habe.
Was mein Projekt betrifft, habe ich alle Formulare auf DBEdit umgestellt und die Daten werden jetzt mit Insert in die DB geschrieben, der Generator wir von den Komponenten verwaltet.

Nur leider ist es Schade, das ich nicht weis wieso ich mit den Insert Befehl keine Daten in die DB bekommen habe.

[Hansa]

Zitat:

Zitat von wlfmario

Ich kann mich täuschen aber irgend jemand hat mir mal gesagt das ich aus irgend einen Grund die Finger von der IBQuery lasen soll.

Wahrscheinlich war das Borland, die die BDE eben nicht mehr weiterentwickeln. 8) Du brauchst nur TDataSet und basta. Mit dem Problem an sich hat das aber nichts zu tun. Außerdem driftet der Thread schwer ab. Geht der Generator oder nicht ? ID eintragen und "richtige" Daten sind zwei Paar Schuhe.

[wlfmario]

Mein Problem scheint Tiefer zu sitzen !
Meine DB nimmt keine Daten auch mit den DBEdit's und DB.Insert / DB.Post;
Was sonnst eigendlich kein Problem darstellt.

[mkinzler]

Also meine Lösung auf Basis des "bösen" IBQuery funktioniert auf einer von mir erzeugten Testdatenbank mit einer Tabelle und den 2 Feldern.
Das Problem muß also an der Verknüpfung der Komponenten liegen: TIBTransaction <- TIBDataBase <-
<- TIBQuery -----|.

oder an den vorhandenen Daten in der DB: Höchster Wert des PK. Definition der Tabelle:

Poste mal deine Metadaten.

[wlfmario]

Was sind MetaDaten ?

Jetzt habe ich mal alle Kompos aus dem Formular gelöscht und neu eingefügt, leider ohne Erfolg !
Die Komponenten sollten richtig eingestellt sein.

[mkinzler]

Zitat:

Zitat von wlfmario

Was sind MetaDaten ?

Die Tabelle und die Beschreibung ihrer Felder ( am besten als DDL inkl der schon vorhamndenen Daten als inserts; kann von IBExpert erzeugt werden.)

Zitat:

Jetzt habe ich mal alle Kompos aus dem Formular gelöscht und neu eingefügt, leider ohne Erfolg !
Die Komponenten sollten richtig eingestellt sein.

[wlfmario]

Ok. hier mal die MetaDaten:

SQL-Code:

******************************************************************************/
/****              Generated by IBExpert 24.01.2006 19:16:09               ****/
/******************************************************************************/

SET SQL DIALECT 3;

SET NAMES ISO8859_1;



/******************************************************************************/
/****                                Tables                                ****/
/******************************************************************************/



CREATE TABLE SHOPDATEN (
    SHOP_ID          INTEGER NOT NULL,
    SHOPDATUM        CHAR(10) NOT NULL,
    VORNAME          CHAR(25),
    NAME             CHAR(25),
    FIRMA            CHAR(25),
    STRASSE          CHAR(35),
    PLZ              INTEGER,
    ORT              CHAR(35),
    TELEFON          CHAR(25),
    FAX              CHAR(25),
    LAND             CHAR(3),
    EMAIL            CHAR(25),
    HOMEPAGE         CHAR(35),
    ANZ_PROD         INTEGER NOT NULL,
    ANZ_ART          INTEGER NOT NULL,
    SHOP_VERZ        CHAR(50),
    INSTALL_DOMAIN   CHAR(25),
    FTP_USER         CHAR(25),
    FTP_PASSW        CHAR(25),
    MYSQL_HOST       CHAR(25),
    MYSQL_USER       CHAR(25),
    MYSQL_PASSWORT   CHAR(25),
    MYSQL_PORT       INTEGER NOT NULL,
    MYSQL_DATENBANK  CHAR(25),
    SHOP_BENUTZER    CHAR(25),
    SHOP_PASSW       CHAR(25),
    SHOP_LINK        VARCHAR(150),
    SHOPADMIN_LINK   VARCHAR(150)
);




/******************************************************************************/
/****                             Primary Keys                             ****/
/******************************************************************************/

ALTER TABLE SHOPDATEN ADD CONSTRAINT PK_SHOPDATEN PRIMARY KEY (SHOP_ID);


/******************************************************************************/
/****                              Privileges                              ****/
/******************************************************************************/

[Hansa]

Das ist nur die Table. Oben ist eine Checkbox "extract all". Das da alleine nützt nichts.

[mkinzler]

In deinem Skript war gar kein Trigger und kein Generator definiert! Habe dies nun erzeugt

SQL-Code:

/******************************************************************************/
/**                Generated by IBExpert 24.01.2006 19:25:33                 **/
/******************************************************************************/

SET SQL DIALECT 3;

SET NAMES WIN1252;



/******************************************************************************/
/**                                  Tables                                  **/
/******************************************************************************/


CREATE GENERATOR GEN_SHOPDATEN_ID;

CREATE TABLE SHOPDATEN (
    SHOP_ID          INTEGER NOT NULL,
    SHOPDATUM        CHAR(10) NOT NULL,
    VORNAME          CHAR(25),
    NAME             CHAR(25),
    FIRMA            CHAR(25),
    STRASSE          CHAR(35),
    PLZ              INTEGER,
    ORT              CHAR(35),
    TELEFON          CHAR(25),
    FAX              CHAR(25),
    LAND             CHAR(3),
    EMAIL            CHAR(25),
    HOMEPAGE         CHAR(35),
    ANZ_PROD         INTEGER NOT NULL,
    ANZ_ART          INTEGER NOT NULL,
    SHOP_VERZ        CHAR(50),
    INSTALL_DOMAIN   CHAR(25),
    FTP_USER         CHAR(25),
    FTP_PASSW        CHAR(25),
    MYSQL_HOST       CHAR(25),
    MYSQL_USER       CHAR(25),
    MYSQL_PASSWORT   CHAR(25),
    MYSQL_PORT       INTEGER NOT NULL,
    MYSQL_DATENBANK  CHAR(25),
    SHOP_BENUTZER    CHAR(25),
    SHOP_PASSW       CHAR(25),
    SHOP_LINK        VARCHAR(150),
    SHOPADMIN_LINK   VARCHAR(150)
);




/******************************************************************************/
/**                               Primary Keys                               **/
/******************************************************************************/

ALTER TABLE SHOPDATEN ADD CONSTRAINT PK_SHOPDATEN PRIMARY KEY (SHOP_ID);


/******************************************************************************/
/**                                 Triggers                                 **/
/******************************************************************************/


SET TERM ^ ;


/******************************************************************************/
/**                           Triggers for tables                            **/
/******************************************************************************/



/* Trigger: SHOPDATEN_BI */
CREATE TRIGGER SHOPDATEN_BI FOR SHOPDATEN
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.SHOP_ID IS NULL) THEN
    NEW.SHOP_ID = GEN_ID(GEN_SHOPDATEN_ID,1);
END
^


SET TERM ; ^



/******************************************************************************/
/**                                Privileges                                **/
/******************************************************************************/

[wlfmario]

Doch der Generatort ist vorhanden !
Den Tigger habe ich gestern mal gelöscht.
Da die Interbase Kompos den Generator Addieren, brauche ich den Tiggre doch nicht in der DB oder ?
Wenn ich Post ausführe, wird der Generator auch Addiert.
Das kann aber doch nicht der Grund sein, das keine Daten in die DB eingetragen werden !

[Hansa]

Guck hier :

http://www.delphipraxis.net/internal...594&highlight=

Da steht eine komplette DB-Definition, die funktioniert. Folgendes ist zu tun : Namen anpassen, Felder hinzufügen und in der Script-Executive ablaufen lassen. Lassen sich mit IBExpert Daten hinzufügen, dann und nur dann sollte man Delphi bemühen. 8)

[wlfmario]

Danke für den Tip !
Ich werde aber erst mal versuchen mit IBExpert eine Neue Tabelle zu erstellen inkl. Tiggre und Generator, dan ist der Lerneffekt grösser.
Mal sehen ob es klappt.
Muß ich bei der erstellung etwas besondres beachten ?

[wlfmario]

Schade ! eine Neue Datenbank erstellt, und alles neu gemacht . Er will einfach keine Daten einfügen.
Kann sich jemand das Projekt mal ansehen ? ich finde den Fehler einfach nicht.
Ich bekomme auch keine Fehlermeldung ect.
Bin für jeden Tip dankbar.

[wlfmario]

Danke hat sich erledigt ! Fehler gefunden.

Ich habe vergessen ein Datum Wert in die Tabelle zu schreiben, bei Post wurde keine Meldung ausgegeben da ich nicht in der Tabelle Not Null angegeben hatte.


Danke euch allen...