Meni je danas zatrebalo da isčitam CSV i prvo što mi je palo na pamet je bio ADO.
Prepisao sam connection string za koji znam da radi u nekim drugim jezicima, ali sam sklonio i neke navodnike koje je ipak trebalo ostaviti, pa mi je Delphi izbacio Exception. Posle više uzaludnih pokušaja da shvatim o čemu se radi, potražio sam pomoć od vas.
Na kraju sam shvatio gde sam pogrešio i sad sve radi, pa reko da prepravim post. :)
Code:
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
sFolder + ';Extended Properties="Text;HDR=YES;FMT=Delimited";Persist Security Info=False';
Obratite pažnju da je sFolder folder u kome se nalazi CSV fajl, a ne kompletna putanja do fajla kao što to treba da bude u slučaju XLS fajla.
Ime fajla (bez putanje) se koristi u Selectu, za razliku od XLS-a kod koga se ovde prosleđuje ime Sheet-a.
Code:
ADODataSet.ConnectionString := ConnectionString;
ADODataSet.CommandText := 'select * from [' + sCSVFileName + ']';
ADODataSet.Open;
[Ovu poruku je menjao viking13 dana 07.10.2008. u 01:03 GMT+1]