［急，在线等］delphi sql2000 图片
1、路径 imgPath:string;//比如已经得到了图片路径
2、SQL2000 数据库 表名 ttbtestimg 字段名 img 字段类型image
3、请给一个完整代码，将此路径下的图片，存入数据库，相应表的相应字段中
4、请给出一段完整代码，将此表中的图片显示在图片控件上
4、请给出注释
5、程序一通，立即给分
这个有很多人问过,给你一个参考吧
http://topic.csdn.net/t/20051215/18/4461795.html
.....程序还是要自己写的......
procedure TForm1.Button1Click(Sender: TObject);
var
picstream:tadoblobstream;
bmppic:tbitmap;
jpgpic:tjpegimage;
bmpstream:TMemoryStream;
OpenPicDialog:TOpenPictureDialog;
begin
try
OpenPicDialog:=TOpenPictureDialog.Create(nil);
OpenPicDialog.Filter:='All *.jpg;|*.jpg;)';
with AdoQuery1 do
begin
close;
sql.text := 'Insert into ttbtestimg(id) values(1)';
ExecSql;
SQL.Text := 'select id,img from ttbtestimg with(nolock) where id=1';
Open;
Edit;
if OpenPicDialog.Execute then
begin
jpgpic:=tjpegimage.Create;
bmppic:
相关问答：
select convert(varchar(50),cast(convert(numeric(18,2),1275674000000/100000000)as real))+'亿'
select cast(convert(numeric(18,2),1275674000000/100000000)as real)
为什么上一个用varchar转换后就只保留了� ......
小弟正准备自己提前学习数据库，但是现在有个问题，不知道该选择什么版本的SQL
学校以后的书好像讲SQL用的是SQL 2000，但是我的系统是Windows 7，貌似不能装，也不想换回XP（07年就不用XP啦），所以在想，能� ......
SELECT a.tguildname ,SUM(a.ct) + if (SUM(b.ct) IS NULL ,0,SUM(b.ct)) from (
SELECT tg.tguildname,c.cid, (
cf.fbb + cf.fgjbb + cf.fjybb + cf.fqb + cf.fgjqb + cf.fjyqb + cf.fqib + cf. ......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
