我检查了几天如何做到这一点,我已经接近解决方案,但我仍然找不到如何做到这一点。
到目前为止,我所拥有的是一个表单,您可以在其中输入Product表的每个字段的所有数据。最后我有一个“附件”字段(由向导制作),我创建了一个事件:
Private Sub Attachment_Click() as String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.AllowMultiSelect = False
.Title = "Please select file to attach"
If .show = True Then
SelectFile = .SelectedItems(1)
Else
Exit Function
End If
End With
Set fd = Nothing
End Function
所以这将返回文件的路径。
现在,当我单击“保存表单”按钮时,我基本上会声明表单 Me.Dirty 因此字段会自动更新到数据库。但附件不会上传。
我查了一下:Add/view attachments using MS Access VBA。这很好,但是我想知道如何通过使用VBA将它添加到哪个行来专门告诉MySQL。我正在考虑使用Form_AfterUpate()来执行rutine,所以我知道所有其他字段都已保存。