Cómo eliminar una tabla de una base de datos mediante Visual Basic

Seleccione idioma Seleccione idioma
Id. de artículo: 110959 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

En este artículo se describe cómo eliminar una tabla de una base de datos mediante la Professional Edition de Visual Basic versión 3.0 para Windows.

Esta técnica funciona para cualquier base de datos que está en el formato de base de datos nativo de Microsoft Access. Con pequeñas modificaciones, también funcionará con bases de datos Microsoft Access.

Más información

Para eliminar una tabla de una base de datos Microsoft Access en Visual Basic, utilice cualquiera de los métodos siguientes:

  • Abra la base de datos en el Administrador de datos de Visual Basic, seleccione la tabla y elija el botón Eliminar. Puede ejecutar el programa Administrador de datos en el menú Ventana en Visual Basic o desde el Windows Administrador de archivos (ejecutar DATAMGR.EXE en el directorio de Visual Basic). Puede eliminar una tabla de cualquier tipo de base de datos admitido por Visual Basic.
  • Utiliza el programa de Visual Basic de ejemplo enumerado para eliminar una tabla utilizando base de datos variables de objeto.
  • Abren la base de datos en Microsoft Access, seleccione la tabla y elija Eliminar en el menú Edición.
Precaución : al eliminar una tabla, también se elimina todos los datos almacenados en esa tabla. Si desea conservar los datos en la tabla que se va a eliminar, escribir una aplicación de Visual Basic para copiar los datos a una tabla nueva antes de eliminar la tabla existente.

Si desea eliminar todos los registros en una tabla y mantener la definición de tabla de TableDef, puede utilizar el método Execute para realizar un comando SQL. Por ejemplo:
   Dim db as database
   Set db=OpenDatabase("testing.mdb")
   db.Execute "Delete From BadTable"
				

Programa de ejemplo

  1. Inicie un proyecto nuevo de Visual Basic. Se creará Form1 de manera predeterminada.
  2. Agregar un el código siguiente al evento Form Load:
       Sub Form_Load ()
    
          Dim db As database
          Dim tds As TableDefs
          form1.Show  ' Must Show form in Load event for Print to be visible.
          form1.WindowState = 2   ' Maximize Form1 to make room for table list.
          sourcedb = "c:\VB3\BIBLIO.MDB"  ' Original master database.
          destdb = "C:\TEST.MDB"     ' Path to database with table to delete.
          tabletodelete = "Authors"
          FileCopy sourcedb, destdb  ' Use copy of database; preserve original.
          Set db = OpenDatabase(destdb)
          Set tds = db.TableDefs     ' Open the TableDefs collection.
    
          ' Display names of all tables in database:
          For j = 0 To tds.Count - 1
             Print tds(j).Name
          Next
          Print
    
          ' Delete a table. (This deletes the TableDef and all records):
          tds.Delete tabletodelete
          ' or use:   db.TableDefs.Delete tabletodelete
    
          ' If you want to delete all records and still preserve the TableDef
          ' table definition, use the following instead of the above Delete:
          ' db.Execute "Delete From " & tabletodelete
    
          ' Display names of all tables in database:
          Print "List of tables after deleting one table:": Print
          For j = 0 To tds.Count - 1
             Print tds(j).Name
          Next
    
       End Sub
    						
  3. Inicie el programa o presione la tecla F5. El programa muestra todas las tablas de la base de datos antes y después de eliminar una tabla. Cierre el formulario para finalizar el programa.
También puede confirmar que la tabla se ha eliminado de la base de datos abriendo la base de datos TEST.MDB con el Administrador de datos proporcionado con Visual Basic o con Microsoft Access.

La jerarquía de objetos de base de datos

En la parte superior de la base de datos de jerarquía de objetos es el objeto base de datos, no a confundirse con la propiedad base de datos del control de datos. Una de las propiedades del objeto Database es la colección TableDefs, que también es un objeto. La colección TableDefs representa todos los objetos de TableDef individuales asociados a los objetos Table, incluyendo cualquier adjuntas tablas externas. Los objetos TableDef representan la estructura o los metadatos de una tabla.

Cada objeto TableDef está formado por las propiedades. Por ejemplo, la propiedad Name proporciona el nombre de la tabla. Las propiedades de campos e índices de un objeto TableDef son colecciones de dos objetos de acceso de datos adicionales, el objeto Field y el objeto Index. Para obtener más información, vea el menú Ayuda de Visual Basic.

Obtener más ejemplos de acceso a datos

El proyecto VISDATA.MAK, que está instalado en el directorio VB3\SAMPLES\VISDATA, ofrece una amplia ejemplos de acceso a datos. El programa de ejemplo VISDATA utiliza cada función de acceso a datos en Visual Basic. Consulte el código de origen VISDATA de ejemplos que muestran cómo utilizar cada función de acceso de datos.

Propiedades

Id. de artículo: 110959 - Última revisión: jueves, 09 de enero de 2003 - Versión: 1.1
La información de este artículo se refiere a:
  • Microsoft Visual Basic 3.0 Professional Edition
Palabras clave: 
kbmt KB110959 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 110959
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com