PDA

View Full Version : (Access) record count, non gli piace il like?

lnessuno
14-04-2004, 08:47
io ho questo codice... che mi dovrebbe prendere del testo e filtrarlo utilizzando anche il like...


If Me.txtDenom.Enabled = True Then
If Me.txtDenom.Value <> "" Then
Me.txtDenom.Value = UCase(Me.txtDenom.Value)
strnewrecord = "SELECT * FROM Q_ModificaDatiVeloce " _
& " WHERE Denominazione Like '" & Me.txtDenom.Value & "'"
'strcount = "SELECT count(*) as Conteggio FROM " _
'& " WHERE Denominazione Like '" & Me.txtDenom.Value & "'"
Me.RecordSource = strnewrecord
Errore = "No"
Else
MsgBox "Cosa devo cercare??", vbInformation, "Errore"
End If
End If

...altra roba...

If Errore = "No" Then
Dim rs As adodb.Recordset
Dim conn As adodb.Connection
Set conn = CurrentProject.Connection
Set rs = New adodb.Recordset
rs.Open strnewrecord, conn, adOpenKeyset
If rs.RecordCount = 1 Then
Me.LabRecordTrovati.Caption = "Trovato 1 risultato."
Else
Me.LabRecordTrovati.Caption = "Trovati " & rs.RecordCount & " risultati."
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End If




ora, se gli faccio cercare la stringa esatta non da nessun problema e mi dice quanti record ha trovato, se gli faccio cercare ad esempio "prova*" mi mostra tutti i risultati, quindi la query funziona, perņ il contatore rimane a zero! :muro:

qualcuno ha idea di cosa possa essere? :(
cionci
14-04-2004, 09:03
Il RecordCount non č utilizzabile con tutti i tipi di cursore...sempre meglio non usarlo (ed i record li conti con una query ;))...
lnessuno
14-04-2004, 09:05
Originariamente inviato da cionci
Il RecordCount non č utilizzabile con tutti i tipi di cursore...sempre meglio non usarlo (ed i record li conti con una query ;))...



ho provato anche questo:

strcount= "SELECT count(*) as Conteggio FROM " _
& " WHERE Denominazione Like '" & Me.txtDenom.Value & "'"



perņ non conta lo stesso, ha lo stesso problema :muro:
cionci
14-04-2004, 09:13
Prova ad usare il Like in questo modo: "prova%"
lnessuno
14-04-2004, 09:17
Originariamente inviato da cionci
Prova ad usare il Like in questo modo: "prova%"



ottimaaaa ci siamo quasi, ora mi trova il numero ma non mi mostra i record... cmq basta sostituire il carattere e sono a posto :p


thx! :)
lnessuno
14-04-2004, 09:23
fatta, mi č bastata questa stringa:

txtRicerca = Replace(Me.txtDenom.Value, "*", "%")

e ora mi trova sia il numero che i risultati... grazie 1000! :)