Question

Delphi中使用ADOQuery遇到的问题—请教高手！

程式中用ADODataSet查询并将查处的数据插入到CheckListBox中就没有问题，可是我想用ADOQuery来查询添加进去，在添加的时候没问题，但是到后面程式就自己结束了，请问什么问题。。。。
原代码：
begin
self.dt2Vendor.Clear;
with dm.DM_mtms.ADODataSet1 do
begin
close;
dm.DM_mtms.ADODataSet1.CommandText:='select distinct ima54 from ima_file where ima54<>''''';
dm.DM_mtms.ADODataSet1.Open;
while not dm.DM_mtms.ADODataSet1.Eof do
begin
self.dt2Vendor.Items.Add(trim(dm.DM_mtms.ADODataSet1.fieldbyname('ima54').AsString));
dm.DM_mtms.ADODataSet1.Next;
end;
end;
end;

改后：
begin
self.dt2Vendor.Clear;
close;
g_sql:='select distinct ima54 from ima_file where ima54<>''''';
if not opensql(self.ADOQ_test,g_sql,'S') then
showmessage('查询异常);
while not self.ADOQ_test.Eof do
begin
self.dt2Vendor.Items.Add(trim(self.ADOQ_test.fieldbyname('ima54').AsString));
self.ADOQ_test.Next;
end;
end;

Answer 1

把代码
if not opensql(self.ADOQ_test,g_sql,'S') then
showmessage('查询异常);
替换成
try
ADOQ_test.Close;
ADOQ_test.SQL.Clear;
ADOQ_test.SQL.Add(g_sql);
ADOQ_test.Open;
except
showmessage('查询异常);
end;

还有
self.dt2Vendor.Clear;
后面的Close;是哪个对象的Close;啊，如过不指定哪个对象，你的form不就关掉了吗？