Question

我是VB的新手。我正在开发一个Excel-VB（2013）项目，我想从另一个excel文件中读取数据，然后将其中的一些字段与现有数据进行比较。所以问题是关于应用程序内部的现有数据库（没有服务器，没有在线连接）。我想知道如何将sqlite DB文件（或任何其他文件）添加到我的项目中，然后连接到该数据库并使用它。我需要一些例子的帮助。

谢谢，

Answer 1

您可以将其嵌入任何可执行文件中，但您必须将其解压缩才能使用它，通常在临时文件夹中。我使用Reshacker来嵌入资源。这是一些旧代码。我这些天使用adodb流对象而不是VB文件操作符。

Sub WriteFiles(DirectoryName, ResourceNo, FileName, FileNumber)
    frmSplash.Update FileNumber
    DoEvents
    Data = LoadResData(ResourceNo, "CUSTOM")
    fileNum = FreeFile()
    Open DirectoryName & "\" & FileName For Binary As #fileNum
    For x = 0 To UBound(Data)
        Put #fileNum, , CByte(Data(x))
        frmSplash.Label8 = FormatNumber(x / UBound(Data) * 100, 0) & "%"
        DoEvents
    Next
    Close fileNum
End Sub

将SQlite数据库（或任何其他建议）与VB中的Excel项目集成

1 个答案: