如何在LISTBOX中显示SQL表内一个字段'MC'

Question

procedure TForm1.ListBox1Click(Sender: TObject);
 BEGIN
ADOQuery1.close;
ADOQuery1.SQL.Text:= 'Select   *   From   TBLTISHI WHERE ST1=1 ';
ADOQuery1.Open;
While   not   ADOQuery1.Eof   do
begin
 ListBox1.Items.Add(ADOQuery1.FieldByName( 'MC ').AsString);
 ADOQuery1.Next;
end;
END;不幸啊.有报错 错在那里不知道啊 报错: ADOQUERY1:FIELD 'MC' NOT FOUND

Answer 1

你的 TBLTISHI 里面 没有 'MC'这个字段~

Answer 2

不对,我想要的结果是 LISTBOX 显示表想对应的字段比如'MC' 

Answer 3

var
  i:Integer;
begin
  for i := ADOQuery1.FieldCount - 1 do
  begin
    ShowMessage(ADOQuery1.Fields[i].FieldName);
  end;
end;

Answer 4

这还不具体啊  ADOQuery1.Fields[i].FieldName  就表示你的字段    

Answer 5

for i := ADOQuery1.FieldCount - 1 do
 报错 'TO' expected but 'DO' found我才学一个礼拜 你们认真点好不好啊 我都急死拉 快帮助我啊

Answer 6

for 语法是:for ... to  do
for i := AdoQuery1.fieldCOunt -1 to 0 do 
begin
end;

Answer 7

注意語法：for i:=ado1.fieldCOunt -1 to 0 do 
begin
end;

Answer 8

怪我丢掉了一点东西，不好意思，改正如下，就是for循环var
  i:Integer;
begin
  for i := 0 to ADOQuery1.FieldCount - 1 do
  begin
    ShowMessage(ADOQuery1.Fields[i].FieldName);
  end;
end;