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;

解决方案 »

  1.   

    有可能是你的loginfrm.ComboBox1.Text的值没有带过来!
     你showmessage(asql)看看!
      

  2.   

    query1.sql.clear;
              asql:=' update  passcheck set password='''+(passwordchangefrm.Edit1.Text)+'''  where username='''+trim(loginfrm.ComboBox1.Text )+'''';
              query1.SQL.Text:=asql;
              
           ShowMessage(asql);//看看asql的语句是否正确。可能是passwodchangefrm窗体和loginfrm的东西出错了。
      

  3.   

    to  我我你是对的,我showmessage(asql)
    说的是
    update passcheck set password='新输入的密码' where username=乱码不知道如何解决!!
      

  4.   

    Query1.SQL.Text := Format('update passcheck set password=''%s'' where username=''%s''', [passwordchangefrm.edit1.text, loginfrm.combobox1.text]);showmessage(query1.sql.text);
      

  5.   

    to copy_paste好象这样效果不大,怎么回事呢?请教!!
      

  6.   

    你可以先不让它执行,加一个memo1,然后,memo1.line.add(asql),检查一下你的asql语句错没错/一看便知道了/
      

  7.   

    错误:project mycar.exe raised exception class EAccess violation with message
    'Access violation' at addresss 00434465 in module 'mycar.exe',read of address
    00000030 process stopped.use step or run to continue.
      

  8.   

    delphi语句格式有误,没什么大错,仔细查查
      

  9.   

    是的,我用一个memo1.lines.add(asql)看了一下,update passcheck set password=新密码 where username='';
    显然username 是空,这说明,没有把loginfrm.combobox1.text的值带过来,
    但我不知道怎么才能将值带过来!!!请明示!!!!!!!!!
      

  10.   

    asql:=' update  passcheck set password='''+(passwordchangefrm.Edit1.Text)+'''  where username='''+trim(loginfrm.ComboBox1.Text )+''''
    改成:
    asql:=' update  passcheck set password='''+passwordchangefrm.Edit1.Text
    +'where username='''+trim(loginfrm.ComboBox1.Text )+'''';          
      

  11.   

    to blazingfire
    出现错误,
     project mycar.exe raised exception class EDBEgineError with message
    'missing right quote',process stopped.use step or run to continue我用
    memo1去跟踪,发觉,username='',还是空值,估计和上面的错误有关,怎么会没有权限