![]() |
| |||||||
| Registrarse | Preguntas Frecuentes | Lista de Foreros | Calendario | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
| | LinkBack | Herramientas | Desplegado |
| | ||||
| ||||
| |
| |||
| 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 ? |
| |||
| 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 ? |
| |||
| 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 ? |
| |||
| 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 ? |
| |||
| 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 ? |
| |||
| 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 ? |
| |
| |
![]() |
| Herramientas | |
| Desplegado | |
| |
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 |