易语言SQL数据库读写图片功能

通用对话框1.类型 ＝ 0
通用对话框1.过滤器 ＝ “图形图像|*.bmp;*.jpg;*.gif”
.如果真 (通用对话框1.打开 ())
照片 ＝ 读入文件 (通用对话框1.文件名)
文件名 ＝ 找文件名 (通用对话框1.文件名)
.如果 (外部数据库1.执行 (“insert into a (name,zp) values ('” ＋ 文件名 ＋ “',?)”, 照片))
信息框 (“上传成功”, 0, )
读取数据 ()
图片框1.图片 ＝ 照片
.否则
信息框 (“上传失败”, 0, )

id ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
句柄 ＝ 外部数据库1.查询 (“select zp from a where id=” ＋ id)
外部数据库1.到首记录 (句柄)
照片 ＝ 外部数据库1.读 (句柄, “zp”)
外部数据库1.关闭记录集 (句柄)
图片框1.图片 ＝ 照片