|
|
导航: |
论坛 -> 数据库专区
斑竹:liumazi,waterstone |
|
作者: |
nant (nant) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/7/29 11:56:20 |
标题: |
向SQLSERVER2000存放图片的代码,请问错在哪里? |
浏览:1377 |
|
加入我的收藏 |
楼主: |
向SQLSERVER2000存放图片的代码,请问错在哪里?
以下代码是运行通过的. procedure TForm1.Button1Click(Sender: TObject); var myfilestream:tfilestream; myblob:tblobfield; picturepath:string;
begin picturepath:='c:\03.bmp'; adoquery1.append; myfilestream:=tfilestream.Create(picturepath,fmopenread); myblob:=tblobfield(adoquery1.FieldByName('pic')); myblob.LoadFromStream(myfilestream); myfilestream.Free; adoquery1.Post; end;
end.
以下代码运行无法通过.请问错在哪里?
procedure TForm1.Button1Click(Sender: TObject); var myfilestream:tfilestream; myblob:tblobfield; picturepath:string; begin picturepath:='c:\03.bmp'; myfilestream:=tfilestream.Create(picturepath,fmopenread); ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('insert into tpic (pic)'); ADOQuery1.SQL.Add('values(:Q1)'); ADOQuery1.Parameters.ParamByName('Q1').Value:=myfilestream; ADOQuery1.ExecSQL;
end;
end.
提示的错误如下:
[Error]Unit1.pas[51]:Incompatible types: 'Varant' and 'TFileStream' 错误指向的就是以下这一行. ADOQuery1.Parameters.ParamByName('Q1').Value:=myfilestream;
----------------------------------------------
- |
作者: |
|
2004/7/29 12:12:44 |
1楼: |
TFileStream当然不可以赋给Varant类型了,它是用来操作文件的,是二进制流.
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
|
|