怎么给IMAGE类型的字段付值?一定给分

在数据库中的字段有IMAGE类型,但我该怎么给该字段付值,该字段的大小又是怎么定的?请各位高手明示。如果可以,希望再告诉我在DELPHI中怎么用该字段。
---------------------------------------------------------------

用流的方式读出和写入。

你是不是走错了门了,这里是pb版?
---------------------------------------------------------------

用stream。
---------------------------------------------------------------

你是从什么地方写入。用什么写入。

下面我把我做的一个ASP程序写出来。希望对你有帮助

 1dim rs   
 2dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata   
 3  
 4formsize=request.totalbytes   
 5formdata=request.binaryread(formsize)   
 6bncrlf=chrB(13) & chrB(10)   
 7divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)   
 8datastart=instrb(formdata,bncrlf & bncrlf)+4   
 9dataend=instrb(datastart+1,formdata,divider)-datastart   
10mydata=midb(formdata,datastart,dataend)   
11  
 1   
 2  
 3Set rs = Server.CreateObject("ADODB.Recordset")   
 4sql="select *from pic where id="&session("id")   
 5rs.open sql ,conn,3,3   
 6if rs.eof then   
 7set rs=nothing   
 8Set rs = Server.CreateObject("ADODB.Recordset")   
 9rs.Open "pic",conn,3,2   
10rs.addnew   
11rs("id")=session("id")   
12rs("big").appendchunk mydata   
13rs("date")=date   
14rs.update   
15set rs=nothing   
16else   
17rs("big").appendchunk mydata   
18rs("date")=date   
19rs.update   
20end if   
21Response.Write "图片上传成功,显示如下。

<a href="default.asp">返回请按此</a>

1"   

---------------------------------------------------------------

前两天看一位老兄贴得,挺好使(vb的代码).如下

Dim mstream As ADODB.Stream

'写入
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile 装入的图片文件名
rs.Fields("字段名").Value = mstream.Read
rs.Update

'读出
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("字段名").Value
mstream.SaveToFile "c:\publogo.gif", adSaveCreateOverWrite
---------------------------------------------------------------

var Sv:OleVariant;

保存数据到变量Sv中

Adoquery1.Edit ;
AdoQuery1.FieldByName('mFile').SetData(@Sv);
AdoQuery1.Post;

Published At
Categories with 数据库类
Tagged with
comments powered by Disqus