Cómo copiar un registro de una tabla a otra en VB

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

En esta página

Resumen

Una tabla física en una base de datos tiene registros (filas) y campos (columnas). Un único registro contiene una sola fila de valores de campo.

Para copiar un registro de una tabla en otra tabla, tiene que copiar todos los campos en el registro de origen a los campos correspondientes en el registro de destino. Puede hacerlo mediante la propiedad Value de la colección Fields, o mediante una instrucción SQL.

Más información

Cómo copiar un registro mediante SQL

Puede utilizar la instrucción SQL INSERT INTO para copiar registros especificados de una tabla a otra:
   INSERT INTO ToTableName SELECT * FROM FromTableName
				
también puede agregar una cláusula WHERE al final para agregar los registros seleccionados:
   INSERT INTO ToTableName SELECT FromTableName.* FROM FromTableName
     WHERE Key = 'Key'
				

Cómo utilizar instrucciones SQL en Visual Basic

Éste es un ejemplo que muestra cómo utilizar las instrucciones SQL en el código de Visual Basic:
  Dim db As database, ds As dynaset
  Set db = OpenDatabase("C:\VB3\FOXTEST", False, False, "foxpro 2.5;")
  db.Execute "INSERT INTO ToTableName SELECT FromTableName.*
     FROM FromTableName"
				

Cómo copiar un registro mediante la colección Fields y Value

El siguiente bucle copia todos los campos en el registro actual en la tabla 1 a los campos correspondientes en el registro actual en la tabla 2:
   Dim MyDB As Database, Tbl1 As Table, Tbl2 As Table
   Set MyDB = OpenDatabase("BIBLIO.MDB")     ' Open Database.
   Set Tbl1 = MyDB.OpenTable("Publishers")     ' Open Table.
   Set Tbl2 = ...

   For i = 0 to Tbl1.Fields.Count - 1
      Tbl2(Tbl1.Fields(i).Name).Value = Tbl1.Fields(i).Value
   Next
				
el bucle anterior se supone que los campos de tabla 2 son idénticos a los que en la tabla 1.

Propiedades

Id. de artículo: 110588 - Última revisión: miércoles, 29 de octubre de 2003 - Versión: 2.0
La información de este artículo se refiere a:
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Visual Basic 3.0 Professional Edition
Palabras clave: 
kbmt KB110588 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): 110588
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