Private Conexion As Connection
Private TablaMovs As Result
Private $Query As String
Public Sub Inicializar()
Conexion = New Connection
Conexion.Type = "sqlite3"
Conexion.Host = Application.Path
Conexion.Name = "Movimiento.sqlite"
Try Conexion.Open()
If Error Then
Message.Error("Error al conectar a la base de datos.")
Conexion = Null
Else
$Query = "SELECT * FROM MI"
Try Conexion.Exec($Query)
If Error Then
Message(Error.Where)
Endif
End If
End