登录注册
☦ 上海交通大学论坛 > 数据库 > 浏览当前帖子 手机版 关闭左侧栏
Reimage字段赋值请教
【返回本版】  【发表帖子】  【回复帖子】 浏览量  5736      回帖数 0
qiaw    等级  ☆

楼主 发表于  2011/12/10 10:08:12    编 辑   



> ==> Chemon_He(whale's road)                  说道 
如果你用的是delphi的话 
这是一个例子 
procedure TF_text.rkClick(SenderTObject); 
var i:integer; 
    ls_ext,ls_file:string; 
    lbmp_1:Tpicture; 
begin 
  if listbox1.items.count=0 then 
  begin 
    F_msg1.display('请先选择对应的文本图片'); 
    exit; 
  end; 
  lbmp_1:=tpicture.create; 
  for i:=1 to listbox1.items.count do 
  begin 
    with table1 do 
    begin 
      ls_file:=listbox1.items[i-1]; 
      ls_ext:=extractfileext(ls_file); 
      open; 
      insert; 
      fieldbyname('zwnbdm').asinteger:=li_zwnbdm; 
      (fieldbyname('nr') as Tblobfield).loadfromfile(listbox1.items[i-1]); 
      fieldbyname('lx').asstring:=ls_ext; 
      try 
        post; 
      except 
        showmessage('内容文件'+listbox1.items[i-1]+'入库失败,原因不详'); 
      end; 
      close; 
    end; 
  end; 
  query1.close; 
  query1.SQL.clear; 
  query1.sql.add('update BZT_BZ set zwnbdm='+inttostr(li_zwnbdm)); 
  query1.sql.add(' where qybzdh='''+ls_qybzdh+''''); 
  query1.execsql; 
  if li_old_zwnbdm<>0 then 
  begin 
    query1.close; 
    query1.sql.clear; 
    query1.sql.add('delete from BZT_WB where 
zwnbdm='+inttostr(li_old_zwnbdm)); 
    query1.execsql; 
    query1.close; 
  end; 
  F_msg1.display('指定的标准正文已经存入数据库中。'); 
  lbmp_1.free; 
  close; 
  f_main.show; 
end; 

> 本人使用sql7.0数据库编程,欲使用image属性字段,  
> 请教如何在创建表时使一幅图象赋值到表中？  
> 望大虾不吝赐教.  
  
1
☺ 表情
所有内容均为会员自愿发表,并不代表本站立场.
论坛帮助 会员认证删帖申请 联系我们