Come sapere se una query esiste

Essere in grado di dire se una query di Microsoft Access database esiste dall'applicazione Visual Basic.NET può rendere l'applicazione più robusta 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 l'accesso . È possibile aprire qualsiasi database di Access di programmazione utilizzando l'oggetto e la ricerca di qualsiasi elemento nel database, ad esempio tabelle o query . Cose che ti serviranno
Microsoft Visual Studio
database Access
Mostra più istruzioni
1

lancio di Microsoft Visual Studio . Fare clic su " Nuovo Progetto" dal riquadro sinistro dello schermo del computer , e di espandere " Visual Basic " di sotto " Modelli installati . " Fare clic su " Windows" e fare doppio clic su " Applicazione console " dal centro della finestra di dialogo per creare un nuovo progetto console .
2

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

Dim accessAppObj As Object Dim

qryResult come booleano
3

creare l'oggetto e anche aprire la database di Access :

accessAppObj = CreateObject ( " Access.Application " ) per

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

Ricerca per la "Fattura Data" query nel database Northwind . Il codice seguente restituisce "true" se la query esistente o "false " se non esiste:

On Error Resume Next

Dim s As String

s = accessAppObj.CurrentDb.QueryDefs ( "Data fattura" ) . Nome

qryResult = ( s < > " " ) economici 5

Controllare il risultato e visualizza un messaggio attraverso il finestra della console :

( qryResult ) Poi