Newsgroup: it.comp.appl.access
Titolo: Ricerca e visualizzazione

Buongiorno a tutto il NG!
allora...ho una tabella chiamata lista contenente 3 campi ID,Titolo,Autore
creo una maschera con 2 pulsanti "Ricerca x titolo" e "Ricerca x autore"
questo è il codice:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
ric = InputBox("Titolo:", "Ricerca per Titolo")
SQL = "SELECT * FROM Lista WHERE titolo LIKE '" & ric & "%'"
rs.Open SQL, conn, 3, 3
If rs.EOF Then
   MsgBox "Nessun brano trovato!"
   Titolo.Caption = "Nessun brano trovato..."
   Autore.Caption = "Nessun brano trovato..."
 
Else
   Titolo.Caption = rs![Titolo]
   Autore.Caption = rs![Autore]
End If
io vorrei che terminata la ricerca mi apparisse una lista con tutti gli
elementi trovati...per esempio se inserisco nella ricerca la parola "Amore"
deve visualizzarmi: "Io non so parlar d'amore", "L'amore è bello", etc
etc...
inoltre c'è un altro problema...il LIKE funziona solo se inserisco le prime
lettere del titolo...se per esempio il titolo è "Io non so parlar d'amore" e
inserisco "io non so" tutto ok..ma se inserisco la parola "Amore" non mi
trova niente
grazie a chiunque vorrà aiutarmi
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:151Z38Z55Z229Y...@usenet.libero.it...

Hai già provato ad inserire "*" al posto di "%"
Ciao Mak


ma come faccio ad inserire gli elemenmti trovati nella casella di riepilogo?
avevo pensato ad una cosa del tipo:
do while not rs.eof
   ' aggiungi alla lista della casella di riepilogo
    rs.movenext
loop
ma come si fa?
grazie 1000


 Ciao Mak
inserendo l' asterisco al posto del % non mi trova nessun brano..neanche
inserendo la prte iniziale...


[cut]
 SQL = "SELECT * FROM Lista WHERE titolo LIKE '%" & ric & "%'"
--
a.cara


e come faccio per aggiungere nel ciclo do loop tutti i record trovati alla
casella di riepilogo?


 casella di riepilogo?
[cut]
Proprieta':  Tipo origine riga = Tabella/query
invece di fare il loop
me.controllolistbox.rowsource = stringa sql
me.controllolistbox.requery   (mi sembra)
--
a.cara


ho provato a fare cosě ma non mi visualizza niente nella casella di
riepilogo
Elenco.Visible = False
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
ric = InputBox("Titolo:", "Ricerca per Titolo")
SQL = "SELECT * FROM Lista WHERE titolo LIKE '%" & ric & "%'"
rs.Open SQL, conn, 3, 3
If rs.EOF Then
   MsgBox "Nessun brano trovato!"
   Titolo.Caption = "Nessun brano trovato..."
   Autore.Caption = "Nessun brano trovato..."
 
Else
   Titolo.Caption = rs![Titolo]
   Autore.Caption = rs![Autore]
   Elenco.Visible = True
   Me.Elenco.RowSource = "SELECT * FROM Lista WHERE titolo LIKE '%" & ric &
"%'"
   Me.Elenco.Requery
 
 
End If
ho impostato origine riga su tabella/query
grazie 1000


    Me.Elenco.Requery
Come stanno alcune altre proprieta' del controllo?
tipo:
Numero colonne e le 5 a seguire?
(guardati sull'help il significato)
Quanti campi ci sono sulla tabella lista?
--
a.cara


allora i campi della tabella Lista sono 3 Id,Titolo,Autore
numero colonne 3
intestazione colonne no
larghezza colonne 0,3,50,3,50
colonna associata 1
valore predefinito (niente)
valido se (niente)


proprio nesssuno sa aiutarmi?


larghezza colonne 0,3,50,3,50
perche' 5 valori se le colonne sono 3?
e poi 0;3;50
e poi se non ricordo male 
0 = colonna non visibile 
3 = cm o pollici
50 = 50 cm?
La cosa che fai e' teoricamente giusta
--
a.cara

 a.cara
ma possibile che solo a me le cose giuste non funzionano?!..a nessuno è mai
capitato o sa come posso risolvere?


 Inviato via 
http://usenet.libero.it
provando con una query statica (SQL * from...) funziona!
perchč con il like no?
come posso fare?
grazie 1000



ma su che cavolo di evento o funzione hai messo
quel codice?
--
a.cara

 a.cara
sul pulsante x la ricerca


 grazie 1000
ariprova a sostituire i % con gli asterischi
a dir la verita' non so se per gli ado il % va bene (dovrebbe)
inoltre se la mandi in esecuzione (hai il 2000) tieni la finestra
delle proprieta' aperta e vedi cosa finisce in origine riga
--
a.cara

 a.cara
allora gli * non funzionano
in origine riga finisce questo SELECT * FROM Lista WHERE titolo LIKE '%io%'
(ho digitato "io" nella ricerca)


 (ho digitato "io" nella ricerca)
e di grazia nella tabella lista c'e' un titolo che contiene il dittongo 
summenzionato?
(hai provato a fare la stessa medesma query come appunto query ed a
eseguirla?)
--
a.cara


si c'è perchè ho inserito anche un' etichetta nella quale se trova il record
scrive il titolo


 scrive il titolo
mah non so che dirti.
Ricutta e ripasta tutto il codice che c'e' sull'evento click esattamente 
com'e' adesso oppure mandami solo il form con una tabella con un po' di
dati
che poi gli do un'occhiata
DEVE funzionare
--
a.cara

 etc...
    Signori!... E' permesso? Scusate, io adesso non ci ho tempo. Ci pensate
voi a spiegargli la storia del raddoppio degli apici/apostrofi? Grazie.
        "Io non so parlar d'amore"
        "L'amore è bello"
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

         "L'amore è bello"
Io so' gnorante. Ma perche' in questo caso c'entra qualcosa?
se io devo fare:
select * from checavoloneso where campocongliapici like '%amore%'
cosa "diamine" ci azzeccano gli apici?
--
a.cara

 cosa "diamine" ci azzeccano gli apici?
    Visti gli esempi che Le Roi ci propone, prima o poi qualche incidente
gli capitera' senz'altro. Pensavo potesse essere... "carino" avvertirlo.
Prima che gli venga voglia, in una maschera, di scrivere:
        Option Compare Database: Option Explicit
        Private Sub cmdCerca_Click()
            Dim sFilter As String
            With Me
                sFilter _
                  = "[" & .Cognome.ControlSource & "]" _
                  & " Like" _
                  & " '*" & .txtCerca.Value & "*'"
                Debug.Print sFilter
                .Filter = sFilter
                .FilterOn = True
            End With
        End Sub
senza sostituire:
        .txtCerca.Value
con:
        Replace(.txtCerca.Value, "'", "''")
quando cerchera' "di fare l'Amore".


 Prima che gli venga voglia, in una maschera, di scrivere:
maurizio, non volevo dire che la questione non e' valida
E' che se si mettono in ballo troppe cose contemporaneamente
si rischia la confusione
Quello che dici rispetto alla gestione degli apici 
ovviamente e' corretto
--
a.cara