Article View: free.it.visual-basic
Article #543Re: indici
From: Agozx
Date: Sat, 19 Nov 2005 12:13
Date: Sat, 19 Nov 2005 12:13
36 lines
1947 bytes
1947 bytes
Ho trovato questo codice se lo puoi adattare,
non l'ho mai provato per cui non so se funziona.
tratto da:
(Visual Basic La programmazione dei database)
Di Giuseppe Naccarato Edit. Apogeo.
Ciao.
Option Explicit
Dim db As Database
Dim rs As Recordset
Set db = Workspaces(0).OpenDatabase("Il_Tuo_Database.MDB")
Set rs = db.OpenRecordset("Film") 'Il nome della tua tabella
'Impostazione indice
rs.Index = "GenIdx"
rs.Seek "=", "Drammatico"
Do While Not rs.NoMatch And rs!Genere = "Drammatico"
MsgBox (rs!codice & " " & rs!Articolo & " " & rs!Genere)
rs.MoveNext
Loop
"Alfonso" <alfonsochiaramonte@tiscali.it> ha scritto nel messaggio
news:437b8ab4$0$27599$4fafbaef@reader1.news.tin.it...
> ciao a tutti,
> esiste in vb6 una funzione che crea l'indice (per la ricerca in un
> database)
> quando non esiste o non viene considerato esistente (come nel mio
> inspiegabile caso)?
>
> Buon lavoro a tutti...
>
>
Technical Details
Message-ID:
<pFEff.45026$65.1325324@twister1.libero.it>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!inn1.libero.it!twister1.libero.it.POSTED!not-for-mailReferences:
<437b8ab4$0$27599$4fafbaef@reader1.news.tin.it>Show Full Headers
Complete Article Headers
X-Google-Thread: f94ee,9e15a099bec90a68,start X-Google-Attributes: gidf94ee,public X-Google-Language: ITALIAN,ASCII-7-bit Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!inn1.libero.it!twister1.libero.it.POSTED!not-for-mail From: "Agozx" <agozx@agozx.it> Newsgroups: free.it.visual-basic References: <437b8ab4$0$27599$4fafbaef@reader1.news.tin.it> Subject: Re: indici Lines: 38 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.2180 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180 X-RFC2646: Format=Flowed; Response Message-ID: <pFEff.45026$65.1325324@twister1.libero.it> Date: Sat, 19 Nov 2005 12:13:09 GMT NNTP-Posting-Host: 151.27.8.181 X-Complaints-To: abuse@libero.it X-Trace: twister1.libero.it 1132402389 151.27.8.181 (Sat, 19 Nov 2005 13:13:09 MET) NNTP-Posting-Date: Sat, 19 Nov 2005 13:13:09 MET Organization: [Infostrada]