[VB6] Filtrare record per data

[x69asterix]

ciao a tutti,
ennesimo post su come caricare dei record.mdb?
allora il problema è questo:
ho una tabella.mdb dove ho inseriti dei dati quale: nome, reparto, data e via dicendo. Bene adesso come posso filtrare questi record x data?
ho pensato di inserire un nuovo form su questo form i dati filtrati dovrebbero essere inseriti o su listview o su una griglia "qui mi consigliate voi" :rollo: , adesso come posso procedere? premetto che non ho molto esperienza con questo tipo di operazione ,

x il collegamento ho provato in questo modo, ma non riesco ad andare avanti:
il nome della tabella è "elenco"

da un bottone del form principale chiamo questo form

Private Sub Form_Load()
Dim Cn As New ADODB.Connection
With Cn
.ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
"Data Source =" & App.Path & "\elenco.mdb"

.ConnectionTimeout = 5
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
.Open
.Open "SELECT * Nome FROM elenco"
List1.AddItem (Nome)
.Close
End With
Set Cn = Nothing
End Sub
ma non ho risultato, chi mi suggerisce

ciao

[oregon]

Perche' non operi con le adeguate frasi SQL?

Ovvero, quando ti serve, apri il recordset con

SELECT * Nome FROM elenco WHERE TuoCampo = 'valore'

(ovviamente e' un esempio) ...

e ottieni i dati gia' filtrati in maniera piu' efficiente ...

[x69asterix]

Originariamente inviato da oregon
Perche' non operi con le adeguate frasi SQL?

Ovvero, quando ti serve, apri il recordset con

SELECT * Nome FROM elenco WHERE TuoCampo = 'valore'

(ovviamente e' un esempio) ...

e ottieni i dati gia' filtrati in maniera piu' efficiente ...

e si lo sapevo che mi sarei impantanato cmq,


Private Sub Form_Load()
Dim Cn As New ADODB.Connection
With Cn
.ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
"Data Source =" & App.Path & "\elenco.mdb"

.ConnectionTimeout = 5
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone

.Open "SELECT * Nome FROM elenco where ?????" come completo??

.Close
End With
Set Cn = Nothing
End Sub

[oregon]

Originariamente inviato da x69asterix
e si lo sapevo che mi sarei impantanato cmq,


Private Sub Form_Load()
Dim Cn As New ADODB.Connection
With Cn
.ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
"Data Source =" & App.Path & "\elenco.mdb"

.ConnectionTimeout = 5
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone

.Open "SELECT * Nome FROM elenco where ?????" come completo??

.Close
End With
Set Cn = Nothing
End Sub

Dipende dal nome e dal tipo del campo che vuoi usare per selezionare i dati.

Fai attenzione pero' perche' il codice che hai scritto non e' corretto dato che la .Open si riferisce alla connessione (oggetto Cn), mentre dovrebbe fare riferimento ad un oggetto recordset.