Sub CreateDatabaseX()
Dim wrkPredeterminado As Workspace
Dim dbLocal As Database
Dim prpBucle As Property
‘ Obtiene el Workspace predeterminado.
Set wrkPredeterminado = DBEngine.Workspaces(0)
‘ Asegúrese de que no existe un archivo con el
‘ nombre de la base de datos nueva.
If Dir(“c:\temp\dblocal.mdb”) <> “” Then Kill “c:\temp\dblocal.mdb”
Set dbLocal = wrkPredeterminado.CreateDatabase(“c:\temp\dblocal.mdb”, _
dbLangSpanish, dbVersion30)
dbLocal.Close
End Sub


Posts anterior y posterior:
«
»


Posts Relacionados: