Daten aus Excel auslesen und in MySQL einfügen

[LeahCim]

Super :wink: thanks!

Fehler verschwunden...jetzt kann ich mich ans Grid machen!

MFG

der Leah... :-D

[BW19]

if RightStr(OpenDialog1.FileName, 3) = 'xls' Then :roll:

Also Hallo erst ma :P

ich komm nich so klar mit RightStr.... bin auch noch ziehmlich neu... Azubi mit sogut wie keiner programmier erfahrung (LEIDER) und dat im 2 lehrjahr *schähm* :(

Aber mein Problem ist ich sollte mir nen progrämmchen schreiben das Xls dateien in DB (Paradox) umwandelt... viele versuche es über Datenbankoberfläche zumachen sind gescheitert sprich... xls in dbf speichern und dat dann in DB umzuwandeln....leider gehen da daten verloren... ä,ö,ü, wird nich übernommen mehr zeilige zellen in der Exel datei werden abgeschnitten (was mir ja alles einleuchtet) aber nu muss ich es anders probieren bin hier auch schon etwas weiter gekommen aber noch nich ans ziel... hoffe ihr seid so nett und helft mir nen bissel... mit nem kleinen Lösungsansatz wer sehr zufrieden und kann meinem ausbilder auch was zeigen wenn er vom "urlaub" wieder da is...


Bin ich schon auf dem richtigen weg wenn ich ADOTable benutz?
wie speicher ich Xls in db? gibts da einfache schnelle lösung?


viele grüße ;)

und respekt vor sonem Formum is richtig interesante sache!!

[jensw_2000]

Hi BW19,

es wäre schön wenn du für deine Frage einen neuen Thread aufmachst.
Sonst wird es hier sehr unübersichtlich. :warn:

Vorab schon mal in aller Kürze... ich würde es vermutlich so lösen

1. XLS mit einer TADOTable öffnen (s.o.)

2. zur Laufzeit eine TTable erstellen (als Paradox-Tabelle)

3. die Fielddefs der AdoTable in einer Schleife durchlaufen, dabei für jedes einzelne Feld ...

3.1 den Feldtyp (String, Datum, Integer, Float ...) ermitteln
3.2 den Feldnamen ermitteln
3.3 Zusatzinformationen auslesen (MaxLength usw.)
3.4 in den Fielddefs der TTable ein Feld mit dem o.A. Eigenschaften erzeugen

4. die Paradox-Tabelle mit {TTable}.CreateTable erzeugen

5. jetzt hast du eine Paradox-Tabelle, welche die selbe Struktur wir die XLS haben sollte
5.1 die Datensätze der TADOTable mit "While not {TAdoTable}.EOF do" durchlaufen und jeden Datensatz ...
5.2 mit {TTable}.AppendRecord in die Paradox-Tabelle einfügen

Nachdem das sauber funktioniert musst du dein Programm noch etwas universell gestalten.
z.B.
- enthält die erste Zeile der XLS den Spaltentitel oder Daten ?
- welche Paradox Version
- gibt es ein Feld, das u.U. als Primary Key verwendet werden kann
- ...


Schöne Grüße,
Jens

:hi:
[edit]
Beinahe vergessen ...
Willkommen in der DP :dp: :cheers:
[/edit]

[Sausemann]

Hi,
sitze gerade an etwas ähnlichem ... Struktur soweit gleich.

Zitat:

Nachdem das sauber funktioniert musst du dein Programm noch etwas universell gestalten.
z.B.
- enthält die erste Zeile der XLS den Spaltentitel oder Daten ?

Da liegt mein Problem ...
ich kann die erste zeile garnicht auslesen ... beginnt immer in zeile 2

Delphi-Quellcode:

ADOtable.First;
ADOtable.Open;
While not ADOtable.eof do
 begin
  ...
 end

Weiß jemand Rat? :roll:

[Sausemann]

Zitat:

Zitat von Sausemann

Hi,
sitze gerade an etwas ähnlichem ... Struktur soweit gleich.

Zitat:

Nachdem das sauber funktioniert musst du dein Programm noch etwas universell gestalten.
z.B.
- enthält die erste Zeile der XLS den Spaltentitel oder Daten ?

Da liegt mein Problem ...
ich kann die erste zeile garnicht auslesen ... beginnt immer in zeile 2

Delphi-Quellcode:

ADOtable.First;
ADOtable.Open;
While not ADOtable.eof do
 begin
  ...
 end

Weiß jemand Rat? :roll:

Habe das Problem gefunden: :-D

ADO geht auch bei Excel davon aus, daß die erste Zeile die Feldnamen enthält und keinen Datensatz ... Daher kann man die erste Zeile nur mit GetFieldnames auslesen! :zwinker: