hola!!!
ya tengo rato en este foro, pero no consigo hacer que el bde funcione en la computadora.
Lo instale, lo desinstale y lo volvi a instalar y me sigue saliendo ese error.
Lo que yo quiero es saber el numero de usuarios conectados a la base de datos, uso la siguiente funcion:
Código Delphi
[-]
function GetUsers():Integer;
var
UserList: TStringlist;
TmpCursor: hDbiCur;
rslt: dbiResult;
UsrDesc: USERDesc;
begin
Result:=0;
Check(DbiOpenUserList(TmpCursor)); ------>>> aqui me marca el error $21A6
UserList := TStringList.Create;
try
UserList.Clear;
repeat
Rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @UsrDesc, nil);
if Rslt <> DBIERR_EOF then
UserList.Add(UsrDesc.szUserName);
until Rslt <> DBIERR_NONE;
Result := UserList.Count;
finally
Check(DbiCloseCursor(TmpCursor));
FreeAndNil(UserList);
end;
end;
La verdad es que no se que hacer. Alguien tiene alguna idea???
Gracias!!!!