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 < p > 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
Console.Write ( "Query non esiste" ) per
Else
Console.Write ( "Query doesn 't esiste " ) per
End If
6
oggetti di uscita dalla memoria :
accessAppObj.CloseCurrentDatabase ( ) per
accessAppObj.Quit ( )
accessAppObj = Nothing
Console.ReadLine ( ) economici 7
Premere " F5 " per eseguire il programma .
< br >
