我有一个bzxm的access数据库,数据库中有表chanpin,表中有字段cpnum和cpname。我在delphi的form中使用了三个组件,adoquery、combobox、edit。现在是我已经用combobox调用数据库中的表cpnum的数据作为下拉列表。我现在想实现在下拉列表中选择某个值,edit组件可以显示出在表中对应的cpname。请前辈帮忙,因为刚开始接触,实在是不会了。
解决方案 »
- 请教如何应用dll中的数据结构?
- 怎样将输入的字符串转储到数组里?
- vclsin 对 ActionMainMenuBar制作的菜单为什么没有效果?
- 在Delphi下,如何实现这个功能?
- 再问.delphi7(ADO)+oracle8.1,怎样在局域网中连接数据库
- 如何使 ProgressBar1与MediaPlayer1的进度同步?
- 急求AUTOCAD数据读取,以及AUTOCAD的图形比较
- 放分庆祝论坛复活!
- 如何在一个dbGrid或DbGridEH中显示两个SQL表啊,请帮手,在线等…
- 求delphi6 update2,update3的补丁,谢谢
- 请问:oratable 有没有类似adodataset的updatebatch??
- 关于SQL CE数据库操作的一些问题,请教高人!!!
begin
close;
sql.clear;
sql.add('select * from chanpin where cpnum='+QuotedStr(combobox.text));
open;
end;
adoquery.SQL.Text:='select cpname from bzxm where cpnum='+QuotedStr(combobox.text);
Edit1.Text:=adoquery.Fields[0].AsString;2.在添加combobox时,用AddObject();3.用DBConbobox+DBEdit
1.查询数据表中符合Combox控件上显示的数据
2.再将AdoQuery上的值赋给Edit控件下面的代码是我在电脑上写的,控件名可能跟你有点不一样,你改一下就好,在Combox的OnClick事件里面加入下面的代码:with qry1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from chanpin where cpnum='''+cbb1.Text+'''');
Open;
end;
edt1.Text:=qry1.fieldbyname('cpname').AsString;