Aus Datenbank auslesen und speichern

[mindforce]

Hi,

ich habe eine Datenbank entwickelt, und möchte verschiedene Werte von Edit1 und so in eine neue *.db eintragen. Wie mache ich das?

Für Fragen einfach Fragen. :!: :wink: :zwinker:

Gruss,

Mindforce

[mkinzler]

Bei Tableobjekten:

Delphi-Quellcode:

Table.append;
Table.FieldByName( '<feldname>').asString := Edit.Text;
...
Table.Post;

[mindforce]

Cool!

Blo´wie kann ich das nun in einer neuen DB speichern?

Gruss,

Mindforce

[mkinzler]

Ach du hast 2 Datenbanken und willst Daten von der einen in die andere transferieren?

[mindforce]

Ja das wäre gut!

[mkinzler]

-Handelt es sich um 2 Datenbanken ( besteht aus mehreren Tabellen und deren Beziehungen untereinaner) oder 2 Tabellen?
-Ist die Struktur der beiden Tabellen gleich?

[mindforce]

Also. Erstmal danke für die Hilfe.

Ja. Also.... Ich habe nur 1 Datenbank mit "Artikel" und "Beschreibung". Nun möchte ich, dass er eine 2. erstellt (oder ich es selber erstelle) mit "Artikel" Beschreibung" UND "Menge".
Menge soll er aus Edit1.text auslesen.

Gruss,

Mindforce

[mkinzler]

Ich nehme mal an das du eigentlich keine 2. brauchst sondern die erste um ein Feld erweitern willst, dann worde ich es mit SQL machen:

SQL-Code:

Alter Table <TABLE> add Menge integer;

Ich würde die Tabelle aber auch um ein Schlüsselfeld erweitern ( falls Artikel nicht die Artikelnummer meint)
Sollte die 2. Tabelle aber Rechnungsposition oder Bestellungspositioen aufnehmen, waäre es ratsammer mit Fremdschlüsseln zu arbeiten. D.h. in der 2. Tabelle befindet sich nur auf einen Verweis auf den Schlüssel der ersten Tabelle.

[mindforce]

Doch die 2. Datenbank soll ja als E-mail Anhang verschickt werden.
Und es muss eigentlich in Paradox sein.

Gruss,

Mindforce

[mkinzler]

Da du die BDE verwendest kann du Dank LocalSQL auch SQL-Befehle auf Paradoxtabellen anwenden.

Delphi-Quellcode:

eTab.CreateTable;
eTab.AppendRecord([Table1.FieldByName('Artike').Value, Table1.FieldByName('Beschreibung').Value, Edit1.Text]);

Wobei das TTable-Objekt eTab schon vorbereitet ist ( DtabaseName, TableNmae, ...)

[mindforce]

Hört sich schonmal überzeugend an.

Und funktioniert .... nicht. :cry:

Unbekannter bezeichner "etab"

Wo muss ich denn den Code eintrage???...
Und woher soll er wissen wo er die tabelle erstellen soll... oder so... :mrgreen: :angel2:

Gruss,

Mindforce

[mkinzler]

eTab ist vom Typ TTable.

Damit meinte ich, das ich davon ausging das sie Details zur neuen Tabelle schon in der IDE gesetzt wurden:

Zitat:

Wobei das TTable-Objekt eTab schon vorbereitet ist ( DatabaseName, TableNmae, ...)

DataBasename: Pfad an dem die Tabelle erzeugt werden soll.
TableName: Name der Tabelle.
FieldDefs: Beschreibung der Felder.

Du kannst dies natürlich auch im Code selber setzen.

[mindforce]

Jo Danke. Probier ich mal.

/Edit: Kann ein bisschen dauern. Muss mein PC auf neuen Schreibtisch aufbauen.

//Edit: Sorry. Das mit der Tabelle (eTab) hätte ich wissen müssen. Ich bin halt ein Dep!

///Edit: So. Table1 ... Databasename. Wie muss ich das nun machen? Schonmal nicht

Delphi-Quellcode:

Table1. create (databsename) 'test.db';

:lol:

Gru(e)ss(e),

Mindforce

[mkinzler]

Entweder in der IDE oder:

Delphi-Quellcode:

Table1.DataBaseName := 'C:\Daten';
Table1.TableName := 'test.db';
Table1.FieldDefs.Add( 'Artikel', ftInteger);
Table1.FieldDefs.Add('Beschreibung', ftString, 30);
Table1.FieldDefs.Add('Menge', ftInteger);

[Edit]Tippfehler korrigiert[/Edit]

[mindforce]

Ne er sagt: Nicht genügend wirkliche Parameter.
Ich wusste es mal woran das liegt. Mir fällt es nicht mehr ein!

Gruss,

Mindforce

[mkinzler]

Wo kommt der Fehler?
Poste mal deinen Code.