Umgang mit Datenbank

[dominikkv]

hi
ich hab noch nie was mit einer datenbank gemacht...bin also in sachen datenbanken nicht so bewandert^^
ich habe vor so ca. 4000 Datensätze in eine datenbank zu schreiben, am besten eine access datenbank.

hab schon im internet gesucht, auch hier im Forum, allerdings nichts brauchbares gefunden...
ich brauche irgendjemanden der mir hier kurz sagt: "du brauchst die und die komponente und mit diesem befehl legst du einen neuen datensatz an und mit diesem schreibst du deine daten rein..." :zwinker:

ich hab turbo delphi 2006 explorer, kann also keine zusätzlichen komponenteninstallieren...
ich hab schon dieses Tutorial angeschaut, allerdings gibt es bei mir kein Datei->Neu->Tabelle.

hoffe ihr könnt mir helfen :spin:

[mkinzler]

Bei Access am Besten per Ado (dbGo)

[Bernhard Geyer]

Schau mal in das Demos/ADO-Verzeichnis deiner Delphi-Installation

[dominikkv]

hi
ich bin jetzt so weit das ich eine verbindung zu der datenbank aufgebaut habe (über TADOConnection)

Delphi-Quellcode:

function TDataModule2.OpenDatabase: Boolean;
begin
  OpenDatabase:=true;
  try
    ADOConnection1.Open;
  except
    OpenDatabase:=false;
  end;
end;

Die Datenbank habe ich ersellt indem ich in Access einfach neue DB erstellt habe und diese gespeichert hab.
Wisst ihr jetzt wie ich eine Tabelle darin erstellen kann und dann auf die Felder zugreifen kann?
mfg.dominikkv

[Bernhard Geyer]

Entweder du gest bei Access über ADOX oder schickst CREATE TABLE ... SQL-Anweisungen zu deiner Datenbank.

[dominikkv]

ADOX kann ich nicht installieren...wei ich die Explorer Edition hab...und wie mach ich das mit CREATE TABLE?
brauch ich da ne TADOTable?

[mkinzler]

Nein, Table-Komponenten vertecken SQL vor dem unbedarften Anwender. TADOQuery wäre die richtige Komponente.

[dominikkv]

und wie verwende ich die?
ich bin grad ein bisschen :spin2: :roteyes: :freak:
ich will einfach nur wissen wie ich einen datensatz in eine Access-DB schreiben kann...
kann mir einer von euch ein beispiel geben wie ich sowas mache? :feuerchen:

[mkinzler]

Bernhardt hat dir doch geraten, die Beispiele von Delphi anzusehen, haben die dir nicht geholfen?

[Phoenix]

Zitat:

Zitat von dominikkv

ich will einfach nur wissen wie ich einen datensatz in eine Access-DB schreiben kann...

SQL-Code:

INSERT INTO
   tabellenname
   (Feldname1, Feldname2, Feldname3)
VALUES
   (Wert1, Wert2, Wert3);

Wobei Du Textwerte z.B. mit ' escapen musst.

[mkinzler]

http://www.dsdt.info/tutorials/ado/
http://www.dsdt.info/tutorials/dbteil2/
http://www.dsdt.info/tutorials/

[dominikkv]

Zitat:

Zitat von mkinzler

Bernhardt hat dir doch geraten, die Beispiele von Delphi anzusehen, haben die dir nicht geholfen?

es gibt bei mir keine beispiele dazu...

Zitat:

Zitat von mkinzler

http://www.dsdt.info/tutorials/ado/
http://www.dsdt.info/tutorials/dbteil2/
http://www.dsdt.info/tutorials/

hab ich beide schon angeschaut...funktionieren ein paar sachen nicht weil ich diese sch*** explorer edition hab...

Zitat:

Zitat von Phoenix

Zitat:

Zitat von dominikkv

ich will einfach nur wissen wie ich einen datensatz in eine Access-DB schreiben kann...

SQL-Code:

INSERT INTO
   tabellenname
   (Feldname1, Feldname2, Feldname3)
VALUES
   (Wert1, Wert2, Wert3);

Wobei Du Textwerte z.B. mit ' escapen musst.

:)
hab nun Folgendes:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
begin
DataModule2.ADOConnection1.BeginTrans;
with DataModule2.ADOQuery1 do
  try
    Active:=false;
    SQL.Clear;
    Append;
    SQL.Add('INSERT INTO Fehlerbericht (Feld1, Feld2, Feld3) VALUES ("Wert1", "Wert2", "Wert3")');
    ExecSQL;
    DataModule2.ADOConnection1.CommitTrans;
      except
    on E:Exception do DataModule2.ADOConnection1.RollbackTrans;
    end;
end;

wenn ich aber auf den button klicke kommt die fehlermeldung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Datei_Filtern.exe ist eine Exception der Klasse EDatabaseError mit der Meldung 'ADOQuery1: Operation bei geschlossener Datenmenge nicht ausführbar' aufgetreten.

ich habe einfach in Access eine neue DB und darin eine neue Tabelle erstellt die Fehlerbericht heisst und darin die Spalten Feld1, Feld2 und Feld3 erzeugt. ich habs schon mit primärschlüssel und ohne primärschlüssel versucht...

[Schweesspunkt]

Hallo,

Zitat:

procedure TForm1.Button5Click(Sender: TObject);
begin
DataModule2.ADOConnection1.BeginTrans;
with DataModule2.ADOQuery1 do
try
Active:=false;
SQL.Clear;
Append;
SQL.Add('INSERT INTO Fehlerbericht (Feld1, Feld2, Feld3) VALUES ("Wert1", "Wert2", "Wert3")');
ExecSQL;
DataModule2.ADOConnection1.CommitTrans;
except
on E:Exception do DataModule2.ADOConnection1.RollbackTrans;
end;
end;

Ich glaube du musst nur active auf true setzten.



M.f.G.
Kunsch Alain

[dominikkv]

ok, hat sich erledigt...ich hab die tabelle nochmal gelöscht und neu angelegt und jetzt gehts... :mrgreen:
so, noch eine frage:
so kann ich in ein feld vom typ "Text" schreiben:

SQL-Code:

SQL.Add('INSERT INTO Tabelle (Textfeld1, Textfeld2) VALUE ('+QuotedStr(variable1)+', '+QuotedStr(variable2)+');

wie kann ich jetzt integer-variablen in ein feld vom typ "Zahl" (Long Integer) Schreiben?

[mkinzler]

SQL-Code:

INSERT INTO Tabelle (<integerfeld>) VALUE (<Wert>);

[dominikkv]

thx
wie mache ich das eigendlich wenn ich 2 tabellen in einer DB ändern will...

SQL-Code:

with DataModule2.ADOQuery1 do
  try
    Active:=false;
    SQL.Clear;
    SQL.Add('INSERT INTO Tabelle1 (feld1, Feld2) VALUE ("a", "b")');
    SQL.Add('INSERT INTO Tabelle2 (feld1, Feld2) VALUE ("a", "b")');
    ExecSQL;
    DataModule2.ADOConnection1.CommitTrans;
   except
    on E:Exception do DataModule2.ADOConnection1.RollbackTrans;
   end;

...geht irgendwie nicht:

Zitat:

Im Projekt Datei_Filtern.exe ist eine Exception der Klasse EOleException mit der Meldung 'Fehlendes Semikolon (;) am Ende der SQL-Anweisung' aufgetreten.

[mkinzler]

Am besten mit Parametern:

Delphi-Quellcode:

with DataModule2.ADOQuery1 do
  try
    Active:=false;
    SQL.Text := 'INSERT INTO Tabelle1 (feld1, Feld2) VALUE ( :w1, :w2)');
    Paramters.ParamByName( w1, 'a'); 
    Paramters.ParamByName( w2, 'b'); 
    ExecSQL;
    Paramters.ParamByName( w1, 'c'); 
    Paramters.ParamByName( w2, 'd'); 
    ExecSQL;
    ...
    DataModule2.ADOConnection1.CommitTrans;
   except
    on E:Exception do DataModule2.ADOConnection1.RollbackTrans;
   end;

[dominikkv]

so wie ich das interpretiere legt er dann aber 2 datensätze in einer tabelle an...ich will aber den ersen datensatz in tabelle1 und den zweiten datensatz in tabelle2...und die 2 tabellen haben unterschiedliche spaltennamen...

[mkinzler]

Sorry hab das mit Tabelle2 überlesen. TADOQuery kann immer nur ein Statement auf einmal ausführen. Für mehrere brauchst du TADOCommand.