'Utilidad del Búho, Enero de 2002

'Trata de reproducir el codigo para regenerar la estructura de tablas

'de una MDB.

'paco@nemo.es

'Base original : C:\Documents and Settings\Paco\Escritorio\Foro\procesamdb.mdb

Private Sub CrearBaseDatosEspejo()

On Error Goto ErrorCreateDB

Dim Cat     As New ADOX.Catalog
Dim Tbl(4) As ADOX.Table
Dim Idx()   As ADOX.Index
Dim msgErrR As integer
Dim sCnn    As String 

sCnn =  "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=C:\Documents and Settings\Paco\Escritorio\Foro\NuevaDB.mdb"

Cat.Create sCnn


  Set Cat = Nothing
  Exit Sub

  ErrorCreateDB:
    msgErrR = MsgBox("    Error No. " & Err & " " & vbCrLf & Error, vbCritical+vbAbortRetryIgnore, "Error de Codigo")
    Select Case msgErrR
      Case Is = vbAbort
      If Not (Cat is Nothing) Then
        Set Cat = Nothing
      Endif
      Exit Sub
     Case Is = vbRetry
       Resume Next
     Case Is = vbIgnore
       Resume
    End Select

End Sub