19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Guada un po questo allegato che filtra migliaia di date in pochi attimi.Si, effettivamente è praticanmente istantaneo.
Occorre eliminare i loop ripetitivi.
Ho visto che dalle risposte praticamente Picavbg ha trovato l'inghippo che rallentava la risposta della query cheAncora non ho accertato in pieno tale inghippo. La mia è una deduzione logica, che deve essere ancora dimostrata.
interrogava il suo DB.
Ho visto che dalle risposte praticamente Picavbg ha trovato l'inghippo che rallentava la risposta della query cheIl mio DB non presenta dati ridondanti, a meno che non vogliamo considerare tali quelli costituenti le chiavi di accesso che in SQL si distinguerebbero in chiavi primarie e secondarie.
interrogava il suo DB.
Volevo solo far notare a Picavbg che il numero di tabelle presenti in un DB non incide sulla velocità di risposta dello
stesso ma il numero di record che la tabella contiene (ma devono essere veramente tanti), se indicizzata correttamente,
che non ci siano dati ridondanti (se non in casi particolari) e come sono costruite le query Sql. Ovviamente come nel tuo
caso impatta anche Gambas, specialmente nel popolare Gridview, Listview e oggetti similari.
Perché non azzeriamo tutto quanto detto e ti decidi a spostare il tuo progetto su un altro database?
C'è MySQL (tornu docet) ma se vuoi c'è anche il lascito di Sotema (la guida all'installazione e uso di Postgresql).
Lo so è un azardo ma qui siamo di fronte a un database già collaudato e funzionte.
Cosa te ne pare?
Sono tantissimi i programmi che per riorganizzarsi si aggiornano completamente...Significa riscrivere tutti i passi di programma che puntano al DB e, poi, migrare il DB attuale sul nuovo, non dopo però averlo studiato.
non ho capito ma le date nella tabella movimgg sono di tipo Integer?Si, è una colonna definita "INTEGER"
Sappimi dire quanto ci metti a scansionare una data col mio programma sul tuo computer io come massimo ci ho messo 2 secondi ma normalmente meno di uno.Scusa, ma non ho capito come posso fare. Il tuo programma punta a un DB che io non possiedo e pertanto mi risponde "NESSUN DATO TROVATO"
Ti allego un piccolo progetto che filtra i record sulla colonna Data (usdat) non indicizzata, a me lo fa in pochi attimi.Grazie Gianluigi. Sei sempre disponibile e ti sono grato.
Così puoi verificare su una base concreta.
i_dataStamp = Int(Val($_DataStamp))
ApriDB = New OpenDB
$_TbParFrm.Add("0")
i_RgGriStamp = (-1)
RecMovgg = ApriDB.DBConnection.EXEC("SELECT * FROM movimgg WHERE DtCoMovgg = '" & i_dataStamp & "' ORDER BY NuProMovvgg")
For Each RecMovgg
$_LirEuro = RecMovgg!MonMovvggPuò darsi che esista DtCoMovgg
i_RgGriStamp += 1
GridStamp[i_RgGriStamp, 1].text = RecMovgg!DescrMovvgg
fImpMov = RecMovgg!ImpMovvgg
If fImpMov > 0 Then
i_CaselGriStamp = 3
Else
fImpMov *= (-1)
i_CaselGriStamp = 4
Endif'------------------------------- OpenDB.Class ------------------------------------------------------------------------------------------
Public bSwOpErr As Boolean
Public DBConnection As New Connection 'inizializza la nuova connessione
'**************************--- la prossima riga vale per tutti ---***********************
Public $DbPath As String = user.home & "/mont/dativari/contabfam" 'Percorso di ricerca del Database ContabFam.db"
Public $IconPath As String = user.home & "/mont/dativari/contabfam/IconVar" 'Persocorso di ricerca delle picture utilizzate nel programma
'***********************************************************************************************
Public $DbNome As String = "ContabFamdb" 'Nome del Database
Public Sub _new()
'----------------------------------------
With
DBConnection
.Close
.Type = "sqlite3"
.Host = $DbPath
.Name = $DbNome
.OPEN 'Apro il DB
End With'------------------------------- OpenDB.Class ------------------------------------------------------------------------------------------
Public bSwOpErr As Boolean
Public DBConnection As New Connection 'inizializza la nuova connessione
'**************************--- la prossima riga vale per tutti ---**************************
'Public $_DbPath As String = user.home & "/contabfam" 'Percorso di ricerca del Database ContabFam.db"
Public $DbPath As String = user.home & "/mont/dativari/contabfam" 'Percorso di ricerca del Database ContabFam.db"
Public $IconPath As String = user.home & "/mont/dativari/contabfam/IconVar" 'Persocorso di ricerca delle picture utilizzate nel programma
'***********************************************************************************************
Public $DbNome As String = "ContabFamdb" 'Nome del Database
Public Sub _new()
'----------------------------------------
With
DBConnection
.Close
.Type = "sqlite3"
.Host = $DbPath
.Name = $DbNome
.OPEN 'Apro il DB
End With
bSwOpErr = False 'OPEN eseguita correttamente
Catch
bSwOpErr = True 'Errore nella Open
End
bSwOpErr = False 'OPEN eseguita correttamente
Catch
bSwOpErr = True 'Errore nella Open
End
RecMovgg = ApriDB.DBConnection.EXEC("SELECT * FROM movimgg WHERE DtCoMovgg = '" & i_dataStamp & "' ORDER BY NuProMovvgg")
For Each RecMovggGli indici vanno impostati su tabelle già create (e riempite).Ormai è passato troppo tempo dalla creazione del DB e non ricordo assolutamente come sono definite le colonne delle singole tabelle. Devo rivedere tutto, compresa la gestione del DB nel programma perchè. penso che, indicizzando le tabelle, cambi anche il codice scritto per la lettura e l'aggiornamento dei record in esso contenuti, nonchè per la registrazione di nuovi record.
Normalmente la/le colonne sono NOT NULL UNIQUE
non escluderei che le cause della lentezza siano dovute ad altri motivi,Ho provato qualche mese fa a sostituire il disco dei dati con uno di tipo SSD, ma il risultato non è cambiato, così ho continuato ad usare un disco SATA.
Devi usare CDate(Val("dataStringa")) se vuoi continuare a usare CDate.
Codice: [Seleziona]Con Gambas 3.9:Dim dData As Date
..............................................................
dData = CDate($DtMM & "/" & $DtGG & "/" & $AADtCont)
Variabili locali:
$DtMM = "05"
$DtGG = "28"
$AADtCont = "2018"
dData = 28/05/2018 00:00:00
Con Gambas 3.10:
Variabili locali:
$DtMM = "05"
$DtGG = "28"
$AADtCont = "2018"
dData = 27/05/2018 22:00:00
Dim DataDig As String
.......................................
DataDig = DateBox1.valueDataDig = Right(DataDig, 4) & Left(DataDig, 2) & Mid(DataDig, 4, 2) DataDig = Mid(DataDig, 7, 4) & Left(DataDig, 2) & Mid(DataDig, 4, 2) [code]
in modo da ottenere in DataDig sempre una data nel formato AAAAMMGG, come occorre al programma.
La strada scelta mi permette di far funzionare il programma sia in Gambas3.10 che in Gambas3.9
Percò: ... occhio.
:ciao: :ciao: