filter su recordset di data environment

[giko83]

Ciao a tutti riecocmi con i miei mega problems

non riesco ad applicare un filtro ad un recordset di un data environment e non so xke ....
mi si pianta l'applicazione

dataenvironment1.rs.filter = "cod = ?'" & c & "'"

da altri lo à fatto ma in questo che è il risultato di una interrgazione sql non me lo fa fare... come mai....
non posso farlo forse
o sbaglio in qualcosa... ?


:quipy:

[ladyBlu]

dataenvironment1.rs.filter = "cod = ?'" & c & "'"

ma tu con questo filtro vuoi prendere tutti i valori che contengano c, giusto???

se è così sostituisci con:
dataenvironment1.rs.filter = "cod LIKE %'" & c & "'"

[giko83]

ma mi da errore mi dice che non fa parte dell'argomento
comunque si io voglio selezionare tutti i record che hanno il codice = a c ma non funziona

[ladyBlu]

Originariamente inviato da giko83
ma mi da errore mi dice che non fa parte dell'argomento
comunque si io voglio selezionare tutti i record che hanno il codice = a c ma non funziona

ehi, uguale o che comprendono C??

mi spiego:
C = "vai"

dataenvironment1.rs.filter = "cod = '" & c & "'"
tira fuori "cod = vai"

dataenvironment1.rs.filter = "cod like *'" & c & "'"
tira fuori "cod = *vai"

decidi un po' quale dei due ti serve?

[giko83]

ma adesso funziona semplicemente xke era il while che facevo dopo che non mi finiva mai ... cioè rs.eof non diventava mai vero e non capisco ancora come mai cmq ho risolto con il record count adesso funzica grazie duemila....e due


era giusto

dataenvironment1.rs.filter = "cod = '" & c & "'"

per ottenere tutti i record con il campo cod = c

[ladyBlu]

bene, sono contenta che hai risolto.


ciauzzzzzzzzz

[giko83]

non funzica lo stesso non si ferma piu non vede piu niente non si ferma mai va in loop non capisco il risultato della filter dovrebbe essere due record ma il eof non lo mette

[ladyBlu]

Originariamente inviato da giko83
non funzica lo stesso non si ferma piu non vede piu niente non si ferma mai va in loop non capisco il risultato della filter dovrebbe essere due record ma il eof non lo mette

ehi, niente panico...
posta il codice che gli diamo un'occhiatina ok?

[giko83]

Private Sub Command1_Click()


dbGestVille.rsstudio.Filter = "codicefiscale ='" & Me.Tag & "'"

dbGestVille.rsstudio.Requery

Dim i As Integer
i = 0
While i < dbGestVille.rsstudio.RecordCount

adtit dbGestVille.rsstudio("nome"), dbGestVille.rsstudio("votazione"), dbGestVille.rsstudio("data"), dbGestVille.rsstudio("presso")

'= dbGestVille.rsstudio("presso")
i = i + 1
MsgBox i
Wend


dbGestVille.rsstudio.Filter = ""
dbGestVille.rsstudio.Requery
End Sub

Private Sub adtit(a As String, b As String, c As String, d As String)
Dim buf As ListItem
Set buf = lststudio.ListItems.add
buf.Text = a 'dbGestVille.rsstudio("nome")
buf.SubItems(1) = b
buf.SubItems(2) = c
buf.SubItems(3) = d
End Sub



il prob è che non si ferma prima di 4 record anche se il risutlato dovrebbe essere 2 record

[ladyBlu]

Dim i As Integer
i = 0
While i < dbGestVille.rsstudio.RecordCount
            
      adtit dbGestVille.rsstudio("nome"), dbGestVille.rsstudio
("votazione"), dbGestVille.rsstudio("data"), dbGestVille.rsstudio
("presso")
            
      '= dbGestVille.rsstudio("presso")
      i = i + 1
       MsgBox i
Wend

io il ciclo lo scriverei così:

if dbGestVille.rsstudio.RecordCount > 0 then
   dbGestVille.rsstudio.movefirst
   do until dbGestVille.rsstudio.eof
       adtit dbGestVille.rsstudio("nome"), dbGestVille.rsstudio
("votazione"), dbGestVille.rsstudio("data"), dbGestVille.rsstudio
("presso")
       dbGestVille.rsstudio.movenext
   loop
end if

guarda un po' se funziona?