用select distinct somefield from sometable 就可以选出唯一的字段内容,用循环添进combox好了,没必要输出到文本输出到文本一样用个循环,自己打开一个file,写进去
先得到不重复记录,在ADOUQERY里用以下语句(DISTINCT意思是得到不重复记录): SQL:‘select distinct 字段 from 表名’ 再把ADOQUERY里的值放到一个生成的文本文件。
to: cg1120 我是初学者,能否说的详细点,怎么把adoquery的值放到一个文本文件里
to: snowtiger2000 如何用循环添进combox?因为这里要用到select语句的返回结果,我不知道怎样将这个结果返回给combox,麻烦你最好能给出一个具体的代码,谢谢
var i:integer if (ADOQuery.RecordCount > 0) for i := 0 to ADOQuery.RecordCount do begin ComboBox->Items->Add(ADOQuery.FieldByName("字段").AsString); end至于文件我想你可能要去看一下,也比较简单
利用一个momo控件 把所得值加入到memo控件 然后memo控件直接saveasfile就好了
adoquery.close; adoquery.sql.text := 'select distinct 字段 from 表名'; adoquery.open;for i := 1 to adoquery.recordcount do begin combobox.items.add(adoquery.fieldvalues['字段']); end;
SQL:‘select distinct 字段 from 表名’
再把ADOQUERY里的值放到一个生成的文本文件。
我是初学者,能否说的详细点,怎么把adoquery的值放到一个文本文件里
如何用循环添进combox?因为这里要用到select语句的返回结果,我不知道怎样将这个结果返回给combox,麻烦你最好能给出一个具体的代码,谢谢
i:integer
if (ADOQuery.RecordCount > 0)
for i := 0 to ADOQuery.RecordCount do
begin
ComboBox->Items->Add(ADOQuery.FieldByName("字段").AsString);
end至于文件我想你可能要去看一下,也比较简单
把所得值加入到memo控件
然后memo控件直接saveasfile就好了
adoquery.sql.text := 'select distinct 字段 from 表名';
adoquery.open;for i := 1 to adoquery.recordcount do
begin
combobox.items.add(adoquery.fieldvalues['字段']);
end;