Lettura tabella in altro ACCDE con vba

Question

Vorrei gestire l'aggiornamento della mia applicazione ACCDE.

Quindi ho pensato di inserire un numero versione all'interno di una tabella che ho chiamato parametri.

Ho pensato di inserire nella mia applicazione, un codice che controlla se esiste un file in una cartella specifica, e quale numero di versione ha nella tabella parametri.

Come faccio, all'interno della mia applicazione, ad aprire e leggere la tabella parametri di un' altra applicazione ???

GRAZIE A TUTTI PER L'AIUTO !!!

Answer 1

Immaginiamo che vuoi leggere un dato che si trova in

Cartella "D:\Post2\0191MZ"

File  "DB1.accdb"  ( accdb  oppure accde  è indifferente )

Tabella  "parametri"

campo  "versione"   Numerico

Immaginiamo inoltre che

• La tabella parametri non abbia altri campi
• La tabella parametri contenga piu record di cui ti interessa il massimo

mi vengono in mente 3 modi per fare quello che chiedi

1° ________________________________________________________________________

Una normale  tabella collegata  cone se si trattasse di un BE e un FE

2° ________________________________________________________________________

Una query  che punta a DB1.accdb

SELECT Max(parametri.versione) AS Vers

FROM parametri IN 'D:\Post2\0191MZ\DB1.accdb';

3° ________________________________________________________________________

Un RecordSet  di VBA che punta a DB1.accdb

Public Function kkkk()

'  Apre DB

Dim DBx As DAO.Database

Set DBx = OpenDatabase("D:\Post2\0191MZ\DB1.accdb")

' Apre RSx  ( RecordSet )

Dim RSx As DAO.Recordset

Set RSx = DBx.OpenRecordset("SELECT Max(parametri.versione) AS Vers FROM parametri;", dbOpenDynaset)

'Legge dato

RSx.MoveFirst

MsgBox RSx.Fields("Vers")

'  Chiudo tutto

RSx.Close

Set RSx = Nothing

DBx.Close

Set DBx = Nothing

End Function

oppure nella versione breve

Public Function kkkk2()

MsgBox OpenDatabase("D:\Post2\0191MZ\DB1.accdb").OpenRecordset("SELECT Max(parametri.versione) AS Vers FROM parametri;", dbOpenDynaset).Fields("Vers")

End Function

Facci sapere

Answer 2

Più completo di cosi .....

MOLTO GENTILI COME SEMPRE !!!