Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Benötige dringend hilfe in ADO Grundlagen (https://www.delphipraxis.net/6986-benoetige-dringend-hilfe-ado-grundlagen.html)

r_kerber 30. Jul 2003 14:41

Re: Benötige dringend hilfe in ADO Grundlagen
 
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 30. Jul 2003 14:47

Re: Benötige dringend hilfe in ADO Grundlagen
 
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 30. Jul 2003 14:50

Re: Benötige dringend hilfe in ADO Grundlagen
 
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 30. Jul 2003 14:57

Re: Benötige dringend hilfe in ADO Grundlagen
 
Habe in 'nem schlauen Buch nachgeschaut! :chat:

MaxiMcL 30. Jul 2003 19:03

Re: Benötige dringend hilfe in ADO Grundlagen
 
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 30. Jul 2003 19:18

Re: Benötige dringend hilfe in ADO Grundlagen
 
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 31. Jul 2003 08:24

Re: Benötige dringend hilfe in ADO Grundlagen
 
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 31. Jul 2003 09:58

Re: Benötige dringend hilfe in ADO Grundlagen
 
Es hat funktioniert!!! :hello:

Vielen Dank für eure hilfe :D


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:45 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz