求救，急等，谢谢先！
我的数据库是SQL Server2000,在KC库里有KC0和PYDM两张表，KC0中有KCBM,KCMC,KCLB等字段，PYDM表中有BM,MC,PYDM（汉字拼音字母）,LB四个字段，现在我要把这两张表里编码相同、按给定的拼音字母查询出编号和名称，其中KCBM和BM都是编号，KCBM是BM中的一部分，KCMC和MC是名称，KCMC是MC的一部分，我在窗体上放了一个edit1,listbox1,我想通过edit1的OnChange事件来激活查询，将查询结果的编号和名称全部放在ListBox1中，我用的是下面一段代码：
procedure TfrmInStore.Edit1Change(Sender: TObject);
var
i:integer;
hzChar :string;
PYStr:string;
hzStr:array[0..200] of char;
s1,s2,:string;
begin
S2:='';
s1:=Trim(edit1.text);
strpcopy(HzStr,pchar(s1));
for i:=0 to Length(s1)-1 do
begin
hzChar:=hzStr[2*i]+hzStr[2*i+1];
s2:=s2+hzChar;
end;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select KC0.KCBM,KC0.KCMC,PYDM.PYDM from KC0,PYDM');
Query1.SQL.Add('where PYDM.PYDM like :X and KC0.KCBM=PYDM.BM');
Query1.Params[0].Value:='s2%';
Query1.Prepare;
Query1.ExecSQL;
ListBox1.Items.Clear;
while not Query1.Eof do
begin
ListBox1.Items.Add(Query1.fieldbyname('KC0.KCBM').asstring
+' '+Query1.fieldbyname('KC0.KCMC').asstring);
query1.Next;
end;
Query1.UnPrepare;
Query1.Close;
end；
end.
编译通过，运行不报错，结果出不来，请哪位高手帮忙看看错在哪 里了，急等，毕设中碰到的问题，想了两天没想出来什么问题，在查询分析器里用那条查询语句都查出结果了的，急呀！
问题点数：50、回复次数：1Top
1 楼g961681（技术庸人(情商太低)）回复于 2005-04-20 07:43:55 得分 50
Query1.ExecSQL;
改为Query1.Open试试看！Top
