Essere in grado di dire se una query di database di Microsoft Access esiste dall'applicazione Visual Basic.NET può rendere l'applicazione più robusto da non spingendo un errore se la query non esiste. In VB, è possibile utilizzare la funzione "CreateObject" per creare una variabile oggetto di livello superiore che rappresenta Access. È possibile aprire qualsiasi database di Access a livello di codice utilizzando l'oggetto e la ricerca di qualsiasi elemento nel database, ad esempio tabelle o query.

istruzione

1 Avviare Microsoft Visual Studio. Fai clic su "New Project" dal riquadro di sinistra dello schermo del computer, ed espandere "Visual Basic" sotto "Modelli installati." Fai clic su "Windows" e fare doppio clic su "Applicazione Console" dal centro della finestra di dialogo per creare un nuovo progetto di console.

2 Aggiungere il seguente codice per dichiarare la variabile oggetto di accesso e la variabile booleana che verrà utilizzato per verificare se esiste la query:

Dim accessAppObj As Object

Dim qryResult As Boolean

3 Creare l'oggetto e anche aprire il database di Access:

accessAppObj = CreateObject("Access.Application")

accessAppObj.OpenCurrentDatabase ( "C: \ Northwind 2007.accdb", False)

4 Ricerca per la query "Fattura dati" nel database Northwind. Il seguente codice restituirà "True" se la query esista o "false" se non esiste:

On Error Resume Next

s Dim come stringa

s = accessAppObj.CurrentDb.QueryDefs ( "Fattura Dati"). Nome

qryResult = (s & lt;> "")

5 Controllare il risultato e visualizzare un messaggio attraverso la finestra della console:

If (qryResult) Then

Console.Write ( "Query esiste")

Altro

Console.Write ( "Query non esiste")

Finisci se

6 Oggetti di uscita dalla memoria:

accessAppObj.CloseCurrentDatabase()

accessAppObj.Quit ()

accessAppObj = Nothing

Console.ReadLine ()

7 Premere il tasto "F5" per eseguire il programma.