我在追加数据前,想看一下数据是否重复,如果重复则不加,否则追加!
但在追加时不管我输入的记录数据表中有还是没有它都执行到 showmessage('ok!')!;
procedure Twzmc_form.Button4Click(Sender: TObject);
var
sl: integer;
begin
//sl:=0;
with dm.ADOQ2 do
begin
//sql.Clear;
sql.Text:='select count(*) as sl from wzmingcheng where wzbianma='''+DBEdit1.Text+'''';//(变量)录入的记录';
//showmessage(sql.text);
execsql;
end;
if (sl>=1) then
begin
showmessage('当前记录已经存在');
showmessage(inttostr(sl));
//dm.ADOQ2.Cancel;
end
else
begin
showmessage('ok!');
//dm.ADOQ2.Post;
showmessage(inttostr(sl));
end;
end;
谢谢,请各位帮忙!
但在追加时不管我输入的记录数据表中有还是没有它都执行到 showmessage('ok!')!;
procedure Twzmc_form.Button4Click(Sender: TObject);
var
sl: integer;
begin
//sl:=0;
with dm.ADOQ2 do
begin
//sql.Clear;
sql.Text:='select count(*) as sl from wzmingcheng where wzbianma='''+DBEdit1.Text+'''';//(变量)录入的记录';
//showmessage(sql.text);
execsql;
end;
if (sl>=1) then
begin
showmessage('当前记录已经存在');
showmessage(inttostr(sl));
//dm.ADOQ2.Cancel;
end
else
begin
showmessage('ok!');
//dm.ADOQ2.Post;
showmessage(inttostr(sl));
end;
end;
谢谢,请各位帮忙!
解决方案 »
- 请教:数据集的Revert 和Undo的区别?
- 打开方式?
- FastReport中Fanfold 15×11 inch纸张(宽行打印纸)对应的pgsize职是多少???
- ADOQuery如何判斷有重復值輸入?
- 请问怎么获得当前线程的句柄?
- 请教高手:数据库刷新问题。
- 100分关于打印预览的问题,以前看到过财务软件在打印预览的内容可以编辑,修改,增加都可以,不知道什么打印控件或方法能实现!!!
- 对于远程的sql数据库,在delphi中使用Ado是否可以访问?
- 怎样创建一个表?
- 是高手再进入!关于控件的修改(如果想参与,也可以).
- 救命啊,不行了,哪位大哥哥对LISTVIEW熟啊,帮帮兄弟我!!!!
- 申请GAME 图形处理/多媒体版版主!
//showmessage(sql.text);
execsql;==============
在这个后面要赋值的
s1=dm.ADOQ2.fieldbyname('sl').asInteger;
==================
SQL语句中的sl并不会直接进到变量s1中,这是两回事儿
if RecordCount >=1 then
FIELD ‘SL’NOT FOUND。
var
sl: integer;
begin
//sl:=0;
with dm.ADOQ2 do
begin
//sql.Clear;
sql.Text:='select count(*) as sl from wzmingcheng where wzbianma='''+DBEdit1.Text+'''';//(变量)录入的记录';
//showmessage(sql.text);
open; ////////////这儿不能用execsql
end;
s1=fieldbyname('sl').asInteger; //////////注意这里要给s1赋值
if (sl>=1) then
begin
showmessage('当前记录已经存在');
showmessage(inttostr(sl));
//dm.ADOQ2.Cancel;
end
else
begin
showmessage('ok!');
//dm.ADOQ2.Post;
showmessage(inttostr(sl));
end;
end;
sl没有被赋值!!