procedure TForm10.Button3Click(Sender: TObject);
begin
if edit3.Text='' then
begin
showmessage('对不起,密码不能为空!');
edit2.SetFocus;
end
else
begin
adoquery1.Close;
adoquery1.sql.clear;
adoquery1.SQL.Add('update yhmn set password='''+edit3.text+''' where password='''+edit1.text+'''');
adoquery1.ExecSQL;
showmessage('更新密码成功!');
end;
end;end.
begin
if edit3.Text='' then
begin
showmessage('对不起,密码不能为空!');
edit2.SetFocus;
end
else
begin
adoquery1.Close;
adoquery1.sql.clear;
adoquery1.SQL.Add('update yhmn set password='''+edit3.text+''' where password='''+edit1.text+'''');
adoquery1.ExecSQL;
showmessage('更新密码成功!');
end;
end;end.
解决方案 »
- 如何用idhttp登录邮箱?
- 请教New()在Win2K3服务器申请内存指针偶尔会失败并导致程序无响应.本机Win7运行却从没错误...
- 信誉分被无故扣除, 狂晕. 路见不平的兄弟拨刀相助, 版猪给个解释.
- 请问如何用query1的控件来写动态的报表!谢谢
- 如何提高该报表(fastReport)的生成速度,在线等!
- 请问:DBComboBox的用法,我怎么只能显示出数据集的第一条记录,下拉单里没有数据?
- 今天是我生日,本来可以高高兴兴过的,可是早上陪女朋友去医院,发现她的眼角膜有问题,拿出我所有的30份,为她祝福早点康复,Delphi版的
- 现在很流行的下载者!
- 多谢关照
- Excel的問題?
- string和longint类型之间如何转换?
- 请问怎样用socket发送二进制文件?
你贴出来连接数据库的那句来看看
可能使你的密码位置写错了
应该不会出现这种问题的
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bill.mdb;Persist Security Info=False;Jet OLEDB:Database Password=quanqing //注意密码的位置
注意是双引号。
用了你的方法后,程序可以正常运行,但小弟还有一不解之处就是在同一窗体的不同过程,为什么下面这个可以正常运行,而上面这个却不行???
if edit2.Text='' then
begin
showmessage('对不起,用户名不能为空!');
edit2.SetFocus;
end
else
begin
adoquery1.Close;
adoquery1.sql.clear;
adoquery1.SQL.Add('update yhmn set users='''+edit2.text+''' where password='''+edit1.text+'''');
adoquery1.ExecSQL;
showmessage('更新用户名成功!');
end;
password是access的关键字,用[]括起来