Einzelnen Beitrag anzeigen

jschade

Registriert seit: 11. Jul 2003
Ort: Hamburg
62 Beiträge
 
#16

Re: Benötige dringend hilfe in ADO Grundlagen

  Alt 30. Jul 2003, 19:18
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()...
  Mit Zitat antworten Zitat