------------------iBear(大熊)大哥，再次请进！麻烦您了--------------------

[Mylwf]

现在已经实现了把SQL的结果放入DBComBox中了，可当再次按下BUTTON1时，就会出现一个对话框说，‘FROM子句语法错误！’这是为什么呀？

procedure TMainForm.Button1Click(Sender: TObject);
var
s:string;
i:integer;
begin
s:='select 产品.名称 from 产品';
ADOQ.SQL.Add(s);
Adoq.Open;
i:=Adoq.recordcount;
While i>0 do
begin
s:=adoq.Fields[0].AsString; //（1）
DBComboBox1.Items.Add(s);
Dec(i);
end;
end;

还有（1）处的那句中‘Fields[0].AsString’是什么意思呀？

另小弟正在学做数据库程序，您的QQ一直开着吗？能否留下您的QQ号，将我列为好友呢？希望向您请教一些编程的问题！谢谢！！

QQ：58938442

[kylix2001]

烧了这句：ADOQ.sql.clear;

[票票飞扬]

procedure TMainForm.Button1Click(Sender: TObject);
var
s:string;
i:integer;
begin
s:='select 产品.名称 from 产品';
ADOQ.Close; ///////////////////
ADOQ.SQL.Clear; //////////////////////
ADOQ.SQL.Add(s);
Adoq.Open;
i:=Adoq.recordcount;
While i>0 do
begin
s:=adoq.Fields[0].AsString; //（1）
DBComboBox1.Items.Add(s);
Dec(i);
end;
end;

[kylix2001]

在SQL.Add(s)前加上。

[kylix2001]

‘Fields[0].AsString’转换成string类型。。。

[iBear]

抱歉，我向来不喜欢qq这类的，如果需要 [e-mail]

数据库中可存取各种数据，用asstring来取得string（如果其中放的是string的话）
关于出错是因为，sql属性在使用前应该clear，

否则语句变成'select 产品.名称 from 产品 'select 产品.名称 from 产品'，怎么能正确执行呢？

[sword1028]

让我牛老弟回答你把：显示的时候是 ：
S:=’SELECT Table.自段名 FROM Table’ Table:是表名
还有Fields[0].AsString 代表着第0各自段中光标所指
位置的记录

[Mylwf]

谢谢大家，非常感动！