between [VB6]

[darkblOOd]

ma fammi capire, il campo F è un campo stringa?

[lucabo]

no numerico ma posso anche trasformarlo in un campo testo visto che non sono numeri da manipolare

[darkblOOd]

no no, between funziona solo con valori (questa volta sono quasi sicuro :gren: )

con le stringhe non ci fai niente.

Cmq prova a fare così:

metti un punto di interruzione appena dopo la select e poi la visualizzi nella finestra immediata così puoi vedere i dati che contiene e verificare cosa può essere che causa l'errore

[lucabo]

non sto usando between il codice è quello che postato prima.
Comunque, scusa ma non sono pratico, cos'è che devo fare??

[darkblOOd]

se clicchi all'estrema sinistra dell'editor del codice, all'altezza di questa riga: Set Db = OpenDatabase(App.Path & "\OR.mdb") metterai un punto rosso e la riga risulterà evidenziata di rosso. Questo è un punto di interruzione (break point). Quando il codice arriva in quel punto si ferma ed entra in modalità debug (interruzione).

Trova la finestra immediata e scrivi: ?NomeStringaSQL e dai invio.

Subito sotto ti troverai la stringa e la potrai visualizzare.


Al limite metti un: On Error GoTo MiaEtichetta

subito dopo l'inizio della sub

e prima di end sub metti:

Exit sub

MiaEtichetta:
msgbox NomeStringaSql
End sub

[lucabo]

Fatto. (ho imparato una cosa nuova)

Però una volta dato l'invio mi fa vedere la stringa sql senza nessun messaggio

[lucabo]

se invece scrivo "sqlstring" e dò l'invio mi dice errore di compilazione prevista sub, function o property

[darkblOOd]

Originariamente inviato da lucabo
Fatto. (ho imparato una cosa nuova)

Però una volta dato l'invio mi fa vedere la stringa sql senza nessun messaggio

infatti, ma ti fa vedere la stringa completa, con i valori che sta passando al DB. Devi essere tu a vedere se è corretta o c'è qualcosa che non va

se togli il punot interrogativo vuol dire che stai tentando di cambiare il valore della variabile ma non l'hai associata a nessun nuovo valore e ti da errore

[lucabo]

A questo punto?

[biifu]

sqlstring = "select [OR], Rif, Statico, ORV, RifV, A, B, C, L, E, F, d, T from TAB where F >= Text1.text and qui devi indicare il campo! <= Text2.Text order by d"