elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Comparar esquemas de dos bases de datos
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Comparar esquemas de dos bases de datos  (Leído 2,930 veces)
criskapunk

Desconectado Desconectado

Mensajes: 277



Ver Perfil
Comparar esquemas de dos bases de datos
« en: 1 Agosto 2011, 18:48 pm »

Buenas!

El problema es asi:
Tengo que comparar el esquema de dos bases de datos en Acces usando vb.net y devolver todos los datos/tablas/relaciones, etc que esten presentes en una y no en la otra.

En Access lei que se puede utilizar el documentador, que devuelve la estructura de una base de datos, pero no entiendo como puedo hacer para compararlo :\


Edit:
Encontre esta forma de obtener el nombre de todas las tablas de la base, pero no encuentro todavia como puedo hacer para obtener los campos de cada una. Alguna sugerencia?

Código
  1. Public Class Form1
  2.  
  3.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.  
  5.        Dim conexion As OleDb.OleDbConnection
  6.        Dim strConexion As String
  7.        Dim tablas(0) As String
  8.  
  9.        '-- Conexion con la base de datos modelo --
  10.        strConexion = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=C:\base.mdb;Jet OLEDB:Database Password=pass;"
  11.        conexion = New OleDb.OleDbConnection(strConexion)
  12.        conexion.Open()
  13.  
  14.        '-- Almacena en un vector los nombres de todas las tablas --
  15.        Dim i As Integer = 0
  16.        Dim tabla As DataTable = conexion.GetSchema("TABLES")
  17.        For Each t As DataRow In tabla.Rows
  18.            Dim o As Object = Nothing
  19.            o = t.Item("TABLE_TYPE")
  20.            If (o.ToString.ToUpper = "TABLE") OrElse (o.ToString.ToUpper = "BASE_TABLE") Then
  21.                tablas(i) = t("TABLE_NAME").ToString
  22.                MessageBox.Show(i)
  23.                For Each c As DataColumn In tabla.Columns
  24.                    MessageBox.Show(c.ColumnName)
  25.                Next
  26.                ReDim Preserve tablas(i + 1)
  27.                i += 1
  28.            End If
  29.        Next
  30.  
  31.        MessageBox.Show(tablas(0))
  32.        conexion.Close()
  33.  
  34.    End Sub
  35. End Class

Un saludo y gracias.


« Última modificación: 2 Agosto 2011, 21:47 pm por R0LFback » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
manejo de datos, comparar cadenas, borrar un contenido de una cadena
Programación Visual Basic
-Xenon- 5 4,807 Último mensaje 20 Enero 2006, 14:49 pm
por -Xenon-
Comparar usuario y contraseña con la base de datos. Ayuda
Programación Visual Basic
70N1 6 12,740 Último mensaje 28 Agosto 2008, 15:27 pm
por ssccaann43 ©
Comparar Base de datos MySQL (Solucionado)
Bases de Datos
elecktra 4 12,775 Último mensaje 22 Noviembre 2009, 23:17 pm
por elecktra
comparar y eliminar datos de un fichero
PHP
Roc668 1 3,298 Último mensaje 13 Diciembre 2009, 17:43 pm
por Maox
Comparar datos
Java
nolasco281 1 1,598 Último mensaje 10 Junio 2014, 22:12 pm
por gordo23
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines