[es] - Export Grida u CSV

brbljivko
student

Član broj: 204332
Poruke: 49
*.dynamic.sbb.rs.

Profil

^{26.10.2010. u 23:11 - pre 164 meseci}

Moze li pomoc!!!!!

Potrebno mi je da podatke koje dobijam iz baze i koje mi se nalaze u Data Sourcu i koji su prikazani u Gridu exportujem u CSV fajl. Projekat radim u Delphi 7.
Postoji li neka dodatna komponenta i koja ako postoji? Ili je samo potrebno dodati proceduru koja ce to da izvrsava?? Bilo bi lepo da neko ima tu proceduru

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Export Grida u CSV - Delphi

^{27.10.2010. u 00:29 - pre 164 meseci}

> Potrebno mi je da podatke koje dobijam iz baze i koje mi se nalaze u Data Sourcu i koji su prikazani u Gridu exportujem u CSV fajl. Projekat radim u Delphi 7.
> Postoji li neka dodatna komponenta i koja ako postoji? Ili je samo potrebno dodati proceduru koja ce to da izvrsava?? Bilo bi lepo da neko ima tu proceduru

Pogledaj TJvCsvDataSet iz JVCLa.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

brbljivko
student

Član broj: 204332
Poruke: 49
*.dynamic.sbb.rs.

Profil

Re: Export Grida u CSV - Delphi

^{27.10.2010. u 16:12 - pre 164 meseci}

Nasa sam i skinuo JVCL u kome ima TJvCsvDataSet.

Ne snalazim se kako da primenim to i da iskoristim. Moze li pomoco oko toga???

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Export Grida u CSV - Delphi

^{27.10.2010. u 17:09 - pre 164 meseci}

> Ne snalazim se kako da primenim to i da iskoristim. Moze li pomoco oko toga???

Postoji i odgovarajući demo za tu komponentu u JVCLu, a mislim da je bilo i ovde ranije pitanja na tu temu pa pogledaj stare poruke, možda ima i primera.

Odgovor na temu

salaczr

Član broj: 160654
Poruke: 103
*.dynamic.isp.telekom.rs.

+5 Profil

Re: Export Grida u CSV - Delphi

^{27.10.2010. u 21:23 - pre 164 meseci}

Evo procedure koju sam ja koristio u D7 za export clientdataset-a u csv. Mozda ti pomogne.

Code:

procedure TwmMain.ExportCsv;
var
  sqltext,datum_vreme,tid,uid,pin,msisdn, iznos:string;
  Diler, ProdMesto : string;
  i:integer;
  exportFile:TstringList;
begin
   exportFile:=TStringList.create;
   openquery1(sqltext);

   for i:=0 to sqlupit1.RecordCount-1 do
      begin
            DateTimeToString(datum_vreme, 'dd/mm/yyyy hh:mm:ss', sqlUpit1.FieldByName('datum_vreme').AsDateTime);
            tid:=(sqlUpit1.FieldValues['tid']);
            uid:=(sqlUpit1.FieldValues['uid']);
            pin:=(sqlUpit1.FieldValues['pin']);
            Diler := (sqlUpit1.FieldValues['DILER_NAZIV']);
            ProdMesto := (sqlUpit1.FieldValues['PRODAJNO_MESTO_NAZIV']);
            msisdn:=(sqlUpit1.FieldValues['msisdn']);
            iznos:=floattostrf(sqlupit1.fieldbyname('iznos').Value,ffnumber,15,2);

       while strlen(pchar(iznos))<sqlupit1.fieldbyname('iznos').DataSize do
         begin
          iznos:=' '+(iznos);
         end;
       while strlen(pchar(tid))<sqlupit1.fieldbyname('tid').DataSize do
         begin
          tid:=' '+(tid);
         end;
       while strlen(pchar(datum_vreme))<sqlupit1.fieldbyname('datum_vreme').DataSize do
         begin
          datum_vreme:=' '+(datum_vreme);
         end;
      while strlen(pchar(uid))<sqlupit1.fieldbyname('uid').DataSize do
         begin
          uid:=' '+(uid);
         end;
      while strlen(pchar(iznos))<sqlupit1.fieldbyname('msisdn').DataSize do
         begin
          msisdn:=' '+(msisdn);
         end;

         exportFile.Add(
            datum_vreme+','
            +tid+','
            +uid+','
            +pin+','
            +msisdn+','
            +iznos+','
            + Diler+','
            + ProdMesto);
            sqlupit1.next;
      end;
  exportFile.SaveToFile('transakcije.csv');
end;

pozdrav

Odgovor na temu