Microsoft Visual Estudio en base de datos Access
Ver Más instrucciones
1
lanzamiento Microsoft Visual Studio . Haga clic en " Nuevo proyecto " en el panel izquierdo de la pantalla del ordenador , y ampliar a continuación " Visual Basic" " Plantillas instaladas ". Haga clic en " Windows" y haga doble clic en " Aplicación de consola " en el centro de la ventana de diálogo para crear un nuevo proyecto de consola .
2
Agregue el código siguiente para declarar la variable de objeto de Access y la variable booleana que va a utilizar para comprobar si existe la consulta:
accessAppObj Dim As Object Dim
qryResult As Boolean
3
Cree el objeto y abra el base de datos Access :
accessAppObj = CreateObject ( " Access.Application " )
accessAppObj.OpenCurrentDatabase ("C: \\ Northwind 2007.accdb " , False )
4
Búsqueda de la consulta " datos factura" en la base de datos Northwind. El siguiente código devuelve " true" si existe la consulta o "Falso " si no existe:
On Error Resume Next
Dim s As String
s = accessAppObj.CurrentDb.QueryDefs ( "Datos factura ") . Nombre
qryResult = ( s < > "" )
5
comprobar el resultado y mostrar un mensaje a través de la ventana de la consola :
Si ( qryResult ) Entonces
Console.Write ( "La consulta no existe" )
demás
Console.Write ( " Query doesn ' t existe " )
End If
6
soltar objetos de la memoria :
accessAppObj.CloseCurrentDatabase ()
accessAppObj.Quit ()
accessAppObj = Nothing
Console.ReadLine ()
7
Press "F5 " para ejecutar el programa.