用VB6读写数据库中的图片

最新推荐文章于 2024-05-07 20:51:16 发布

原创

最新推荐文章于 2024-05-07 20:51:16 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #vb #file #string #path #function

本文介绍了如何使用VB6读写Access数据库中的图片，通过示例代码展示了如何连接数据库、获取临时文件名、读取与写入图片数据，并提供了添加新记录的功能。

1，以人名和相关图片为例说明，数据库为Access，有如下字段：Name char,picture OLE object,FileLength
Number。当为ms sql时，将picture改为lob即可。
2，示例包含control：commom dialog,picture,listbox。
源码如下：
Option Explicit

Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As
String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long,
ByVal lpBuffer As String) As Long
Private Const MAX_PATH = 260

Private m_DBConn As ADODB.Connection

Private Const BLOCK_SIZE = 10000
注释： Return a temporary file name.
Private Function TemporaryFileName() As String
Dim temp_path As String
Dim temp_file As String
Dim length As Long

注释： Get the temporary file path.
temp_path = Space$(MAX_PATH)
length = GetTempPath(MAX_PATH, temp_path)
temp_path = Left