返回数据集应该用:
ADOQuery1.Open;请安装ADO的补丁
ADOQuery1.Open;请安装ADO的补丁
解决方案 »
- adoquery分批读取数据
- 如何继承一个active form
- 各位大虾请帮忙:关于FastReport3.0的控件下载和安装
- 请教一个多线程的写法
- 请问如何实现二维数组的动态分配!!!
- 如何按要求关闭IE浏览器?
- 如何监控使在系统不使用10分钟后如果运行了Lotus Notes就把它关闭,并定时接收Lotus Notes邮件?
- 紧急!!!谁能帮我发一个有用的例子过来,我马上给他分!!!
- 一个SQL语句的问题,急死我了,请帮帮忙!!!
- 急 !!问题!!!
- 如何反编译DELPHI及c++ BUILDER所制作的DLL
- 都来看:delphi与SQL Server的UniqueIdentifier类型字段
ADOQuery1.Active := false;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.Add('select TrainNo from Train_Information where TrainNo like ');
ADOQuery1.SQL.Add(''''+'%'+Trim(Edit2.Text)+'%'+'''');
ADOQuery1.ExecSQL;
ADOQuery1.Active := true;
if adoquery1.eof and adoquery1.bof then
begin
adoquery1.recordset.close;
adoquery1.close;
end;
Setup Sn: ski-hd3-c139 92x0-91x0 or 555-555-5555 9ex0-91x0
with ADOQuery1 do
begin
if Active then Close;
SQL.Clear;
sql.Add('select TrainNo from Train_Information where TrainNo like ');
SQL.Add(''''+'%'+Trim(Edit2.Text)+'%'+'''');
Open;
First;
if eof then
..........
Close;end;
with ADOQuery1 do
begin
if Active then Close;
SQL.Clear;
sql.Add('select TrainNo from Train_Information where TrainNo like ');
SQL.Add(''''+'%'+Trim(Edit2.Text)+'%'+'''');
Open;
First;
if eof then Close;
.................
end;
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select TrainNo from Train_Information where TrainNo like ');
SQL.Add(''''+'%'+Trim(Edit2.Text)+'%'+'''');
Open;
if RecordCount=0 then
Close;
end;
这么简单的东东要做的这么复杂干什么呢?