'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
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)