Modulo Comun Base de datos

' Gambas module file

Private hconn As Connection

Public Function ConectarBase() As Connection

  hconn = New Connection
  hconn.host = User.home &/ ".ejemploBD"
  hconn.name = "DatosEjemplos"
  hconn.type = "sqlite3"

  Try hconn.Open()

  If Error Then
    Message.Info("Error al conectarse a la base de datos")
    Print Error.Text
    Print Error.Where
    Print Error.Code
  Else
    Return hconn
  Endif

  Return Null

End

Public Function copiarBase()

  If Exist(User.home &/ ".ejemploBD/DatosEjemplos") Then
    'existe el archivo, no hago nada.
  Else
    Try Mkdir User.home &/ ".ejemploBD"
    Try Copy "DatosEjemplos" To User.home &/ ".ejemploBD/DatosEjemplos"
  Endif

End