Question

我实际上使用的是旧版本的Realbasic（2008），并且一直使用VB Script将几个小型数据库备份为Zip文件。

我现在发现thnis方法在Windows 8上不起作用，也不是跨平台的。

由于我希望将备份放在一个文件中以便它可以是增量备份，我使用大型数据库来保存较小的备份。

这可能吗？

我无意购买插件。

Answer 1

类似于保罗的回答。您可以将要存储的文件的二进制数据读入MemoryBlock，然后将生成的字符串保存到数据库中。我们在几个应用程序中完成了这项工作。不要指望它会很快，因为所有这些都先发生在RAM中，然后写入数据库。

理想情况下，我认为，您希望在保存之前压缩文件/字符串。但是Xojo没有内置的gzip，因此您必须使用第三方解压缩或通过Declares进行OS调用。

Answer 2

您可以将任何内容存储为SQLite表中的BLOB。

您也可以考虑使用VirtualVolume和BinaryStream将DB文件写入单个“容器”文件。

http://docs.xojo.com/index.php/VirtualVolume

Answer 3

感谢Paul和BKeeney的帮助。 BKeeney最接近，经过一些实验，我成功了！

这就是我做的......

      //
      Dim l, p As Integer
      Dim ReadFromFile as BinaryStream
      Dim f as FolderItem

      f= GetFolderItem("Keyhoe.db3")

      If f <> Nil Then
        l = f.Length
        ReadFromFile=f.OpenAsBinaryFile( False)

        mb = New MemoryBlock(l)

        While Not ReadFromFile.EOF
          mb.byte(p) = ReadFromFile.ReadInt8
          p = p + 1
        wend

        ReadFromFile.close
      End If

      Dim dbFile as FolderItem
      Dim db as REALSQLdatabase
      db= New REALSQLdatabase
      Dim mydate as New Date
      Dim rec as DatabaseRecord

      dbFile = GetFolderItem("Backup.db3")
      db.DatabaseFile = dbFile
      If db.Connect Then
        rec = New DatabaseRecord

        rec.Column("Name") = "Keyhoe"
        rec.BlobColumn("Content") = mb.LeftB(l)
        db.InsertRecord("Databases",rec)
        db.Commit
      else
        MsgBox "Error: "+db.ErrorMessage
      End if

      msgbox "Done..."

再次感谢...我现在要做的就是弄清楚如何恢复数据库，但这个任务有几个例子。

干杯，

艾伦......

我可以在另一个SQLite数据库中存储SQLite数据库吗？

3 个答案: