- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一张带有嵌入式图片 (OLE) 列的表格。
我希望能够通过带有浏览选项的表单插入新记录。
无论如何,我有一个文件名,我需要将它变成一个ole对象并将其插入到表单中。我如何在 VBA 中做到这一点?
澄清一下 - 我需要将文件名转换为包含该文件的 ole 对象,然后将其插入到表中。
谢谢,手指人。
编辑:
好的,正如@HansUp 所指出的,我需要解释一下。在我的表单中,我有一个未绑定(bind)到字段但绑定(bind)到 dlookup 函数的绑定(bind) OLE 对象。我通过查询和组合框将正确的 ID 获取到控件中 - 因此 Controller 绑定(bind)到:
=DLookUp("picture","articles","id=" & [articles])
注意 articles 不是一个字段而是一个 Controller ,我不知道这是否有任何区别。
每次更改 Controller 时,我都会使用 me.recalc
,以便绑定(bind)的 OLE 可以更新它的值。
无论如何,我想通过 VBA 和用户输入文件地址来做到这一点,而不使用 Controller ,而是使用某种 INSERT 或其他东西,但欢迎其他选项。
如果我不清楚,请提问!我会澄清和修复自己。
编辑 2:
So how is the filename acquired or derived? Are you expecting to use the ArticleID? Is the picture always at an expected location with an expected file name? What exactly do you want to do if you don't use the Browse button? Are you looking for something fully automated based on the folder and file name or are you looking for something like drag and drop?
文件名是通过浏览选项获取的,我已经实现了。为了简单起见 - 假设用户必须自己将文件名输入文本框。现在 - 我希望通过单击一个按钮,我可以将该文件名作为嵌入的 ole 对象插入到我的数据库中。我不是在寻找任何自动化或拖放(但是,如果拖放有效,那就太好了)。第一次编辑是关于 ole Controller 的,因为有人问过。他认为我的问题可以使用那个 Controller 来解决——所以我详细说明了我是如何显示图片的。我不认为它有任何相关性,但如果有人可以使用它,我会很好。我希望使用 articleID 进行更新 - 但同样,我不明白这与问题有什么关系。
我开始认为这可能是不可能的..... :(这是不幸的,因为这个问题相当简单。 您有一个文件名,您需要将其作为 OLE 对象嵌入到您的数据库中。
最佳答案
在提供我的答案之前,我将快速浏览一下您的问题及其要求的措辞。在我看来,您希望能够加载二进制文件对象,在本例中为图片,使用 VBA、表中的 OLE 对象字段和绑定(bind)对象框架。
您最好的选择是停止尝试使用绑定(bind)对象框架,因为它有太多限制。
对于您要执行的操作,基本上有两种推荐的方法。
1) 仅存储图像文件的链接,然后使用图像控件(它可以绑定(bind)到您的图片字段)来显示图像。
2) 使用代码将图像存储在 OLE 对象字段中以将图像作为二进制数据读入。当您需要显示图像时,您需要将其写入临时文件,然后您可以将图像控件上的图片属性设置为临时图像文件的完整路径和文件名。将图像文件作为临时文件进行管理由您决定。您可以使用 Windows 的临时目录,也可以在每次需要显示图像时简单地写入相同的文件名。
这些技术都不是太难。这里有一篇非常好的文章可以帮助您进一步理解我在说什么:http://www.jamiessoftware.tk/articles/handlingimages.html
这是一个读取二进制数据(在本例中是您的图片文件)的函数和另一个写出二进制数据的函数:http://www.ammara.com/access_image_faq/read_write_blob.html这适用于将图片写入“临时”文件。然后,您所要做的就是将图像控件上的 Picture 属性设置为临时文件的文件路径和名称。
您还可以使用 ADO 流对象以及 ADO 记录集对象和 ADO 连接对象来读取和写入二进制数据。您必须在 Access Microsoft ActiveX 数据对象 2.8 库中设置引用。
下面是一些使用 ADO 将图片添加到数据库的代码:
Private Function LoadPicIntoDatabase(sFilePathAndName As String) As Boolean
On Error GoTo ErrHandler
'Test to see if the file exists. Exit if it does not.
If Dir(sFilePathAndName) = "" Then Exit Function
LoadPicIntoDatabase = True
'Create a connection object
Dim cn As ADODB.Connection
Set cn = CurrentProject.Connection
'Create our other variables
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream
Set rs = New ADODB.Recordset
'Configure our recordset variable and open only 1 record (if one exists)
With rs
.LockType = adLockOptimistic
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open "SELECT TOP 1 * FROM tblArticles", cn
End With
'Open our Binary Stream object and load our file into it
Set mstream = New ADODB.Stream
mstream.Open
mstream.Type = adTypeBinary
mstream.LoadFromFile sFilePathAndName
'add a new record and read our binary file into the OLE Field
rs.AddNew
rs.Fields("olepicturefield") = mstream.Read
rs.Update
'Edit: Removed some cleanup code I had inadvertently left here.
Cleanup:
On Error Resume Next
rs.Close
mstream.Close
Set mstream = Nothing
Set rs = Nothing
Set cn = Nothing
Exit Function
ErrHandler:
MsgBox "Error: " & Err.Number & " " & Err.Description
LoadPicIntoDatabase = False
Resume Cleanup
End Function
Private Sub Command0_Click()
If IsNull(Me.txtFilePathAndName) = False Then
If Dir(Me.txtFilePathAndName) <> "" Then
If LoadPicIntoDatabase(Me.txtFilePathAndName) = True Then
MsgBox Me.txtFilePathAndName & " was successfully loaded into the database."
End If
End If
End If
End Sub
编辑1:
根据您的要求,下面是查找/加载给定文章图片的代码。为了保持一致性,我还更改了上面的表和字段名称,以更好地反射(reflect)您的项目并匹配下面的代码。我测试了这段代码,它对我来说工作正常。
Private Sub Command1_Click()
If IsNull(Me.txtArticleID) = False Then
If DCount("articleid", "tblArticles", "articleid = " & Me.txtArticleID) = 1 Then
Dim rs As DAO.Recordset, sSQL As String, sTempPicture As String
sSQL = "SELECT * FROM tblArticles WHERE ArticleID = " & Me.txtArticleID
Set rs = CurrentDb.OpenRecordset(sSQL)
If Not (rs.EOF And rs.BOF) Then
sTempPicture = "C:\MyTempPicture.jpg"
Call BlobToFile(sTempPicture, rs("olepicturefield"))
If Dir(sTempPicture) <> "" Then
Me.imagecontrol1.Picture = sTempPicture
End If
End If
rs.Close
Set rs = Nothing
Else
MsgBox "Article Not Found"
End If
Else
MsgBox "Please enter an article id"
End If
End Sub
Private Function BlobToFile(strFile As String, ByRef Field As Object) As Long
On Error GoTo BlobToFileError
Dim nFileNum As Integer
Dim abytData() As Byte
BlobToFile = 0
nFileNum = FreeFile
Open strFile For Binary Access Write As nFileNum
abytData = Field
Put #nFileNum, , abytData
BlobToFile = LOF(nFileNum)
BlobToFileExit:
If nFileNum > 0 Then Close nFileNum
Exit Function
BlobToFileError:
MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, _
"Error writing file in BlobToFile"
BlobToFile = 0
Resume BlobToFileExit
End Function
关于file - 如何从文件创建 ole 对象 - Ms-access,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6328395/
我正在尝试使用 SAP ABAP OLE OBJECT 打开受密码保护的 excel 文件,如下所示: DATA: lt_excel_line(4096) OCCURS 10 WITH HEADER
我目前正在实现一个 IOleObject 接口(interface),以将我们软件的可视化数据嵌入到其他软件(如 PowerPoint)中。我们的软件创建测量数据的图形评估(图表等)。 目标是,最终用
我对此很陌生。我正在尝试将 355 行传输到目的地 我有 3 列要转移 Customer_Number、Crime_Type、Action_Date。 当我创建源表时都是nvarchar(50) 目标
我有一个包含 2 个组件的数据流任务: 属于 SELECT 查询的 OLEDB 数据源任务: SELECT ACCOUNTID FROM JOBS WHERE STATUS=3 OLE DB 命令任务
我有一个包含 2 个组件的数据流任务: 属于 SELECT 查询的 OLEDB 数据源任务: SELECT ACCOUNTID FROM JOBS WHERE STATUS=3 OLE DB 命令任务
我有一个自定义数据库,我想为其编写一个 OLE DB 提供程序,但我希望用 C# 来完成。 我找到了这两个站点,但所有示例都在 C 中。 http://msdn.microsoft.com/en-us
我正在运行以下代码 /*Fetchinch Last CustID from custMaster*/ int ID = 0; try { con.Open(); da = new
我使用 oledb 提供程序(SQLOLEDB 和 SQL Native OLEDB 提供程序)创建了一个示例应用程序。 案例 1:提供者 = SQLOLEDB hr = ::CoInitialize
我花了几个小时试图解决这个问题。对于给我带来问题的列,我在 sql server 中使用标量函数来获取名称。该功能是正确的并且工作正常。然后我使用一个存储过程与 ssis 一起使用。给我错误的列指出它
我的源是 TXT 平面文件源,目标是 OLE DB 类型。 (见图) 我发现了一个非常basic tutorial on Code Project创建一个包。我完成了这些步骤,但是在调试时出现了一个奇
我正在对SQL Server数据库使用OLE DB批量复制操作,但是在将数据加载到bit列时遇到了麻烦-它们总是填充有true! 我根据下面的代码段从simple reproduction progr
我目前生活在 90 年代,我收到了这段遗留代码。我对 COM/OLE/MFC/ATL 不了解,所以我问这个问题,希望当时有经验的人可以帮助我找出这个问题。 我拥有的是这个非常古老/遗留的 MFC/AT
我使用 WTL 创建了一个 Dialog,继承自 CDialogImpl 类,在主对话框中我创建了另一个对话框,并在第二个子对话框中创建了一个列表控件。我想向列表控件添加拖放功能,我在网上阅读了有关
我使用 WinAPI 函数在 C# 中创建 OLE 文件。 WinAPI 函数是: [DllImport("ole32.dll")] public static extern int O
我正在尝试调整图像大小以在我的 OLED 设备上显示。 我想要显示的图像是: 目前,我的 OLED 显示屏仅显示图像的一小部分: 基于How to resize image? ,我在脚本中添加了 ne
如何在 128x64 OLED 显示屏上滚动长文本 我正在使用 Adafruit_SSD1306 驱动程序 此代码仅显示“This”,因为文本太大而无法显示,但是当我滚动文本时,仅“This”滚动而不
我无法解决这些术语之间的差异。 是COM和ActiveX同义词吗? ActiveX对象仅仅是公开IDispatch的COM对象吗? 许多较旧的MSDN页面提到IDispatch时没有任何COM上下文。
我们在 Delphi 7 中使用一些 OLE 自动化来打开一个 word 文档,然后在加载后保存它,并将其加载到数据库中。 这工作正常,但部分要求是在 OLE 位发生时有一个进度条,如果 OLE 部分
在我当前使用的产品中,Excel 电子表格是使用 Delphi 的 OLE 生成的。电子表格包含许多日期,应用程序从系统设置加载短日期格式并将其应用到单元格。除非系统格式至少设置为俄语、巴什基尔语、鞑
这个 c++ question 的语法是什么?在德尔福? 使用 oleContainer 后,并尝试执行 SaveDocumentAs 但不起作用。我认为这可能是一个不错的选择。 更新:感谢您的翻译,
我是一名优秀的程序员,十分优秀!