一、
with datamodule1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select count(*) as lcount from TableInformation1');
sql.Add('where tablenum='''+trim(edit1.text)+'''');
prepared:=true;
execsql;
end; if datamodule1.ADOQuery1.FieldValues['lcount']=0 then
//判断是否有编号为edit1.text的数据记录
begin
....
end;
我在编译时可以运行,但功能不能实现,请问有什么更好的办法!
二、判断数据库中某个编号的数据记录的results字段(char)为'入库'
我先
var
aresrlt:string;
begin
.......
begin
close;
sql.Clear;
sql.Add('select results from TableInformation2 where tablenum='''+trim(edit1.Text)+'''');
prepared:=true;
open;
end;
aresult:=':results';
if aresult='入库' then
.....
end;
请问有什么更好的吗?
with datamodule1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select count(*) as lcount from TableInformation1');
sql.Add('where tablenum='''+trim(edit1.text)+'''');
prepared:=true;
execsql;
end; if datamodule1.ADOQuery1.FieldValues['lcount']=0 then
//判断是否有编号为edit1.text的数据记录
begin
....
end;
我在编译时可以运行,但功能不能实现,请问有什么更好的办法!
二、判断数据库中某个编号的数据记录的results字段(char)为'入库'
我先
var
aresrlt:string;
begin
.......
begin
close;
sql.Clear;
sql.Add('select results from TableInformation2 where tablenum='''+trim(edit1.Text)+'''');
prepared:=true;
open;
end;
aresult:=':results';
if aresult='入库' then
.....
end;
请问有什么更好的吗?
解决方案 »
- intraweb的按钮事件何时产生页面刷新,而使数据连接丢失,需要重新加载数据???
- MouseMove事件函数中的Sender
- 求教:关于SHChangeNotifyRegister的问题!
- 如何通过TServersocket传递多个参数?
- 求解月薪4000的含义
- 请教一个菜鸟问题 :(
- 关于Socket编程的几个问题,期待高手的降临。
- Windows关闭时怎样使程序自动关闭?
- webSnap大讨论
- TDataSetScrollProc=procedure(Dataset:TDataSet) of object;什么意思,使用有什么好处?
- Ignore Special CoClass Flags When Importing 在Delphi 5.0里面哪里设置啊?
- 资源文件中对话框整合技术求解
begin
close;
sql.Clear;
sql.Add('select count(*) as lcount from TableInformation1');
sql.Add('where tablenum='''+trim(edit1.text)+'''');
prepared:=true;
execsql;
end;if lcount>1 then
showmessage( '重复');
select * from Tablename where rownum<=1 如果是SQL SERVER 就是
select top 1 * from TableName
一、
with datamodule1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select count(*) as lcount from TableInformation1');
sql.Add('where tablenum='''+trim(edit1.text)+'''');
prepared:=true;
execsql;//--->>Open
end;