Na, einfach die CSV-Daten einlesen und dabei in eine Access-Tabelle blasen.
Einen CSV-Reader gibt es hier:
www.delphipraxis.net...highlight=tcsvreader
Folgenden Code kannst Du verwenden, wenn die Access-Tabelle in Spaltenanzahl und Datentyp genauso wie die CSV-Datei aussieht:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| Var
csvReader : TCSVReader;
sData : TFileStream;
Begin
sData := TFileStream.Create('Sample.CSV',fmOpenRead);
csvReader := TCSVReader.Create (sData, ';');
Try
While not csvReader.Eof Do Begin
MyAccessTable.Append;
For i:=0 to csvReader.ColumnCount - 1 Do
MyAccessTable.Fields[i].Value := csvReader.Columns[i];
MyAccessTable.Post;
csvReader.Next;
End;
Finally
csvReader.Free;
sData.Free;
End;
End; |
Na denn, dann. Bis dann, denn.
