请高手帮忙看看这段代码。
我这个连的是Oracle数据库,连接肯定没有问题,也是显示结果,但是关闭窗口时总不能释放程序(就是必须点 Program Reset才能结束。)我弄了半天就是不知道那段出错了,还是请前辈指导一下。 ADOQuery1.Close;
ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('Select count("SYSTEM"."CX"."BH" ) from "SYSTEM"."CX" ');
ADOQuery1.Sql.Add('where ("SYSTEM"."CX"."BH" like :y0) ');
ADOQuery1.Parameters.ParamByName('y0').Value:=copy(rqbh,1,4)+'%';
Try
ADOQuery1.Open;
except
showmessage('数据库联接不上!');
application.Terminate
End;
if ADOQuery1.RecordCount<>0 then
ShowMessage('Yes!')
else
ShowMessage('No');
我这个连的是Oracle数据库,连接肯定没有问题,也是显示结果,但是关闭窗口时总不能释放程序(就是必须点 Program Reset才能结束。)我弄了半天就是不知道那段出错了,还是请前辈指导一下。 ADOQuery1.Close;
ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('Select count("SYSTEM"."CX"."BH" ) from "SYSTEM"."CX" ');
ADOQuery1.Sql.Add('where ("SYSTEM"."CX"."BH" like :y0) ');
ADOQuery1.Parameters.ParamByName('y0').Value:=copy(rqbh,1,4)+'%';
Try
ADOQuery1.Open;
except
showmessage('数据库联接不上!');
application.Terminate
End;
if ADOQuery1.RecordCount<>0 then
ShowMessage('Yes!')
else
ShowMessage('No');
ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('select * from table_name')
Try
ADOQuery1.Open;
except
showmessage('数据库联接不上!');
application.Terminate
End;
if ADOQuery1.RecordCount <>0 then
ShowMessage('Yes!')
else
ShowMessage('No');