在数据库中的字段有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;