Visual Basic 中利用 Access 存储和读取图像的示例
演示了使用 Visual Basic 在 Access 数据库中存储和读取图像的实用方法。提供的代码清晰简洁，易于理解和使用。
存储图像
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:pathtodatabase.accdb"
Dim cmd As New ADODB.Command
cmd.Connection = conn
cmd.CommandText = "INSERT INTO Images (Image) VALUES (?)"
cmd.Parameters.Append cmd.CreateParameter("Image", ADODB.DataTypeEnum.adLongVarBinary, 0, cmd.ParameterDirection.Input, imgData)
cmd.Execute
conn.Close
读取图像
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:pathtodatabase.accdb"
Dim cmd As New ADODB.Command
cmd.Connection = conn
cmd.CommandText = "SELECT Image FROM Images WHERE Id = 1"
Dim rs As New ADODB.Recordset
Set rs = cmd.Execute
Dim imgData As Byte()
imgData = rs("Image").Value
conn.Close
文件大小：46.25KB
评论区