Question

VB Access数据库OLE字段图片读取转存问题

数据库连接完了 对文字字段的读取操作也会 只是对图片的操作不会 目的是想从数据库读取图片 在转存到richtextbox内 下边是部分代码
Private Sub Command42_Click()
Dim a(20) As String
For i = 0 To UBound(a) - 1
x: Randomize
a(i) = Int((rscount - 1 + 1) * Rnd + 1) 'rscount 通用里有定义，在form_load事件取出的数据库记录数到该变量
For j = 1 To i - 1
If a(i) = a(j) Then GoTo x
Next j
Next i '以上为产生指定数量不重复随机数
For i = 0 To UBound(a) - 1
Call OpenConn
SQL = "select * from 第一大题 where 编号=" & a(i) & ""
rs.Open SQL, cn, 1, 1
Text1(i) = "" & rs.Fields("字段1")
Text2(i) = "" & rs.Fields("字段2")

------字段3 是OLE字段在此处如何编写程序------

Call CloseConn
Next
End Sub
小弟初学VB希望各位大虾帮忙 也可以QQ帮忙 154633981 谢谢先啦

Answer 1

我有个建议啊，楼主可以考虑一下，做个文件夹，放VB程序相对路径里面，存储相同格式的图片文件，作为一个图象引擎，后面你要做的事就简单多了，发布你的程序的时候就把VB程序和文件夹一起打包发布：
直接在窗体上拖放一个Image控件。控件要调用图象就这么写：
Image1.pictrue=loadpictrue(App.path+"\文件夹名\"+'"+窗体文本框+"'+".jpg")
窗体文本框直接给他数据源指向ADO,当你加载的时候就出现文字,在图片文件夹里就存储这样的文字作为索引,按钮按下,加载文字,加载以文字为名称的图片,一步到位,上面一条语句搞定就行了,哪有那么麻烦. 代码复杂还没得到好的效果,ACCESS哪有那么大的容量 卡死你,你要是做个游戏也这么加载,没办法动了

追问

恩 谢谢 这样虽然这部分能实现 但是后续问题就费劲了 不过还是谢谢您了

追答

怎么会费劲呢，你用数据库查出来字段的值，显示在窗体上，用窗体的值作为条件去匹配图片的名称，把图片统一处理成一种格式，Image属性让图片取消自适应大小，这是图片加载最基本的方法，用OLE来处理图片实在太慢，而且很容易出错，ACCESS容量也是有限的

追问

我QQ 707142197 想具体找您问下。。。

追答

好，我只有晚上有时间上QQ，其他时间在车间很忙

Answer 2

ole字段相当于bin字段吧？
我记得在sql2000里有bin字段，可以直接存储和读取二进制文件
读取，然后写入文件

追问

SQL不太清楚 要求是用Acccess做的

Answer 3

mm