Tecnología

Inicio

Cómo saber si existe una consulta

Ser capaz de saber si existe una consulta de base de datos Microsoft Access desde la aplicación de Visual Basic.NET puede hacer su aplicación más robusta al no provocó un error si la consulta no existe. En VB, puede utilizar la función "CreateObject" para crear una variable de objeto de nivel superior que representa el acceso. Puede abrir cualquier base de datos Access mediante programación utilizando el objeto y la búsqueda de cualquier elemento de la base de datos, tales como tablas o consultas.

Instrucciones

1 Lanzar Microsoft Visual Studio. Haga clic en "Nuevo proyecto" en el panel izquierdo de la pantalla del ordenador, y ampliar "Visual Basic" por debajo "Plantillas instaladas." Haga clic en "Windows" y haga doble clic en "Aplicación de consola" desde el centro de la ventana de diálogo para crear un nuevo proyecto de la consola.

2 Agregue el código siguiente para declarar la variable objeto de Access y la variable booleana que va a utilizar para comprobar si existe la consulta:

Dim accessAppObj como objeto

Dim qryResult As Boolean

3 Crear el objeto y también abrir la base de datos de acceso:

accessAppObj = CreateObject("Access.Application")

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

4 Buscar la consulta "Factura de datos" en la base de datos Neptuno. El siguiente código devuelve "true" si existe la consulta o "Falso" si no existe:

On Error Resume Next

s Dim como secuencia

s = accessAppObj.CurrentDb.QueryDefs ( "Datos factura"). Nombre

qryResult = (s & lt;> "")

5 Comprobar el resultado y mostrar un mensaje a través de la ventana de la consola:

If (qryResult) Then

Console.Write ( "La consulta no existe")

Más

Console.Write ( "La consulta no existe")

Terminara si

6 Objetos de la liberación de la memoria:

accessAppObj.CloseCurrentDatabase()

accessAppObj.Quit ()

accessAppObj = nada

Console.ReadLine ()

7 Pulse la tecla "F5" para ejecutar el programa.