如何将MsAcess数据库转换为web表单？

Question

我有一些VBA代码，它允许我在Access中将数据输入到表单中，然后VBA代码获取这些数据，并在word文档中执行“邮件合并”类型的功能。

现在我想用MySQL做同样的事情。有没有办法从MySQL中查询数据并将其合并到word文档中？下面是我想要转换为基于web的版本的VBA脚本。谢谢!

Public Sub Command21_Click()

        Dim db As Database
        Set db = CurrentDb

       Dim Word As Object
       Set Word = CreateObject("Word.Application")

        Dim rst As Recordset
        Set rst = db.OpenRecordset("qryNOH")

Set objWord = CreateObject("Word.Application")
With objWord

'make the application visible
Word.Visible = True


'Define First and Last name strings for searching Query1
Dim IDText As String

IDText = "Me.IDText"

' Open the document.
.Documents.Open ("C:\test.docx")

'Set rst to the record you have selected
rst.FindLast "[IDtext] = '" & IDText & "'"

'Header

.Activedocument.FormFields("entry1").Result = rst("entry1")
.Activedocument.FormFields("entry2").Result = rst("entry2")
.Activedocument.FormFields("entry3").Result = rst("entry3")

End With
End Sub

Answer 1

所以，我用PHP编写了这个快速程序。我对它进行了测试，一切正常。您可以在以下地址查看：https://github.com/McStuffins/Replacer

它将从文件中获取内容，并将其替换为给定值。确保密钥与文件中的密钥相同。我没有完成设置数据库连接等操作。如果您想这样做，请转到：src/Database/Config.php并将MySQL凭据添加到文件中。我的代码已经接受了常量。要使用数据库连接，应该是这样的：

$send = new Replacer\Database\Send(Replacer\Database\Command("SELECT * FROM sometable"));
$content = $send->get()->fetch('obj'); //Check src/Database/Content for accepted values on fetch

我没有继续发送电子邮件，但我相信这不会太糟糕。如果你想让我把它加进去，我会毫不费力地把它加进去。告诉我就行了。我希望这能帮到你!