Autor Tema: Base De Datos (Leído 1211 veces)

skirpef · « **en:** Jueves 4 de Marzo de 2004, 17:47 »

hola necesito ayuda para hacer una base de datos ya que tengo problemas con office por que visual basic no me reconoce el tipo de la base de datos

me pueden ayudar por favor

o que me digan como puedo generar un archivo de base de datos directamente en visual pero este asu ves genere un archivo como respaldo y que se pueda ver en access

9tnix

saludos skirpef

1. Para usar las bases de datos de access con VB debes tener en cuenta el proveedor que para el caso de las bases de acess 2000 y XP se usa el proveedor Microsoft.Jet.Oledb.4.0, para base de datos office 97 usa el proveedor Microsoft.Jet.oledb.3.51

2. En VB puedes hacer base de datos con el visdata para tu caso access pero debes usar el proveedor Microsoft.jet.oledb.3.51 pues la base que genera es de office 97.

3. para crear un archivo de respaldo pues no estoy muy seguro pero podrias crear una copia de la base y compactarla.

Un saludo zeekel ®
[KGT]

elmango80

Para compactar una base de datos existente puedes utilizar este codigo

Código: Text

 
Public Sub CompactarBaseDeDatos(ByVal sRutaDb As String, Optional ByVal sPassword As String)
 
    ' Compactar una base de datos con ADO
    Dim sDBTmp         As String
    Dim je             As JRO.JetEngine
    Dim CadenaConexion1 As String
    Dim CadenaConexion2 As String
 
    On Error GoTo ErrCompactar
 
    Set je = New JRO.JetEngine
 
    ' Cerrar la conexión y recordset actual,(08/Oct/01)
    ' ya que tiene que estar abierto en modo exclusivo
 
    gDB.Close
 
    ' Crear un nombre &#34;medio&#34; aleatorio
    sDBTmp = &#34;DBT_&#34; & Format&#036;(Minute(Now), &#34;00&#34;) & Format&#036;(Second(Now), &#34;00&#34;) & &#34;.mdb&#34;
 
    ' Asegurarnos de que no existe una base con el nombre temporal
    If Len(Dir&#036;(sDBTmp)) Then
        Kill sDBTmp
    End If
 
    CadenaConexion1 = &#34;Provider=Microsoft.Jet.OLEDB.4.0;&#34; & _
                     &#34;Data Source=&#34; & sRutaDb & &#34;;&#34;
    If Len(sPassword) Then
       CadenaConexion1 = CadenaConexion1 & &#34;Jet OLEDB:Database Password=&#34; & sPassword & &#34;;&#34;
    End If
 
    CadenaConexion2 = &#34;Provider=Microsoft.Jet.OLEDB.4.0;&#34; & _
                     &#34;Data Source=&#34; & sDBTmp & &#34;;&#34;
    If Len(sPassword) Then
       CadenaConexion2 = CadenaConexion2 & &#34;Jet OLEDB:Database Password=&#34; & sPassword & &#34;;&#34;
    End If
 
 
    ' Compactar la base de datos
    je.CompactDatabase CadenaConexion1, CadenaConexion2
 
    ' Eliminar la base de datos original
    Kill sRutaDb
    '
    ' Renombrar la base temporal con el original
    Name sDBTmp As sRutaDb
 
CompactarSalir:
    Call InicializarDatos(sRutaDb, glbPassDB)
 
    Exit Sub
    '
ErrCompactar:
    ' Mostrar el mensaje de error
    MsgBox &#34;Error al compactar la base de datos:&#34; & vbCrLf & _
            Err.Number & &#34; &#34; & Err.Description, _
            vbExclamation, &#34;Error al compactar la base de datos&#34;
    Err.Clear
 
    Resume CompactarSalir
End Sub
 
 

SoloCodigo

Autor Tema: Base De Datos (Leído 1211 veces)

skirpef

Base De Datos

9tnix

Re: Base De Datos

elmango80

Re: Base De Datos