Forum: Datenbanken
Delphi
by mkinzler,
24. Jan 2006
Die Tabelle und die Beschreibung ihrer Felder ( am besten als DDL inkl der schon vorhamndenen Daten als inserts; kann von IBExpert erzeugt werden.)
Forum: Datenbanken
Delphi
by mkinzler,
23. Jan 2006
IBDataSet.Insert; einfügen.
Forum: Datenbanken
Delphi
by mkinzler,
23. Jan 2006
-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
DM.IBShop.Close;
DM.IBShop.SQL.Text :='INSERT INTO SHOPDATEN (NAME) VALUES '+QuotedStr('Mario')+')';
DM.IBShop.ExecSql;
Forum: Datenbanken
Delphi
by mkinzler,
23. Jan 2006
Text ist eine Property die Klammern bei der Zuweisung sind zuviel.
DM.IBShop.InsertSQL.Text :='INSERT INTO SHOPDATEN (NAME) VALUES ('+QuotedString('MARIO')+')';
Forum: Datenbanken
Delphi
by mkinzler,
23. Jan 2006
Mein name ist durch eine String zu ersetzen z.B.
INSERT INTO SHOPDATEN (NAME) VALUES 'wlfmario'
Forum: Datenbanken
Delphi
by mkinzler,
23. Jan 2006
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.
Forum: Datenbanken
Delphi
by mkinzler,
23. Jan 2006
In der Datenbank mit IConsole oder IBEXpert
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
Forum: Datenbanken
Delphi
by mkinzler,
23. Jan 2006
Gen_ID() ist keine Funktion von Delphi, sondern eine Funktion von Interbase.
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