易语言存取数据库二进制格式

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

' 用如下语句在test中建立一张表
' CREATE TABLE [T_PIC] (
' [id] [int] IDENTITY (1, 1) NOT NULL ,
' [pic] [image] NULL
' ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]

.如果真 (外部数据库1.打开SQL数据库 (“SQLSERVER1”, “sa”, “1”, “test”, 假, ))
    信息框 (“连接成功”, 0, )

.如果真结束

.子程序 _存图片按钮_被单击
.局部变量 文件, 整数型
.局部变量 sqlstr, 文本型
.局部变量 二进制内容, 字节集

文件 ＝ 打开文件 (“1.bmp”, , )
.如果 (文件 ≠ 0 且 文件 ≠ -1)
    二进制内容 ＝ 读入字节集 (文件, 取文件长度 (文件))

.否则
    信息框 (“打开文件错误？”, 0, )
    关闭文件 (文件)
    返回 ()
.如果结束
sqlstr ＝ “insert into T_PIC (pic) values (?)”
.如果 (外部数据库1.执行 (sqlstr, 二进制内容))
    信息框 (“写数据库成功”, 0, )
.否则
    信息框 (“写数据库失败”, 0, )
.如果结束
关闭文件 (文件)

.子程序 _显示按钮_被单击
.局部变量 记录集句柄, 整数型
.局部变量 图片, 字节集

记录集句柄 ＝ 外部数据库1.查询 (“select * from T_PIC”)
.如果真 (记录集句柄 ≠ 0)
    图片 ＝ 到字节集 (外部数据库1.读 (记录集句柄, “pic”))
    图片框1.图片 ＝ 图片
.如果真结束