Å kunne fortelle om en Microsoft Access database spørring finnes fra Visual Basic.NET programmet kan gjøre programmet mer robust ved å ikke spørre en feil hvis søket ikke eksisterer. I VB , kan du bruke " CreateObject " funksjonen for å lage en topp - nivå objekt variabel som representerer Access. Du kan åpne Access database programmatisk ved hjelp av objektet og søke etter et element i databasen, for eksempel tabeller eller spørringer . Du trenger
Microsoft Visual Studio
Access database
Vis flere instruksjoner
en

Launch Microsoft Visual Studio . Klikk " Nytt prosjekt " fra den venstre delen av skjermen, og utvide " Visual Basic " under " Installerte maler . " Klikk på " Windows" og dobbeltklikk på "Console Application " fra sentrum av dialog vinduet for å opprette en ny konsoll prosjekt.
2

Legg til følgende kode for å erklære Access objektvariabelen og boolsk variabel du vil bruke for å sjekke om spørringen finnes:

Dim accessAppObj som objekt

Dim qryResult As Boolean
3

opprette objektet, og også åpne Access-database:

accessAppObj = CreateObject ( " Access.Application ")

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

Søk etter " Faktura data" spørring i Northwind database. Følgende kode vil returnere " true" hvis søket eksisterer eller " False " hvis det ikke finnes : en

On Error Resume Next

Dim s As String

s = accessAppObj.CurrentDb.QueryDefs ( " Faktura data") . Navn

qryResult = ( s < > "")
5

Sjekk resultatet og vise en melding gjennom Console -vinduet : en p Hvis ( qryResult ) Så

Console.Write ( " Query eksisterer ")

Else

Console.Write ( " Query doesn 't eksisterer ")

End If
6

Slipp gjenstander fra minnet :

accessAppObj.CloseCurrentDatabase ( )

accessAppObj.Quit ( )

accessAppObj = Ingenting

Console.ReadLine ( )
7

Trykk " F5 " for å kjøre programmet .