Donde esta el problema, pretendo sustituir /home/miUsuario para llegar a la carpeta donde tengo mi Base de datos
Tengo este código:
' /home/miUsuario = ~
Connections[gsConexion].host = "~/Documentos/db"
Connections[gsConexion].Name = "miDB.db"
gConn = Connections[gsConexion]
If Not Exist("~/Documentos/db" &/ "miDB.db") Then
mDB.CreaDatabase("~/Documentos/db", "miDB.db")
gConn.Open()
gConn.Exec("Create TABLE 'Gastos' ('ID' INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, 'Descripción' Text,'Importe' Float,'Cargos' Float,'Lanzamiento' Text,'Vencimiento' Text,'Realizado' Text,'Categoría' Text,'Subcategoría' Text,'Tarjeta' Text,'Cuenta' Text,'Observaciones' Text)")
Else
If gConn.Opened Then
gConn.Close
Endif
gConn.Open() ' <---------------------- me dice que no existe o no se encuentra la base de datos
Endif
Gracias.