Delphi 2009 + Access + ADO Connection

[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;