Question

delphi7.0 combobox控件值的提取

数据库有表A，含有一月，二月至十二月为列名的列值。combobox1的下拉菜单也是为一月，二月至十二月。我使用combobox1控件，当选择不同的月份时候，form上能打印出表A相应列名的列值。编写了如下代码：ado.close;//ado为adoquery1
ado.sql.clear;
ado.sql.add('select :data from A ');
ado.Parameters.ParamByName('data').Value:=combobox1.Text; / /combobox1.Items[combobox1.ItemIndex]也不行。
ado.open;编译后，运行。竟然是生成新的列名为：column1，列值是combobox1控件选择的月份。if combobox1.Text='一月' then
begin
ado.close;
ado.sql.clear;
ado.sql.add('select 一月 from A');
ado.open;用上面的代码可行，但是得有十多个else if。工作量很大，大家有什么好的解决办法吗····

Answer 1

ado.close;
ado.sql.clear;
ado.sql.add('select '+ combobox1.Text + ' from A '); ado.open;