Benötige dringend hilfe in ADO Grundlagen

[MaxiMcL]

Hallo Leute,

ich sitze seit geschlagenen 2 Wochen permanent vor meinem PC :( und versuche ein Programm zu schreiben, mit dem ich einer Access-Datenbank, bestehend aus 3 Spalten, Werte aus 3 Edit-Feldern zuweisen kann.
Jedoch blicke ich in Sachen ADO überhaubt nicht durch. Ich hab schon das ganze Web durchforstet, jedoch nirgends etwas für einen Anfänger gefunden.

Meine Fragen: Wie kann ich die Verbindung mit ADOConnect aufbauen und wie kann ich neue Zeilen in die Access-Datenbank hinzufügen?

Bitte helft mir :!:

Ich habe das Programmformular mal beigefügt.

[jschade]

hallo,

hab auch gerade vor 3 wochen angefangen, 'n bisschen mit delphi und access rumzuprobieren. das forum hier is dafür echt klasse. kann dir auch noch 'n buch empfehlen (so zum einstieg), falls du die möglichkeit hast irgendwo eins auszuleihen: datenbankprogrammierung mit borland delphi 6 / isbn 3-446-21736-3

1. du brauchst ne adocommand-komponente

als connection string gibst du folgendes ein:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb

2. button

Code:

procedure TForm.Button1Click(Sender: TObject);

var a,b,c : String;

begin

a := Edit1.Text;
b := Edit2.Text;
c := Edit3.Text;

ADOCommand1.CommandType := cmdText;
ADOCommand1.CommandText := 'INSERT INTO Tabellenname(Spalte1,Spalte2,Spalte3) VALUES ('+QuotedStr(a)+','+QuotedStr(b)+','+QuotedStr(c)+')';
ADOCommand1.Execute;

end;

also bei mir funktioniert's so, hoffe dir hilft's weiter...

mfg jan

[MaxiMcL]

Vielen Dank für deine Hilfe. :D
Kann ich ADOCommand auch in Verbindung mit ADOConnection benutzen? Ich habe schon eine ADOConnection im Quelltext, die bestimmte Aufgaben hat.

[MaxiMcL]

Ich hab das mal probiert, das ADOCommand mit dem ADOConnection zu verbinden. Da kommt aber beim drücken auf den button ein fehler.

Ich hab das so in einer Funktion eingegeben:

Delphi-Quellcode:

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

[jschade]

was bekommst du für ne meldung?

könnte evtl. daran liegen, dass du diese zeile vergessen hast?!:

Code:

ADOCommand1.CommandType := cmdText;

[MaxiMcL]

Also. Die Fehlermeldung lautet:

Im Projekt Project1.exe ist eine Exception der Klasse EOleException aufgetreten. Meldung:'Syntaxfehler in der INSERT INTO-Anweisung'. ...

Auch nachdem ich

Delphi-Quellcode:

ADOCommand1.CommandType := cmdText;

eingefügt habe.

Ich werde aus der Fehler,eldung nich schlau. Vielleicht weil der Tabellenname 'B 24-700' probleme macht?

[MaxiMcL]

Das ist die Prozedur, in der die Funktion aufgerufen wird:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DataModule1.NeuerSatz(NeuerSatz.Serien_Nr_Mainboard,
  NeuerSatz.Teilenr, NeuerSatz.Datecode);
end;

[r_kerber]

Hast Du tatsächlich einen Tabellennamen mit 'nem Leerzeichen? Das finde ich schon etwas merkwürdig. Dann schreibe den Tabellennamen mal in "".
Und lass beim INSERT-Befehl mal die Klammer mit den Spaltennnamen weg. Das hast Du sicher mit dem UPDATE-Befehl verwechselt

[MaxiMcL]

Jetzt sieht die Zeile so aus, und es kommt leider immernoch der gleiche Fehler. :cry:

Delphi-Quellcode:

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

Ich schaue nochmal nach dem Tabellennamen.

[jschade]

Zitat:

Zitat von r_kerber

Hast Du tatsächlich einen Tabellennamen mit 'nem Leerzeichen? Das finde ich schon etwas merkwürdig. Dann schreibe den Tabellennamen mal in "".
Und lass beim INSERT-Befehl mal die Klammer mit den Spaltennnamen weg. Das hast Du sicher mit dem UPDATE-Befehl verwechselt

hab's mal kurz ausprobiert und dein problem is wirklich der tabellenname mit dem leerzeichen!hab's auch nicht mit insert into "tabellenname" ... hinbekommen...

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?

[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