Benötige dringend hilfe in ADO Grundlagen

[r_kerber]

Wenn es sich bei die Spalten vom Typ Character dann müssen die einzufügenden Strings im INSERT-Befehl noch innerhalb von '' stehen!

Delphi-Quellcode:

ADOCommand1.CommandText := 'INSERT INTO "B 24-700" VALUES ('''+QuotedStr(Wert1)+''','''+QuotedStr(Wert2)+''','''+QuotedStr(Wert3)+''')';

[r_kerber]

Zitat:

Zitat von jschade

die spaltennamen kommen übrigens beim insert in klammern hinter den tabellennamen, denn beim update werden sie doch durch das "set" im sql-string (update tabelle set Spalte='wert') bestimmt,oder?

. Stimmt, muß man aber nur angeben, wenn man nicht für alle Spalten einen Werte angibt.

[jschade]

Zitat:

Zitat von r_kerber

Zitat:

Zitat von jschade

die spaltennamen kommen übrigens beim insert in klammern hinter den tabellennamen, denn beim update werden sie doch durch das "set" im sql-string (update tabelle set Spalte='wert') bestimmt,oder?

. Stimmt, muß man aber nur angeben, wenn man nicht für alle Spalten einen Werte angibt.

... man lernt nie aus :oops:

[r_kerber]

Habe in 'nem schlauen Buch nachgeschaut! :chat:

[MaxiMcL]

Vielen Dank für eure Zahlreichen antworten. :D

Jetz sieht die Funktion so aus:

Delphi-Quellcode:

function TDataModule1.SchreibeinTabelle(Wert1,Wert2,Wert3: string): Boolean;
begin
  SchreibeinTabelle := true;
  try
    ADOCommand1.CommandType := cmdText;
    ADOCommand1.CommandText := 'INSERT INTO "B24-700" VALUES ('''+QuotedStr(Wert1)+''','''+QuotedStr(Wert2)+''','''+QuotedStr(Wert3)+''')';
    ADOCommand1.Execute;
  except
    SchreibeinTabelle := false;
  end;
end;

Geht aber immer noch net :( . Jetzt kommt aber eine andere Exception: Syntaxfehler in Abfrage. Die Abfrage ist unvollständig.

[jschade]

und so?

Code:

function TDataModule1.NeuerSatz(Wert1,Wert2,Wert3: string): Boolean;
begin
  NeuerSatz := true;
  try
    ADOCommand1.CommandType := cmdText;
    ADOCommand1.CommandText := 'INSERT INTO B24-700(Artikelbeschreibung,Artikelname,ArtikelNr) VALUES ('+QuotedStr(Wert1)+','+QuotedStr(Wert2)+','+QuotedStr(Wert3)+')';
    ADOCommand1.Execute;
  except
    NeuerSatz := false;
  end;
end;

die drei hochkommas solltest du nicht brauchen, denn dafür sorgt quotedstr()...

[r_kerber]

Zitat:

Zitat von jschade

die drei hochkommas solltest du nicht brauchen, denn dafür sorgt quotedstr()...

Tschuldigung, das habe ich völlig ignoriert... :oops:

[MaxiMcL]

Es hat funktioniert!!! :hello:

Vielen Dank für eure hilfe :D