我的开发环境是:delphi6+access2000,其中access的一个数据表当中某个字段有重复的内容,我现在想要做的是提取该字段的不重复的内容输出到一个文本文件中,以便作为combox控件中的数据列表项。不知道怎样才能利用sql语句将access数据库中的某个字段的内容输出到一个文本文件当中?

解决方案 »

  1.   

    用select distinct somefield from sometable 就可以选出唯一的字段内容,用循环添进combox好了,没必要输出到文本输出到文本一样用个循环,自己打开一个file,写进去
      

  2.   

    先得到不重复记录,在ADOUQERY里用以下语句(DISTINCT意思是得到不重复记录):
    SQL:‘select distinct 字段 from 表名’
    再把ADOQUERY里的值放到一个生成的文本文件。
      

  3.   

    to: cg1120
    我是初学者,能否说的详细点,怎么把adoquery的值放到一个文本文件里
      

  4.   

    to:  snowtiger2000
    如何用循环添进combox?因为这里要用到select语句的返回结果,我不知道怎样将这个结果返回给combox,麻烦你最好能给出一个具体的代码,谢谢
      

  5.   

    var 
      i:integer
    if (ADOQuery.RecordCount > 0)
    for i := 0 to ADOQuery.RecordCount do
    begin
        ComboBox->Items->Add(ADOQuery.FieldByName("字段").AsString);
    end至于文件我想你可能要去看一下,也比较简单
      

  6.   

    利用一个momo控件
    把所得值加入到memo控件
    然后memo控件直接saveasfile就好了
      

  7.   

    adoquery.close;
    adoquery.sql.text := 'select distinct 字段 from 表名';
    adoquery.open;for i := 1 to adoquery.recordcount do
    begin
      combobox.items.add(adoquery.fieldvalues['字段']); 
    end;