请教！！数据库查询功能

[kyu00203]

现将数据库中一个字段的符合某些条件的内容动态的加入combobox的Items中，想要使数据库感知组件DBGrid只显示下拉列表中出现的部分，比如说一个产品目录，内容是一些食品和生活用品（包括名称、数量、价格三个字段），而combobox中只是某些食品的名称，想让DBGrid只显示combobox中所列出的食品名称，以及这些名称所对应的其他两个字段，但是combobox的内容不是固定的，当条件改变时，Items的内容就改变了，而DBGrid中的内容也要相应改变，不知道该怎么实现，说的语无伦次。。。希望各位能明白~（只需要查询部分代码即可，不用管Items内容怎么变~）

[yqdragon]

combobox的OnChange事件中写刷新DBGrid代码

[liyubaiandlon]

一、添加combobox控件的OnChange事件
二、在事件中的代码编写(例如你的数据库连接控件是DataSet)：
DataSet1.Actvie := False;
DataSet1.commandText = format('select 字段1，字段2，字段3... from Table where name = ''%s''', [Trim(combobox.Text)]);
DataSet1.Active := True;

三、说明：其他数据库连接对象也是类似，先将其连接断开，然后初始话查询语句，再进行连接查询

[cntigercat]

mark

[lyhoo163]

combobox的OnChange事件中加入带有where S=combobox.text的SQL语句，刷新DBGrid。

[山东蓝鸟贵薪]

数据库控件
连接控件
编写SQL语句
执行SQL语句,得到相关结果

[SQLDebug_Fan]

这个问题是个逻辑题，楼主可以在Query的OnBeforePost事件中加代码来更新TComboBox

[kyu00203]

那要是不考虑items的变化，只是把下拉列表中出现的内容及其相应字段显示出来怎么写呢？

[hswhjq]

procedure TForm1.cbb1Change(Sender: TObject);
var
s: string;
i: Integer;
begin
s := '';
for i := 0 to cbb1.Items.Count - 1 do
begin
if i = cbb1.Items.Count - 1 then
s := s + '''' + cbb1.Items.Strings[i] + ''''
else
s := s + '''' + cbb1.Items.Strings[i] + ''',';
end;
AdoDataSet1.Active := False;
AdoDataSet1.CommandText := 'select * from COE_Cn where CnName in (' + s + ')';
AdoDataSet1.Active := True;
end;

[luquansen]

在改变ComboBox中Items的时候作相应的查询，然后把数据传给DBGrid不就可以了吗

[kyu00203]

查询语句我用了Select * from 数据库名 where 字段名 In ('''+combobox1.items.text+'''); 比如说此时下拉列表中是A.B.C,可是当运行时,查询的不是('A','B','C'),而是纵向排列的A B C...jiong死....求教啊!

[kye_jufei]

首先邏輯要清晰，動態去改變它的items...