徐州阿里云代理商：access数据库添加图片

luotuoemo • 2024年3月10日 00:48 • 阿里云 • 阅读 222

在Access中添加图片的步骤如下：

在Access数据库中创建一个新的表，设置好字段，其中包括一个“图像”（Image）类型的字段。
在表格中插入一张图片，方法是：将鼠标放在“图像”字段上，然后单击右键，选择“插入对象”菜单，从“创建新对象”对话框中选择“图像”选项，然后选择图片文件并点击“确定”。这样就会在相应的记录中插入一张图片。
这样存储的图片是以二进制形式存放在数据库中的，需要用VBA代码来读取和显示图片。具体代码如下：

Private Sub Form_Current()

Dim rs As New ADODB.Recordset
Dim strID As String

strID = Me!ID
rs.Open "SELECT Picture FROM tbl_Picture WHERE ID=" & strID, _
CurrentProject.Connection, adOpenStatic, adLockOptimistic

If Not rs.BOF And Not rs.EOF Then
    Me!imgPicture.PictureData = rs!Picture
End If

rs.Close
Set rs = Nothing

End Sub

其中，“tbl_Picture”是存储图片的表格名称，“ID”是记录的唯一标识符，“Picture”是“图像”字段的名称，“imgPicture”是存放图片的图片控件名称。

通过以上步骤，你就可以成功地将图片存储在Access数据库中，并且可以用VBA代码来读取和显示图片了。

可以通过以下方式向 Access 数据库中添加图片：

在 Access 中创建一个二进制字段用于存储图像。可以选择“表格”工具栏上的“设计视图”选项卡，然后添加一个新的二进制字段。
向该字段添加图像。可以选择“表格”工具栏上的“数据表视图”选项卡，然后双击该记录以在该字段中添加图像。或者，可以使用“表格”工具栏上的“插入对象”选项卡来添加图像。
使用代码向该字段添加图像。可以使用 Visual Basic for Applications（VBA）编写代码来向该字段添加图像。以下是一个示例代码：

Public Function AddImageToAccessDatabase()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim fld As DAO.Field
Dim strFilename As String
Dim objStream As ADODB.Stream

On Error GoTo ErrorHandler

Set db = CurrentDb()
Set rs = db.OpenRecordset("TableName")

'Pick a file to add
strFilename = "C:Picturestest.jpg"

'Create stream object
Set objStream = New ADODB.Stream
objStream.Type = adTypeBinary
objStream.Open

'Load file into stream
objStream.LoadFromFile strFilename

'Add stream to table
rs.AddNew
Set fld = rs.Fields("FieldName")
fld.AppendChunk objStream.Read
rs.Update

'Cleanup
objStream.Close
Set objStream = Nothing
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

ExitHere: