begin
close;//这个什么意思,应该是QUERY1.CLOSE吧
query1.sql.clear;
asql:=' update passcheck set password='''+(passwordchangefrm.Edit1.Text)+''' where username='''+trim(loginfrm.ComboBox1.Text )+'''';
query1.SQL.Text:=asql;
try
query1.ExecSQL;
close;//这个什么意思,应该是QUERY1.CLOSE吧
query1.sql.clear;
asql:=' update passcheck set password='''+(passwordchangefrm.Edit1.Text)+''' where username='''+trim(loginfrm.ComboBox1.Text )+'''';
query1.SQL.Text:=asql;
try
query1.ExecSQL;
解决方案 »
- 求Delphi的右侧悬浮窗口实现,内附图。最好是用VCL实现的。
- 如何发布控件,可以不带源码及DCU文件?只需要一个BPL文件
- 如何判断一个二维数组的值为空?
- 请问如何关闭DELPHI 2007里的那个WELCOME PAGE页面?
- 类型转化问题,在线等!
- 大侠 救急!! 打印问题
- 如何让鼠标放到一个按扭上,鼠标变成手指型?
- 下面是我的制作启动画面的代码,为什么Form1出来时Frm_Logo没有自动关闭?
- 紧急提问!!!
- help!!!delphi5 在安装控件是出现cannot access package information for package "错误提示!
- 100分,问大家一下有什么用delphi介绍corba的书?
- Delphi 如何操作IC卡?
你showmessage(asql)看看!
asql:=' update passcheck set password='''+(passwordchangefrm.Edit1.Text)+''' where username='''+trim(loginfrm.ComboBox1.Text )+'''';
query1.SQL.Text:=asql;
ShowMessage(asql);//看看asql的语句是否正确。可能是passwodchangefrm窗体和loginfrm的东西出错了。
说的是
update passcheck set password='新输入的密码' where username=乱码不知道如何解决!!
'Access violation' at addresss 00434465 in module 'mycar.exe',read of address
00000030 process stopped.use step or run to continue.
显然username 是空,这说明,没有把loginfrm.combobox1.text的值带过来,
但我不知道怎么才能将值带过来!!!请明示!!!!!!!!!
改成:
asql:=' update passcheck set password='''+passwordchangefrm.Edit1.Text
+'where username='''+trim(loginfrm.ComboBox1.Text )+'''';
出现错误,
project mycar.exe raised exception class EDBEgineError with message
'missing right quote',process stopped.use step or run to continue我用
memo1去跟踪,发觉,username='',还是空值,估计和上面的错误有关,怎么会没有权限