Delphi 2009 + Access + ADO Connection

[Luis Bastidas]

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.

[[Caral]]

Hola
Que es Status?
Saludos

[Luis Bastidas]

Empezado por Caral

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;

[Luis Bastidas]

Empezado por Luis Bastidas

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.