Thema: Delphi XLS in CSV

Einzelnen Beitrag anzeigen

Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.487 Beiträge
 
Delphi 7 Enterprise
 
#5

AW: XLS in CSV

  Alt 20. Feb 2013, 15:38
Du hast vergessen das Arbeitsmappen-Objekt anzugeben. Der Dateiname wird durch den Connection-String als DataSource gesetzt. Der Arbeitsmappen-Name (immer die erste) wird als Tabellenname im SQL angegeben.
Delphi-Quellcode:
TableNames := TStringList.Create;

with PatBehandlungData.qryAdo do
begin
  Active:=False;
  // Einlesen der Arbeitsmappen-Namen
  GetTableNames(TableNames);
  SQL.Clear;
  // Übergabe der ersten Arbeitsmappe als Tabellenname,
  // das WHERE ist mal auskommentiert
  SQL.Add('SELECT * FROM ['+TableNames[0]+'] --WHERE ID IS NOT NULL');
  Active:=True;
  Open; //HIER knallt es
end;

TableNames.Free;
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat