插入新数据insert 问题
(用一条sql语句完成)在同一张表中插入一条数据,当表中已存在相同记录时放弃添加,否着插入新数据
谢谢各位!!
(用一条sql语句完成)在同一张表中插入一条数据,当表中已存在相同记录时放弃添加,否着插入新数据
谢谢各位!!
解决方案 »
- 谁能把下面这个函数写成C语言
- 控制台程序返回结果
- ado连接Ora9的数据读写的循环报错!困惑中!!
- 制作安装程序的问题!
- 怎么能把2万条记录快速加到ListView中显示[在线等待中...]
- Indy9在delphi6上的安装问题!!!!!
- 如何改变控件的先后位置?
- 在DBGRID控件中,能否在一列的单位格中放入combobox控件,以便添加的数据从Combobox中选取?
- 求助:有没有好一点的FTP客户端控件呢?delphi自己的太难用拉!!
- 如何执行外部程序?这个程序是一个DOS形式的程序,它需要二个参数,DOS下的执行如: ExeFile InFile OutFile
- 哪里清华大学的<数字图像处理第二版>的免费下载呀?
- 求websnap文件上传技术的资料啊,论坛我用websnap做好了还差相册了。。。
begin
close;
sql.Clear;
sql.Add('select * from rm_state where state_name=:state_name');
Parameters.ParamByName('state_name').Value:=Trim(statenameEdit.Text);
Prepared:=true;
Open;
if RecordCount>0 then
begin
application.MessageBox(Pchar('<客房状态描述: '+stateNameEdit.text+' >已存在,请选择一个其它的名称!'),'错误',mb_iconinformation+mb_ok);
statenameEdit.Text:='';
statenameEdit.SetFocus;
abort;
end;
end ;
try
with clientdm.ADOQuery do
begin
close;
sql.Clear;
sql.Add('insert into rm_state values(:state_id,:state_name)');
Parameters.ParamByName('state_id').Value:=Trim(stateidEdit.Text);
Parameters.ParamByName('state_name').Value:=Trim(statenameEdit.Text);
Prepared:=true;
ExecSQL;
end
except
application.MessageBox('数据添加出错!','警告',mb_iconerror+mb_ok);
clientdm.ADOQuery.CancelUpdates;
abort;
end;
==================================
看是否对你有帮助努力学习中