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.
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
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.

ADOCommand1.CommandText := 'INSERT INTO "B 24-700" VALUES ('+QuotedStr(Wert1)+','+QuotedStr(Wert2)+','+QuotedStr(Wert3)+')'; Ich schaue nochmal nach dem Tabellennamen.

[jschade]

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?