1.
with AdoQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from beijing_table where times='''+Edit1.Text+'''');
Open;
if recordcount <>0 then
showmessage('表中有此记录')
else
showmessage('没有此记录!!');
end;
2.
var
ads2:TAdoDataSet;
dsc2:TDataSource;
begin
ads2:=TAdoDataSet.Create(self);
dsc2:=TDataSource.Create(self);
ads2.Prepared:=true;
ads2.Active:=false;
ads2.Connection:=ADOConnection1;
ads2.CommandText:='select * from beijing_table where times='''+Edit1.Text+'''';
ads2.Active:=true;
ads2.Open;
if ads2.RecordCount<>0 then
showmessage('找到了');
else
showmessage('没找到啦');
end;
请大家来比较一下吧,从各个方面..谢喽!!
with AdoQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from beijing_table where times='''+Edit1.Text+'''');
Open;
if recordcount <>0 then
showmessage('表中有此记录')
else
showmessage('没有此记录!!');
end;
2.
var
ads2:TAdoDataSet;
dsc2:TDataSource;
begin
ads2:=TAdoDataSet.Create(self);
dsc2:=TDataSource.Create(self);
ads2.Prepared:=true;
ads2.Active:=false;
ads2.Connection:=ADOConnection1;
ads2.CommandText:='select * from beijing_table where times='''+Edit1.Text+'''';
ads2.Active:=true;
ads2.Open;
if ads2.RecordCount<>0 then
showmessage('找到了');
else
showmessage('没找到啦');
end;
请大家来比较一下吧,从各个方面..谢喽!!
解决方案 »
- [加急]ReportBuild 10.2+TExtraDevices 报表怎么转 Excel ?
- ReadProcessMemory读取进程数组的问题
- 为什么我用了Pascal的文本文件的操作函之后,程序第一次可以启动,第二次启动时会出现错误?
- 请教如何在用Delphi开发的应用程序中嵌入fastreport文件?
- 关于QRREPORT的预览问题
- 一个很让我深思的问题,请帮忙?
- 哪位能介绍一下,让俺得到一个gmail邮箱?300分相谢。
- 关于涉及数据库程序的打包,求教
- 请问FileWrite函数的具体用途?它可以指定文件的大小吗?
- 简单的问题,看帮助看不懂
- 如何用Delphi启/禁用服务程序,主意不是启动,顺便问下SPI是什么,听说是网络,哪里又有资料那
- [散分]庆祝以后专心灌水
RecordCount<>0 不一定對的,有时有-1,如果把
ads2.Last; ads2.First;在取RecordCount,就不会有-1了
出现-1的条件是含有IMAGE字段
SQL.Add('select count(*) from beijing_table where times='''+Edit1.Text+'''');
如果SQL.Fields[0].asinteger=0就是没记录