Gambas-it

Archivi (sola lettura) => Programmazione (Gambas 2) => Topic aperto da: andy60 - 06 Ottobre 2010, 09:23:48

Titolo: Export da tabella sqlite a csv
Inserito da: andy60 - 06 Ottobre 2010, 09:23:48

@mdxxxx

sto cercando di usare la tua libreria CSVWriter e CSVReader, premetto che non ho tempo stamattina x vederla e risolvere la cosa, ma come faccio a far imputare i record nel vettore allElements? E' possibile farlo? Grazie per l'attenzione, come al solito!!

Titolo: Re: Export da tabella sqlite a csv
Inserito da: md9327 - 06 Ottobre 2010, 10:48:42

Se non ricordo male (non ho adesso a disposizione Gambas), allElements è un'array multidimensionale, ovvero, un array che contiene le righe, e ogni elemento è un array che contiene le colonne...

Se non ricordo male, mi pare ci sia pure un esempio...

Titolo: Re: Export da tabella sqlite a csv
Inserito da: andy60 - 06 Ottobre 2010, 12:43:31

Citazione da: md9327 - 06 Ottobre 2010, 10:48:42

Se non ricordo male (non ho adesso a disposizione Gambas), allElements è un'array multidimensionale, ovvero, un array che contiene le righe, e ogni elemento è un array che contiene le colonne...

Se non ricordo male, mi pare ci sia pure un esempio...

si, visto l'esempio, ma io con gambas e non solo con gambas sono un piccolo-piccolo-programmatore e non so come adattarlo senno...nuntescocciavo :'( :'( !!!! dopo ce riprovo

Titolo: Re: Export da tabella sqlite a csv
Inserito da: md9327 - 06 Ottobre 2010, 14:10:35

 :D

Titolo: Re: Export da tabella sqlite a csv
Inserito da: andy60 - 06 Ottobre 2010, 14:32:25

Citazione da: md9327 - 06 Ottobre 2010, 14:10:35

:D

risolto con un codice brutale, unico problema che i numeri vengono in formato testo...

 

Codice: [Seleziona]

 DIM hFile AS Stream  
  DIM myconn AS NEW Connection
  DIM myset AS Result
  WITH myconn
      .Name = "/home/andy/Gambas/myZone/data/myZone.db" 
      .Type = "sqlite3"
      .Open  
  END WITH
  myset = myconn.Exec("select * from tbMiniblocchi order by ALIMENTO")
  hFile = OPEN user.home & "/Gambas/myZone/export/alimenti.csv" FOR CREATE
  PRINT #hFile, Application.Name & " " & Application.Version & "- Alimenti in miniblocchi - " & Format$(Now, " dd / mm / yyyy ")
  PRINT #hFile, "Id" & ";", "Alimento" & ";", "Tipo" & ";", "Gruppo" & ";", "Scelta" & ";", "Grammi" & ";", "Proteine" & ";", "Carboidrati" & ";", "Grassi"
  FOR EACH myset
    PRINT #hFile, myset!ID & ";", myset!ALIMENTO & ";", myset!TIPO & ";", myset!GRUPPO & ";", myset!SCELTA & ";", myset!GRAMMI & ";", myset!P & ";", myset!C & ";", myset!G & ";"
  NEXT 
  myconn.Close
  CLOSE #hFile

esempio sul campo grammi (e non ditemi xche è campo testo): nemmeno se faccio il canonico CFloat(replace$(myset!GRAMMI,",","."))  mi viene aperto da OpenOffice come numero