Delphi 2009 + Access + ADO Connection
 

Alguien seria tan amable de ayudarme con mi problema.

Estoy queriendo hacer un update a una tabla de access por medio de un componente de delphi 2009 que se llama ADOQuery ... pero cuando corro mi aplicacion en delphi me regresa este error.

"Query1: CommandText does not return a result set"

Eso pasa inmediatamente de pasar por la linea del open del siguiente texto.

With Modulo.Query1 Do
begin
Close;
SQL.Clear;
SQL.add('Update Permisos ' +
'Set Connectado = ' + Status + ' ' +
'where UserID = :User ');
Parameters.ParamByName('User').Value := UserName.Text;
Open;
end;

Es un texto sencillo pero no he podido encontrar el porque marca el error.

De antemano gracias por su ayuda.

Hola
Que es Status?
Saludos

Sorry ... este es el procedimiento completo ...


procedure TTLoginFrm.Connect(User : String; Status : String);
begin
// Update de conexion para el usuario
Try
With Modulo.Query1 Do
begin
SQL.Clear;
SQL.add('Update Permisos ' +
'Set Connectado = ' + Status + ' ' +
'where UserID = :User ');
Parameters.ParamByName('User').Value := UserName.Text;
ExecSQL;
Close;
end;
except
On EOleException do
end
end;

Ademas al parecer ya quedo ... Gracias ... es que estaba poniendo un Open en lugar de poner un ExecSQL .... Mil gracias por responder.