Ako zistiť , či dotaze existuje

Byť schopný povedať , či databázový dotaz Microsoft Access neexistuje z Visual Basic.NET aplikácií môže vaše aplikácie viac robustné tým , že výzvy chybu , ak neexistuje dotaz . Vo VB , môžete použiť funkciu " CreateObject " vytvoriť premennú objektu na najvyššej úrovni , ktorá predstavuje prístup . Môžete otvoriť ľubovoľný databázy programu Access programovo pomocou objektu a hľadať pre každú položku v databáze , ako je napríklad tabuliek alebo dotazov . Veci , ktoré budete potrebovať
databázy programu Access Microsoft Visual Studio
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Visual Studio . Kliknite na tlačidlo " Nový projekt " z ľavého panelu obrazovky počítača , a rozšíriť " Visual Basic " pod " Nainštalované šablóny . " Kliknite na " Windows " a dvakrát kliknite na " Console Application " od stredu okna na vytvorenie nového projektu konzoly .
2

Pridajte nasledujúci kód deklarovať prístup objektové premenné a booleovské premenné budete používať pre kontrolu , či existuje otázka:

Dim accessAppObj ako objekt

Dim qryResult As Boolean
3

vytvoriť objekt , a tiež otvoriť prístup k databáze :

accessAppObj = CreateObject ( " Access.Application " )

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

Vyhľadajte " Faktúra Data " dotazu v databáze Northwind . Nasledujúci kód vráti " true " , ak dotaz existuje alebo " False " , ak neexistuje :

On Error Resume Next

Dim s As String

s = accessAppObj.CurrentDb.QueryDefs ( " Faktúra údaje " ) . Meno

qryResult = ( y < > " " )
5

Pozrite sa na výsledok a zobrazí správu cez okno konzoly :

( qryResult ) Potom

Console.Write ( " Query existuje " )

Else

Console.Write ( " Query Nemá ' t existovať " )

End If
6

vydanie objekty z pamäte :

accessAppObj.CloseCurrentDatabase ( )

accessAppObj.Quit ( )

accessAppObj = Nothing

Console.ReadLine ( )
7

Stlačte " F5 " pre spustenie programu .

• Predchádzajúca strana: Efektívny spôsob , ako rozdeľovať reťazce v VB.NET 
• Ďalšia strana: Ako používať XML s VB.NET