Hallo,
ich komm da irgendwie nicht draus... liegt vielleicht weil ich nur hobby bastler bin....
hier mal mein code.
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
if opendialog1.FileName <> null then
begin
textreader1.FileName := opendialog1.FileName;
try
importfromcsv.Execute;
fdquery1.Close;
fdquery1.Open;
except
on E :
Exception Do
ShowMessage(E.Message);
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
fdconnection1.Connected := false;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
fdconnection1.Connected := true;
fdquery1.Open;
end;
end.
Über datagrid bin ich nur gegangen weil ich ich mich nicht auskenne und da ein tut im internet gefunden habe....
Grüsse
Moin...
Zitat:
Oder eben über FireDAC-BatchMove (TFDBatchMove)
...eine Komponente auf die Form klatschen hat nichts mit lernen zu tun.
Zitat:
TStringList und jede Zeile über eine Split-Function (oder eine weitere TStringList mit StringList.DelimitedText) die einzelne Spalten zerlegen
und das dann ans DataSet/
Query übergeben.
...das schon eher.
Informationen:
Stringlist:
http://docwiki.embarcadero.com/Libra...es.TStringList
DelimitedText:
http://docwiki.embarcadero.com/Libra....DelimitedText
oder Split:
http://docwiki.embarcadero.com/Libra...ngHelper.Split
Beispielcode:
1.
CSV von Platte in die StringList laden (gibt es eine Methode dafür
TStringlist)
2. Stringlist durchlaufen
3. jede Zeile entweder splitten oder als DelimitedText in eine 2. Stringlist einlesen (dann hast du jedes Feld einzeln der Zeile)
4.
SQL absetzen mit den Werten (!
SQL Parameter
https://www.delphipraxis.net/152692-...uebergabe.html)
5. ...fertsch
Zitat:
ich versteh davon nur Bahnhof.
"übersetze" mal den "Beispielcode" in echten und stelle das hier ein. Dann sehen wir weiter.