说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

深夜了,在线等待!!!很急!!!!!!!!

编辑:说三道四文库 发布时间:2018-01-24 03:45
HTML文档下载 WORD文档下载 PDF文档下载
procedure TForm5.Button1Click(Sender: TObject);
begin
if dblookupcombobox1.Text='' then
begin
 showmessage('请输入标识!!!');
 Exit;
end;
 id:=Table1.Lookup('identifier',dblookupcombobox1.Text,'identifier');
 if edit2.Text<>edit3.Text then
 begin
  showmessage('两个密码不相同');
  exit;
 end
 else
 begin
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('update operatordoc set password='+edit2.Text+'where identifier='+id+'');
  query1.ExecSQL;
  query1.Open;;
  showmessage('密码修改成功!');
  edit2.Text:='';
  edit3.Text:='';
 end;
 end;
问题都没写啊,楼主
hehe,就是啊,什么问题啊?
大概楼主急了忘写问题吧:)
这么晚还有人和偶抢分,怒~~~
偶先猜一个错误,keke

password='+edit2.Text  //如果password是字符串类型的话
呵呵,要写成
password='+QuotedStr(edit2.Text)
对不起,真对不起,老提示:projct project1.exe raised exception class EDBEngineError with message'Invalid field name ORA-00904:无效列名
password是字符串类型,则条件要加引号
where前面好像少了一个空格
你用的是Oracle,什么版本?我记得在Oracle7总Password是保留字,不过在8和9种好像不是了。
不过你的问题陨石的答案的可能性大些。
我用的是8.05班的,他的我试过了怎么还是行不用?
query1.SQL.Add('update operatordoc set password='+edit2.Text+'where identifier='+id+'');
改成
query1.SQL.Add('update operatordoc set password='''+edit2.Text+''' where identifier='''+id+''' ');
这个看看
还是不可以呀!
很急!高手请留步!
如果tzf_1982(冥界) 说的还不对,你只能检察你字段名有没有错了
不会吧!
我等了整整一天!
你的password和identifier字段的属性是什么?是char的属性吗?
在语句里多加几个空格呀,我曾经就是这样的问题。query1.Open;;两个分号,是你写错的吗?
用showmessage 把那个SQL语句输出来看是不是正确的,可以在数据库中执行一下。错在那里就很明显了。
'update operatordoc set password='+edit2.Text+'where identifier='+id+''
你试试将password字段名改成其他的如pwd,
另外如果pwd是字符,则语句应改写为
'update operatordoc set password= '''+edit2.Text+''' where identifier='''+id+'''

不过最好采用参数法
sql:='update operatordoc set pwd=:pwd where identifier=:id'
query1.Close;
query1.UnPrepare;
query1.SQL.Clear;
query1.SQL.Add(sql);
query1.ParamByName('pwd').AsString:=Edit1.Text;
query1.ParamByName('id').AsString:=Edit2.Text;
query1.Prepare;
query1.ExecSQL;


update 语句参见前面回答

//  query1.Open;; 这句删除,update语句不需要open。
如果password是char,identifier是int,试试这句SQL
  query1.SQL.Add('update operatordoc set password='''+edit2.Text+'''where identifier='+id+');
我已经把password改为pwd了,但是还是不行!
不知道为什么,很急!
begin
 showmessage('请输入标识!!!');
 Exit;
end;
 id:=Table1.Lookup('identifier',dblookupcombobox1.Text,'identifier');
 if edit2.Text<>edit3.Text then
 begin
  showmessage('两个密码不相同');
  exit;
 end
 else
 begin
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('update operatordoc set pwd='+edit2.Text+' where   identifier='''+id+''' ');
  query1.ExecSQL;
  query1.Open; 
showmessage('密码修改成功!');
edit2.Text:='';
edit3.Text:=''; 
 end;
 end;
我改成这样之后,执行程序,居然一直出现sql执行(沙漏)标志,没有结果!
你能不能试试参数法查询啊,
这可是标准用法啊,能避免
很多麻烦
procedure TForm5.Button1Click(Sender: TObject);
begin
if dblookupcombobox1.Text='' then
begin
 showmessage('请输入标识!!!');
 Exit;
end;
 id:=Table1.Lookup('identifier',dblookupcombobox1.Text,'identifier');
 if edit2.Text<>edit3.Text then
 begin
  showmessage('两个密码不相同');
  exit;
 end
 else
 begin
  query1.Close;
  query1.SQL.Clear;
  偶觉得应改这里
  query1.SQL.Add('update operatordoc set password='''+edit2.Text+''''+' where identifier='''+id+'''');
  query1.ExecSQL;
  query1.Open;;
  showmessage('密码修改成功!');
  edit2.Text:='';
  edit3.Text:='';
 end;
 end;
在字符串内的单引号用两个单引号表示,另外where前要有空格否则会合前边的内容连到一起。
query1.ExecSQL;
  query1.Open; 
用了ExecSQL就不能open,用open就出错
VB用类来编写数据库程序 优化OLE的调用频率-VB资料 语言选择引起的查询错误 -VB资料 远程数据库的访问-VB资料 运用ADO进行数据库表数据互导 -VB资料 手机,送手机,哪位解决了送三星手机一部,急急急急急。。。 如何从客户端往中间层DCOM传递TMemoryStream参数? 有点难度的问题,后台定时访问一个表!! 关于易趣和淘宝网的拍卖流程,系统如何能自动的在拍卖结束时自动给拍得商品的买家发邮件或发站内短信告知! 类型不匹配: 'Cint' 一个虚拟主机关于FTP的问题 ASP.NET中调用Crystal report(C#),如何实现printtoprinter?急,代码详见内容 当得当得当当当。。。怎么用T-SQL语句调用dts的包 怎样能使我的网页被搜索引擎找到???急!!!在线等待 谁有2008年浙江省义乌市中考数学试卷16题详细解 宇宙空间的外面是什么 2011义乌中考数学23题△APA1相似△BPB1 2011义乌中考数学23题第二小题△APA1相似△ 电机名牌上的数据都代表什么意思 APEC全称是什么 成员国有哪些 APEC的中文全称是什么啊?APEC的全称是什么啊 英语中只要是th,都要咬舌吗?有没有例外?还有哪些 音标θ和s,我觉得咬舌相当难受,能都发s吗?对我以 内蒙古国贫旗现豪华接待中心 回应称为25省区市前三季度GDP之和超全国总专家称当代难谈“汉字危机” 呼吁重视“今日中国”艺术周系列活动在泰国举行西班牙煤矿瓦斯泄漏致6人死亡90后新锐作家评比“扬子石化金秋助学”在行动苏大附二院周日有义诊小伙要跳大桥 一群市民拦下他“校园引才”开始报名奥秘之神路大哉乾元紫狼仙传猎魔人传说玩转异界之全系法师情人岛旅游舟山跨海大桥旅游杭州湾大桥旅游中天楼旅游贡院旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘