跪求解决ADOConnection1.GetFieldNames遇到的问题，有截图的，大家帮忙看看啊~~~~

zqdl8 2009-03-20 06:48:04

程序是这样的，
通过COMBOBOX1，选择表名后，通过ADOConnection1.GetFieldNames取得字段信息
然后在付给CHECKLISTBOX1，但是字段显示出来后，持续怎么和表单里面的字段顺序不一样啊？
望那位高手指点一下，在下谢了



procedure TForm1.ComboBox1Change(Sender: TObject);

var

icount:integer;

fieldlist:tstringlist;



begin



   checklistbox1.Items.Clear ;

   try

     fieldlist:=tstringlist.Create ;

     adoconnection1.Connected :=true;

     ADOConnection1.GetFieldNames(ComboBox1.Text,fieldlist);



   for icount:=0 to fieldList.count-1 do

       checklistbox1.Items.Add(fieldlist.Strings [icount]);



   finally

     fieldlist.Free ;

     adoconnection1.Connected :=false;

   end;

end;

...全文

252 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

starluck 2009-03-21

打赏
举报







var

    a : TStringList;





  A := TStringList.Create() ;

  ADOQuery1.SQL.Text := 'select * from Receipt';

  adoquery1.Open;

  a.Sorted := false;

  adoquery1.GetFieldNames(a);

  showMessage(A.Text);