SoloCodigo

Hola colegas, estoy intentando, a ver si es posible, el crear una base de datos pero claro desde codigo, sin ejecutar acces con el SHELL del api ni nada de eso, simplemente una instruccion o modulo a traves del cual se compruebe si existe una base de datos y si no es asi, crearla.

Graicas, pero ke referencia de visual basic tengo ke cargar para utilizar DBengine. Gracias

Ya esta localizado. Muchas gracias, ya os dire como va la cosa.

Este elemplo casado de MSDN te puede aclarar alguinos conceptos.

Sub CreateDatabaseX()

   Dim wrkDefault As Workspace
   Dim dbsNew As DATABASE
   Dim prpLoop As Property

   ' Get default Workspace.
   Set wrkDefault = DBEngine.Workspaces(0)

   ' Make sure there isn't already a file with the name of
   ' the new database.
   If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb"

   ' Create a new encrypted database with the specified
   ' collating order.
   Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", _
      dbLangGeneral, dbEncrypt)

   With dbsNew
      Debug.Print "Properties of " & .Name
      ' Enumerate the Properties collection of the new
      ' Database object.
      For Each prpLoop In .Properties
         If prpLoop <> "" Then Debug.Print "  " & _
            prpLoop.Name & " = " & prpLoop
      Next prpLoop
   End With

   dbsNew.Close

End Sub


Consulta en MSDN <CreateDataBase>;<TableDefs>;<Fields>;<Indexes>;<Relations>

Un saludo