delphi 关于SQl判断语法 ( 积分: 0 )

procedure&nbsp;&nbsp;TForm1.Button1Click(Sender:TObject);&nbsp;&nbsp;&nbsp;<br>var&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;i:integer;&nbsp;&nbsp;&nbsp;<br>begin&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;&nbsp;i:=0&nbsp;&nbsp;to&nbsp;&nbsp;&nbsp;listbox2.Count-1&nbsp;&nbsp;&nbsp;do&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;listbox2.Selected&nbsp;&nbsp;&nbsp;then&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adoquery2.SQL.Text:='select&nbsp;guanj&nbsp;&nbsp;from&nbsp;guanjz&nbsp;where&nbsp;ganj=:listbox2.items';&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adoquery2.Open;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;while&nbsp;&nbsp;not&nbsp;&nbsp;adoquery2.eof&nbsp;&nbsp;&nbsp;do&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;LB3.Items.Add(adoquery2.FieldValues['guanj']);&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adoquery2.Next;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;&nbsp;&nbsp;&nbsp;<br>end;&nbsp;&nbsp;&nbsp;<br>请问我这样写什么地方错了呢?

是我写的不够清楚么,为什么没有人回呢?<br>QQ&nbsp;11708620

（1）先确定你的字段名和表名正确<br>（2）下面代码中的字段名，表名，控件名需要你自己一一对应<br>procedure&nbsp;TForm1.Button1Click(Sender:TObject);&nbsp;&nbsp;&nbsp;<br>var&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;i:integer;&nbsp;&nbsp;&nbsp;<br>begin&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;i:=0&nbsp;to&nbsp;listbox2.Count-1&nbsp;do&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;listbox2.Selected&nbsp;then&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adoquery2.close<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adoquery2.SQL.clear;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adoquery2.SQL.add('select&nbsp;field1&nbsp;from&nbsp;table1&nbsp;where&nbsp;field2='&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;+&nbsp;''''&nbsp;+&nbsp;listbox1.Items.Strings&nbsp;+&nbsp;'''');&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adoquery2.Open;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;while&nbsp;not&nbsp;adoquery2.eof&nbsp;do&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;LB3.Items.Add(adoquery2.FieldByName('field1').asString);&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adoquery2.Next;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;end;<br>end;

不要写带参数的sql语句<br><br><br>会莫名的有问题

你这样把对象名写到脚本里当然是不对了<br>相当于里面有一个名为“listbox2.items”的变量<br>而且思路也不对，listbox2.items是一个数组对象，不是单个基础值

接受答案了.