[RISOLTO] Datasource.Filter errore stringa - perchè?

[ilfurlan]

Codice: [Seleziona]

  Dim vConnessione As New Connection
  Dim vRisultato As Result
  Dim sql As String
  
With vConnessione
  .Type = "sqlite3"
  .Name = "Report_DB.sqlite"
  .Host = User.Home &/ "MyReport/"
  .Login = ""
  .Password = ""
End With

  vConnessione.Open()
  sql = "Select Nome From Intestazione WHERE Nome not null"                                                'imposto la query
  vRisultato = vConnessione.Exec(sql)                                                                                              'eseguo la query
  DataSource1.Filter = sql                                                                                                                     'restituisco il risultato al filtro (ma non funziona)
  vConnessione.Close()

Chi mi aiuta? dov'è l'errore? 
La connessione funziona...
La query funziona e viene eseguita...
Datasource1.Filter si blocca sulla stringa 

[ilfurlan]

Ho trovato questo post
http://www.gambas-it.org/smf/index.php?topic=412.0
che alla fine per evitare problemi e semplificare il codice consiglia:

Codice: [Seleziona]

DataSource1.Filter = DB.Subst("pippo LIKE &1", valore)

ma non trovo spiegazioni su come inserire la query in DB.Subst...
qualcuno lo ha fatto? come?

Grazie

[ilfurlan]

Per fare un filtro si fa così, in modo semplice e con una sola riga di codice:

Codice: [Seleziona]

  DataSource1.Filter = DB.Subst("nomecolonna LIKE &1", "ricerca")

dove ricerca può essere:

del testo tra virgolette;
un dato inserito in una finestra popup, esempio: ricerca = InputBox("quiladomanda", "quititolofinestra");
il testo digitato in una TextBox.text;
etc...

per cercare in parte del campo, utilizzare il simbolo %
esempio: "%ricerca%" trova la parola ricerca senza considerare quello che è scritto prima e dopo

 

Vabbè, il Gamberetto ha fatto tutto da solo... speriamo serva a qualcuno che come me adora i database...

[allegfede]

scusa ma qui' c'e' un errore di battitura od e' voluto:

.Host = User.Home &/ "MyReport/"

forse intendevi:

Codice: [Seleziona]

 .Host = User.Home & "/MyReport/"

la posizione della barra

[ilfurlan]

scusa ma qui' c'e' un errore di battitura od e' voluto:

.Host = User.Home &/ "MyReport/"

forse intendevi:

Codice: [Seleziona]

 .Host = User.Home & "/MyReport/"

la posizione della barra

Lo scrivo sempre così, fino ad ora ha sempre funzionato  non dirmi che è sbagliato 
lo avevo trovato scritto in un post che era consigliato scriverlo così.

[Gianluigi]

Lo scrivo sempre così, fino ad ora ha sempre funzionato  non dirmi che è sbagliato 
lo avevo trovato scritto in un post che era consigliato scriverlo così.

Si, tranquillo è giusto scritto come hai scritto tu, comunque funziona anche all'altro modo... 

[ilfurlan]

Si, tranquillo è giusto scritto come hai scritto tu, comunque funziona anche all'altro modo... 

Grazie Gianluigi 

[ilfurlan]

Esatta dicitura per impostare un filtro in Datasource, con ricerca in parte del campo:

Codice: [Seleziona]

Public Sub TextBoxTrova_Change()

With vConnessione
.Type = "sqlite3"
.Host = User.Home &/ "CartellaDatabase/"
.Name = "NomeDatabase"
.Login = ""
.Password = ""
End With

  vConnessione.Open
  DataSource1.Filter = DB.Subst("NomeColonna LIKE &1", ("%" & TextBoxTrova.Text & "%")) 'applica il filtro mentre si digita nella TextBox
  DataSource1.MoveFirst  'si posiziona immediatamente sul primo record trovato
  vConnessione.Close

End

[Gianluigi]

Io veramente non so più come spiegartelo, forse dovresti proprio dimenticarti di Change, continui a usare questo evento a sproposito.
Fai così inserisci un:

Codice: [Seleziona]

Print "ACCIDENTI!"

Subito prima e subito dopo l'apertura e la chiusura della connessione e poi valuta tu.
Naturalmente sappi che questa è l'ultima volta che te lo dico.

[ilfurlan]

Io veramente non so più come spiegartelo, forse dovresti proprio dimenticarti di Change, continui a usare questo evento a sproposito.
Fai così inserisci un:

Codice: [Seleziona]

Print "ACCIDENTI!"

Subito prima e subito dopo l'apertura e la chiusura della connessione e poi valuta tu.
Naturalmente sappi che questa è l'ultima volta che te lo dico.

  ma perchè? funziona perfettamente!

ho ricominciato tutto da capo con i vostri insegnamenti... meglio LostFocus?
ok... uso LostFocus ma non ho capito perchè 

[ilfurlan]

Io veramente non so più come spiegartelo, forse dovresti proprio dimenticarti di Change, continui a usare questo evento a sproposito.
Fai così inserisci un:

Codice: [Seleziona]

Print "ACCIDENTI!"

Subito prima e subito dopo l'apertura e la chiusura della connessione e poi valuta tu.
Naturalmente sappi che questa è l'ultima volta che te lo dico.

Ecco, ho fatto così (spero sia giusto, grazie per la pazienza)

Codice: [Seleziona]

Public Sub Form_Open()

With vConnessione
.Type = "sqlite3"
.Host = User.Home &/ "MyReport/"
.Name = "Report_DB.sqlite3"
.Login = ""
.Password = ""
End With

vConnessione.Open()

End

e.....

Codice: [Seleziona]

Public Sub TextBoxTrova_LostFocus()

  DataSource1.Filter = DB.Subst("Descrizione LIKE &1", ("%" & TextBoxTrova.Text & "%"))
  DataSource1.MoveFirst

End

e.....

Codice: [Seleziona]

Public Sub Form_Close()

  vConnessione.Close()

End

[Gianluigi]

A parte che c'è un refuso in quanto ti ho scritto intendevo "Subito prima o subito dopo" se lo scrivi dovresti capire che tutte le volte che digiti un carattere oppure cancelli un carattere o la parola, apri e chiudi la connessione e ripeti tutto il codice inutilmente.
Un pulsante è la migliore soluzione per avere un solo evento quello definitivo e utile.
Poi ripeto fai come credi il programma è tuo, solo evita di dire agli altri che quella è l'esatta dicitura.

In parole povere occorre sempre evitare di fare più volte quello che basta fare una volta sola.

Mentre ti rispondevo vedo che hai inserito un nuovo post e hai cambiato le carte, comunque se non è stato il medico che a causa di una rara malattia ti ha vietato di usare i pulsanti la regola migliore è quella di aprire, svolgere il compito e chiudere in un'unica passata attraverso l'evento Click del pulsante.

Se proprio devi usare lostfocus (io lo sconsiglio) apri e chiudi li la connessione.

Poi cerca di dividere i compiti in vari metodi che puoi facilmente richiamare da altre porzioni di codice esempio fai una sub che apre la connessione e poi la richiami dove ti serve.

[ilfurlan]

A parte che c'è un refuso in quanto ti ho scritto intendevo "Subito prima o subito dopo" se lo scrivi dovresti capire che tutte le volte che digiti un carattere oppure cancelli un carattere o la parola, apri e chiudi la connessione e ripeti tutto il codice inutilmente.
Un pulsante è la migliore soluzione per avere un solo evento quello definitivo e utile.
Poi ripeto fai come credi il programma è tuo, solo evita di dire agli altri che quella è l'esatta dicitura.

In parole povere occorre sempre evitare di fare più volte quello che basta fare una volta sola.

Mentre ti rispondevo vedo che hai inserito un nuovo post e hai cambiato le carte, comunque se non è stato il medico che a causa di una rara malattia ti ha vietato di usare i pulsanti la regola migliore è quella di aprire, svolgere il compito e chiudere in un'unica passata attraverso l'evento Click del pulsante.

Se proprio devi usare lostfocus (io lo sconsiglio) apri e chiudi li la connessione.

Poi cerca di dividere i compiti in vari metodi che puoi facilmente richiamare da altre porzioni di codice esempio fai una sub che apre la connessione e poi la richiami dove ti serve.

Ok, grazie.... adesso vedo come fare
è che voglio che mentre digiti ti appaia in tempo reale il filtro.

Mi spiego meglio,

Se scrivo And mi trova immediatamente tutto quello che contiene And (Andrea, Gianandrea, Andreina, etc.)

diversamente dovrei scrivere And e premere il pulsante per vedere se trova qualche cosa.... questo è il motivo per cui voglio evitare un pulsante 

[Gianluigi]

Vivaddio al tredicesimo post sappiamo finalmente cosa vai cercando.
E allora usa pure Change ma come detto evita di chiudere e riaprire durante l'evento, crei i metodi di apertura e chiusura li userai in entrata e uscita dalla text e durante il change usi il filtro.

[ilfurlan]

Vivaddio al tredicesimo post sappiamo finalmente cosa vai cercando.
E allora usa pure Change ma come detto evita di chiudere e riaprire durante l'evento, crei i metodi di apertura e chiusura li userai in entrata e uscita dalla text e durante il change usi il filtro.

Ha ha ha, dai che siete bravi, se non fosse per voi avrei abbandonato tutto, invece sono ancora qua che provo e riprovo (solo così si impara).
Comunque Gambas è proprio bello e ti prende, dopo un solo mese sto facendo cose che mai avrei immaginato... e quanto devo ancora imparare.
Intanto ti do una bella notizia, ho abbandonato la mia testardaggine e le mie contorsioni per seguire il tuo consiglio GB.DB 
Guarda i primi miei post  per capire da dove sono partito.