Newsgrupos.com  

Retroceder   Newsgrupos.com > Forum > Newsgroup microsoft.public.es.* 2 Foro > Newsgroup microsoft.public.es.dotnet.ado
Registrarse Preguntas Frecuentes Lista de Foreros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




Respuesta
 
LinkBack Herramientas Desplegado
  #1 (permalink)  
Antiguo 02-12-2005, 17:15:02
Gabriel
 
Mensajes: n/a
Predeterminado compactad una base de datos acces con visual basic .net

Como se puede compactar una base de datos acces con visual basic .net ?
Responder Con Cita
Alt Today
Advertising
Google Adsense
 
This advertising will not be shown
in this way to registered members.
Register your free account today
and become a member on
Newsgrupos.com
Standard Sponsored Links

  #2 (permalink)  
Antiguo 13-12-2005, 11:16:09
Francisco Jiménez Fdez
 
Mensajes: n/a
Predeterminado Re: compactad una base de datos acces con visual basic .net

AÑADE LA REFERENCIA "Interop.JRO.dll" LA DESCRIPCION EN MI APLICACION ES
="Microsoft Jet and Replication Objects 2.6 Library"

Private Sub INTEGRIDAD_ACCESS()
Dim jro As JRO.JetEngine

Dim ORIGINAL As String = "C:\ORIGINAL.MDB"

Dim DESTINO As String = "C:\DESTINO.MDB"

Try

jro = New JRO.JetEngine

jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" &
ORIGINAL & _

";Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DESTINO & ";Jet
OLEDB:Engine Type=5")

File.Delete(ORIGINAL)

File.Copy(DESTINO, ORIGINAL)

Catch

MSGBOX( "SE PRODUJO UN ERROR AL INTENTAR COMPROBAR LA INTEGRIDAD DE LA
BASE DE DATOS. IMPOSIBLE CONTINUAR.")



End Try

End Sub




"Gabriel" <Gabriel***discussions.microsoft.com> escribió en el mensaje
news:65CB19BF-6BD8-4C6E-9276-88160719B520***microsoft.com...
> Como se puede compactar una base de datos acces con visual basic .net ?



Responder Con Cita
  #3 (permalink)  
Antiguo 13-12-2005, 11:16:09
Francisco Jiménez Fdez
 
Mensajes: n/a
Predeterminado Re: compactad una base de datos acces con visual basic .net

AÑADE LA REFERENCIA "Interop.JRO.dll" LA DESCRIPCION EN MI APLICACION ES
="Microsoft Jet and Replication Objects 2.6 Library"

Private Sub INTEGRIDAD_ACCESS()
Dim jro As JRO.JetEngine

Dim ORIGINAL As String = "C:\ORIGINAL.MDB"

Dim DESTINO As String = "C:\DESTINO.MDB"

Try

jro = New JRO.JetEngine

jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" &
ORIGINAL & _

";Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DESTINO & ";Jet
OLEDB:Engine Type=5")

File.Delete(ORIGINAL)

File.Copy(DESTINO, ORIGINAL)

Catch

MSGBOX( "SE PRODUJO UN ERROR AL INTENTAR COMPROBAR LA INTEGRIDAD DE LA
BASE DE DATOS. IMPOSIBLE CONTINUAR.")



End Try

End Sub




"Gabriel" <Gabriel***discussions.microsoft.com> escribió en el mensaje
news:65CB19BF-6BD8-4C6E-9276-88160719B520***microsoft.com...
> Como se puede compactar una base de datos acces con visual basic .net ?



Responder Con Cita
  #4 (permalink)  
Antiguo 13-12-2005, 11:16:09
Francisco Jiménez Fdez
 
Mensajes: n/a
Predeterminado Re: compactad una base de datos acces con visual basic .net

AÑADE LA REFERENCIA "Interop.JRO.dll" LA DESCRIPCION EN MI APLICACION ES
="Microsoft Jet and Replication Objects 2.6 Library"

Private Sub INTEGRIDAD_ACCESS()
Dim jro As JRO.JetEngine

Dim ORIGINAL As String = "C:\ORIGINAL.MDB"

Dim DESTINO As String = "C:\DESTINO.MDB"

Try

jro = New JRO.JetEngine

jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" &
ORIGINAL & _

";Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DESTINO & ";Jet
OLEDB:Engine Type=5")

File.Delete(ORIGINAL)

File.Copy(DESTINO, ORIGINAL)

Catch

MSGBOX( "SE PRODUJO UN ERROR AL INTENTAR COMPROBAR LA INTEGRIDAD DE LA
BASE DE DATOS. IMPOSIBLE CONTINUAR.")



End Try

End Sub




"Gabriel" <Gabriel***discussions.microsoft.com> escribió en el mensaje
news:65CB19BF-6BD8-4C6E-9276-88160719B520***microsoft.com...
> Como se puede compactar una base de datos acces con visual basic .net ?



Responder Con Cita
  #5 (permalink)  
Antiguo 13-12-2005, 11:16:09
Francisco Jiménez Fdez
 
Mensajes: n/a
Predeterminado Re: compactad una base de datos acces con visual basic .net

AÑADE LA REFERENCIA "Interop.JRO.dll" LA DESCRIPCION EN MI APLICACION ES
="Microsoft Jet and Replication Objects 2.6 Library"

Private Sub INTEGRIDAD_ACCESS()
Dim jro As JRO.JetEngine

Dim ORIGINAL As String = "C:\ORIGINAL.MDB"

Dim DESTINO As String = "C:\DESTINO.MDB"

Try

jro = New JRO.JetEngine

jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" &
ORIGINAL & _

";Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DESTINO & ";Jet
OLEDB:Engine Type=5")

File.Delete(ORIGINAL)

File.Copy(DESTINO, ORIGINAL)

Catch

MSGBOX( "SE PRODUJO UN ERROR AL INTENTAR COMPROBAR LA INTEGRIDAD DE LA
BASE DE DATOS. IMPOSIBLE CONTINUAR.")



End Try

End Sub




"Gabriel" <Gabriel***discussions.microsoft.com> escribió en el mensaje
news:65CB19BF-6BD8-4C6E-9276-88160719B520***microsoft.com...
> Como se puede compactar una base de datos acces con visual basic .net ?



Responder Con Cita
  #6 (permalink)  
Antiguo 13-12-2005, 11:16:09
Francisco Jiménez Fdez
 
Mensajes: n/a
Predeterminado Re: compactad una base de datos acces con visual basic .net

AÑADE LA REFERENCIA "Interop.JRO.dll" LA DESCRIPCION EN MI APLICACION ES
="Microsoft Jet and Replication Objects 2.6 Library"

Private Sub INTEGRIDAD_ACCESS()
Dim jro As JRO.JetEngine

Dim ORIGINAL As String = "C:\ORIGINAL.MDB"

Dim DESTINO As String = "C:\DESTINO.MDB"

Try

jro = New JRO.JetEngine

jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" &
ORIGINAL & _

";Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DESTINO & ";Jet
OLEDB:Engine Type=5")

File.Delete(ORIGINAL)

File.Copy(DESTINO, ORIGINAL)

Catch

MSGBOX( "SE PRODUJO UN ERROR AL INTENTAR COMPROBAR LA INTEGRIDAD DE LA
BASE DE DATOS. IMPOSIBLE CONTINUAR.")



End Try

End Sub




"Gabriel" <Gabriel***discussions.microsoft.com> escribió en el mensaje
news:65CB19BF-6BD8-4C6E-9276-88160719B520***microsoft.com...
> Como se puede compactar una base de datos acces con visual basic .net ?



Responder Con Cita
  #7 (permalink)  
Antiguo 13-12-2005, 11:16:09
Francisco Jiménez Fdez
 
Mensajes: n/a
Predeterminado Re: compactad una base de datos acces con visual basic .net

AÑADE LA REFERENCIA "Interop.JRO.dll" LA DESCRIPCION EN MI APLICACION ES
="Microsoft Jet and Replication Objects 2.6 Library"

Private Sub INTEGRIDAD_ACCESS()
Dim jro As JRO.JetEngine

Dim ORIGINAL As String = "C:\ORIGINAL.MDB"

Dim DESTINO As String = "C:\DESTINO.MDB"

Try

jro = New JRO.JetEngine

jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" &
ORIGINAL & _

";Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DESTINO & ";Jet
OLEDB:Engine Type=5")

File.Delete(ORIGINAL)

File.Copy(DESTINO, ORIGINAL)

Catch

MSGBOX( "SE PRODUJO UN ERROR AL INTENTAR COMPROBAR LA INTEGRIDAD DE LA
BASE DE DATOS. IMPOSIBLE CONTINUAR.")



End Try

End Sub




"Gabriel" <Gabriel***discussions.microsoft.com> escribió en el mensaje
news:65CB19BF-6BD8-4C6E-9276-88160719B520***microsoft.com...
> Como se puede compactar una base de datos acces con visual basic .net ?



Responder Con Cita
  #8 (permalink)  
Antiguo 13-12-2005, 17:20:05
Gabriel
 
Mensajes: n/a
Predeterminado Re: compactad una base de datos acces con visual basic .net


Esto funciona, muchas gracias...
Responder Con Cita
 
  #9 (permalink)  
Antiguo 13-12-2005, 17:20:05
Gabriel
 
Mensajes: n/a
Predeterminado Re: compactad una base de datos acces con visual basic .net


Esto funciona, muchas gracias...
Responder Con Cita
  #10 (permalink)  
Antiguo 13-12-2005, 17:20:05
Gabriel
 
Mensajes: n/a
Predeterminado Re: compactad una base de datos acces con visual basic .net


Esto funciona, muchas gracias...
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último mensaje
OleDBDataAdapter para Visual Basic 2005 base de datos incorporada saflon Newsgroup microsoft.public.es.dotnet.vb 3 01-11-2008 20:26:35
Ayuda por favor¡¡¡¡ error El proyecto de visual basic para aplicaciones de la base de datos esta dañado Blue Newsgroup microsoft.public.es.access 6 31-08-2008 20:47:15
Conectar visual basic .net 2008 con base de datos Miguel Newsgroup microsoft.public.es.dotnet.vb 3 03-08-2008 16:17:26
como conecto una base de datos de sql server con visual basic chio Newsgroup microsoft.public.es.vba 12 26-03-2007 20:37:29
modificar varias tablas de una base de datos con formularios en visual basic desarrolloaguas Newsgroup microsoft.public.es.ado 5 10-05-2004 22:48:59





Powered by: vBulletin, Versión 3.6.8
Derechos de Autor ©2000 - 2009, Jelsoft Enterprises Ltd.

LinkBacks Enabled by vBSEO 3.1.0 © 2007, Crawlability, Inc.