document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas module file
  2.  
  3. Private hconn As Connection
  4.  
  5. Public Function ConectarBase() As Connection
  6.  
  7.   hconn = New Connection
  8.   hconn.host = User.home &/ ".ejemploBD"
  9.   hconn.name = "DatosEjemplos"
  10.   hconn.type = "sqlite3"
  11.  
  12.   Try hconn.Open()
  13.  
  14.   If Error Then
  15.     Message.Info("Error al conectarse a la base de datos")
  16.     Print Error.Text
  17.     Print Error.Where
  18.     Print Error.Code
  19.   Else
  20.     Return hconn
  21.   Endif
  22.  
  23.   Return Null
  24.  
  25. End
  26.  
  27. Public Function copiarBase()
  28.  
  29.   If Exist(User.home &/ ".ejemploBD/DatosEjemplos") Then
  30.     \'existe el archivo, no hago nada.
  31.   Else
  32.     Try Mkdir User.home &/ ".ejemploBD"
  33.     Try Copy "DatosEjemplos" To User.home &/ ".ejemploBD/DatosEjemplos"
  34.   Endif
  35.  
  36. End
');