Tables

1.15 Utilizzare il metodo seek con una tabella collegata (be).
  Valerio Bussi
Per potere utilizzare il metodo seek all'interno di una tabella collegata e residente in db back-end occorre aprire la tabella attraverso OpenDatabase e più precisamente:
1) Per convenzione chiamiamo il DB back-end "dbAllegato_be.mdb" ,la tabella "Dati" e l'indice "IDX_INDICE";
2) Definiamo le variabili:
   Dim Dbs as DAO.Database
   Dim TbDati as DAO.Recordset
   Dim strPercorso as String 
   'contiene il percorso fisico su cui risiede il Db'
   'Esempio: "c:\dbAllegato_be.mdb" oppure il percorso di rete;
3) Procediamo alla stesura del codice:
   strPercorso ="c:\dbAllegato_be.mdb"
   set Dbs = DBEngine.Workspaces(0).Opendatabase(strPercorso)  'Apriamo il Db'
   set TbDati = dbs.OpenRecordset("Dati",dbOpentable)
   Tbdati.Index = "IDX_INDICE"
   Tbdati.Seek "=", 'chiave da ricercare'
   if not Tbdati.NoMatch then
      'chiave trovata
      '... 
   endif 
   Tbdati.Close
   Dbs.Close
   set Tbdati = Nothing
   set Dbs   =  Nothing
Usando questa sintassi si può aprire la tabella con l'opzione dbOpenTable ed utilizzare il metodo Seek.

NOTA
Il codice VBA di cui sopra fa riferimento alla libreria Microsoft DAO quindi, se si usa una versione di Access successiva ad Access 97, è necessario aggiungere al database i riferimenti a Microsoft DAO 3.6 Object Library.

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.