strSQL := 'UPDATE TabUser SET Password=:Password WHERE UserID=:UserID';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(strSQL);
ADOQuery1.Parameters.ParamByName('UserID').Value := objGlobal.objUser.FID;
ADOQuery1.Parameters.ParamByName('Password').Value := objGlobal.objUser.EnCrypt(Trim(edtNew.Text));
try
begin
ADOQuery1.ExecSQL;
MessageDlg(成功', mtInformation, [mbYes], 0);
end;
except
MessageDlg(失败', mtError, [mbYes], 0);
ADOQuery1.Close;
Exit;
end;
ADOQuery1.Close;SQL语句在 ACCESS查询分析器里面能运行,为什么在程序里面就报错了呢?
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(strSQL);
ADOQuery1.Parameters.ParamByName('UserID').Value := objGlobal.objUser.FID;
ADOQuery1.Parameters.ParamByName('Password').Value := objGlobal.objUser.EnCrypt(Trim(edtNew.Text));
try
begin
ADOQuery1.ExecSQL;
MessageDlg(成功', mtInformation, [mbYes], 0);
end;
except
MessageDlg(失败', mtError, [mbYes], 0);
ADOQuery1.Close;
Exit;
end;
ADOQuery1.Close;SQL语句在 ACCESS查询分析器里面能运行,为什么在程序里面就报错了呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货