In staat zijn om te vertellen of een Microsoft Access- database query bestaat uit uw Visual Basic.NET applicatie kan uw applicatie robuuster te maken door een fout niet wordt gevraagd als de query niet bestaat . In VB , kunt u de functie " CreateObject " gebruiken om een top - level object variabele die Access vertegenwoordigt creëren . U kunt elke Access-database programmatisch opent met behulp van het object en zoeken naar een item in de database, zoals tabellen of query's . Wat je nodig hebt
Microsoft Visual Studio
Access-database
Toon Meer Aanwijzingen
1 Lancering Microsoft Visual Studio . Klik op " New Project" van het linkerpaneel van uw computerscherm , en uit te breiden " Visual Basic " onder " Geïnstalleerde sjablonen . " Klik op " Windows " en dubbelklik op " Console Application " van het centrum van het dialoogvenster om een nieuwe console project te maken . Kopen van 2 Voeg de volgende code toe aan de Access-object variabele en de Booleaanse variabele declareren je zal gebruiken om te controleren of de query bestaat : Dim accessAppObj
als Voorwerp
Dim qryResult zoals Van Boole
3 Maak het object en ook open de Access-database :
accessAppObj = CreateObject ( " Access.Application " ) accessAppObj.OpenCurrentDatabase
( " C : \\ Noordenwind 2007.accdb " , False )
4 Zoek naar de " Factuur gegevens" query in de database Noordenwind . De volgende code zal terugkeren " True " als de query bestaat, of " False " als het niet bestaat :
On Error Resume Next
Dim s As String
s = accessAppObj.CurrentDb.QueryDefs ( " Factuur gegevens" ) . Naam
qryResult = ( s < > " " )
5 Controleer het resultaat en een bericht via de console venster :
Als ( qryResult ) dan Console.Write
( "Query bestaat " ) Else Console.Write
( "Query doesn ' t bestaan " ) Eind
Als
release voorwerpen 6 van het geheugen : accessAppObj.CloseCurrentDatabase
( ) accessAppObj.Quit ( ) op Twitter accessAppObj
= Nothing Console.ReadLine
( )
Druk op " F5 " 7 om het programma te draaien .
< br >
|
