我在access数据表中,一列存入姓名,一列存放图片路径,想通过办输入姓名,来查询相对应的图片,但程序运行时总是出错.请有会的哥哥给解答一下,或者有与这相关的源码也可以,数据库连接是没问题的,运行的时候提醒我找不到图片列,分不够还可以加.
procedure TForm1.Button1Click(Sender: TObject);
var
Content: string;
begin
with ADOQuery1 do
begin
Content:=Edit1.Text;
SQL.Clear;
SQL.Add('select * from 表1 where xinming like :xinming');
Parameters.ParamByName('xinming').value := Content;
image1.Picture.LoadFromFile(ADOQuery1.FieldByName('tupian').AsString);
end;
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
var
Content: string;
begin
with ADOQuery1 do
begin
Content:=Edit1.Text;
SQL.Clear;
SQL.Add('select * from 表1 where xinming like :xinming');
Parameters.ParamByName('xinming').value := Content;
image1.Picture.LoadFromFile(ADOQuery1.FieldByName('tupian').AsString);
end;
end;
end.
解决方案 »
- TRadioButton偶然发现的问题,问题如下
- 广州delphi求职
- 怎么样才能打印输出VirtualTreeview树形控件中的内容??????高分求助!!!!!在线等待!!!!!!
- fsMDIChild子窗體不能關閉,只能最小化,請高手幫忙!!!
- 问一个问题,关于dbchart的,给100分
- 一个奇怪的问题!
- delphi中利用TADOCOMMAND对象如何实现文件的数据库存储
- 我想重载TEDIT类的onChange等消息处理函数,如何做?
- 大连要成为中国第一个软件示范城!
- ShowModa窗体l如何一定要显示在前面
- dbgrid的数据如何导入到另一个dbgrid中。
- 瞧一瞧,看一看,不要错过,小弟跪求一个问题,已经困扰几天了,请各位高手帮忙
var
Content: string;
begin
with ADOQuery1 do
begin
Content:=Edit1.Text;
SQL.Clear;
SQL.Add('select * from 表1 where xinming like :xinming');
Parameters.ParamByName('xinming').value := Content;
open;
image1.Picture.LoadFromFile(ADOQuery1.FieldByName('tupian').AsString);
end;
end;
end.如果还不行,把提示的错误贴出来~~