Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Ricerca date con Sql
Forum - Visual Basic 6 - Ricerca date con Sql

Avatar
claudio1962 (Normal User)
Newbie


Messaggi: 17
Iscritto: 25/08/2009

Segnala al moderatore
Postato alle 19:22
Mercoledì, 26/08/2009
Buonasera a tutti, sono ancora qui a chiedere un aiuto.
Quando effettuo una ricerca tra due date in questo modo funziona correttamente
Codice sorgente - presumibilmente Visual Basic 6
  1. rs.Open "SELECT * FROM Enalotto WHERE Data Between #08/01/2009# And #08/31/2009# ", cn, adOpenDynamic, adLockOptimistic, adCmdText

Se la effettuo in quest'altro modo mi visualizza tutto l'archivio
Codice sorgente - presumibilmente Python
  1. sSQL = sSQL & "SELECT * FROM Enalotto WHERE Data Between #08/01/2009# And #08/31/2009#"
  2.  sSQL = sSQL & " AND ES1= '" & Text50.Text & "'"
  3.  sSQL = sSQL & " OR ES2= '" & Text50.Text & "'"
  4.  sSQL = sSQL & " OR ES3= '" & Text50.Text & "'"
  5.  sSQL = sSQL & " OR ES4= '" & Text50.Text & "'"
  6.  sSQL = sSQL & " OR ES5= '" & Text50.Text & "'"
  7.  sSQL = sSQL & " OR ES6= '" & Text50.Text & "'"
  8.  rs.Open sSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText


Potete aiutarmi a capire :-|

Inoltre se volessi fare la ricerca tra due date che attingo da due textbox può andar bene così
Codice sorgente - presumibilmente Visual Basic 6
  1. sSQL = sSQL & "SELECT * FROM Enalotto WHERE Data BETWEEN " & Text56.Text & " AND " & Text33.Text

Grazie :)

In parte ho risolto e in questo modo mi legge le date dentro i due textbox e mi estrapola i dati
Codice sorgente - presumibilmente Visual Basic 6
  1. dat1 = Format(Text56.Text, "mm/dd/yyyy")
  2. dat2 = Format(Text9.Text, "mm/dd/yyyy")
  3.  
  4. rs.Open "Select * FROM Enalotto WHERE Data > #" & dat1 & "# And Data <= #" & dat2 & "#", cn, adOpenDynamic, adLockOptimistic, adCmdText


ma applicandolo in questo modo non funziona :-|
Codice sorgente - presumibilmente Python
  1. dat1 = Format(Text56.Text, "mm/dd/yyyy")
  2. dat2 = Format(Text9.Text, "mm/dd/yyyy")
  3.  
  4.  sSQL = sSQL & "Select * FROM Enalotto WHERE Data > #" & dat1 & "# And Data <= #" & dat2 & "#"
  5.  sSQL = sSQL & " AND ES1= '" & Text50.Text & "'"
  6.  sSQL = sSQL & " OR ES2= '" & Text50.Text & "'"
  7.  sSQL = sSQL & " OR ES3= '" & Text50.Text & "'"
  8.  sSQL = sSQL & " OR ES4= '" & Text50.Text & "'"
  9.  sSQL = sSQL & " OR ES5= '" & Text50.Text & "'"
  10.  sSQL = sSQL & " OR ES6= '" & Text50.Text & "'"
  11.  rs.Open sSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText


:grr:

Ultima modifica effettuata da claudio1962 il 26/08/2009 alle 20:44
PM Quote
Avatar
claudio1962 (Normal User)
Newbie


Messaggi: 17
Iscritto: 25/08/2009

Segnala al moderatore
Postato alle 22:51
Giovedì, 27/08/2009
Ho risolto :asd:
Ho applicato rs.filter sulla data dopo aver effettuato la query.

PM Quote
Avatar
paperinik4 (Normal User)
Newbie


Messaggi: 8
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 12:42
Giovedì, 10/09/2009
Salve a tutti,

Ho un piccolo probelimino da risolvere, spero ch emi potete aiutare. Devo archiviare una massa di dvd di vecchi backup e sapere esattamente cosa contengono ognuno. Mi hanno suggerito di adoperare un vecchio comando del dos ossia: dir /s /w > nomefile.txt Questo permette di creare un file con estensione txt di nome a mia scelta e mi elenca siao sottocartelle che tutti i file singoli contenuto nel dvd. Ora, il problema è il seguente: come posso sfruttare una ricerca dati con sql e visual basic sfruttando il file in formato txt e non in mdb ???? Vi prego aspetto al più presto na vostra risposta, grazie.

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 14:03
Giovedì, 10/09/2009
Devi aprire un nuovo topic per il tuo problema e l'sql non serve poichè non è un db ma un txt. qua chiudo.

PM Quote