trabajar en red con base de datos paradox

[[Lepe]]

Saber el número de usuarios

Por supuesto, el usuario que usa esa rutina tambien cuenta, por tanto el verdadero resultado es:

Código Delphi [-]
Usuarios := GetUsers - 1;

Por cierto, para borrar archivos, puedes usar el Deletefile('\\Miservidor\...'), no da problemas con rutas de red.

Si es que paradox es mucho paradox.... Verás cuando te pidan que hagas copia de seguirdad de la base de datos.... , con FireBird, un simple comando con Gbak y listo, aquí puffff.

Un saludo

[Sayuri]

ya hacía mucho q no tocaba la gaita por aquí, pero estoy repasando tu último comentario y al copiar tu función:

Código Delphi [-]
function GetUsers():Integer;
var
  UserList: TStringlist;
  TmpCursor: hDbiCur;
  rslt: dbiResult;
  UsrDesc: USERDesc;
begin
  Result:=0;
  Check(DbiOpenUserList(TmpCursor));
  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;

me da problemas al compilar y los tipos de las variables no me las reconoce... ¿que unidad hay que añadir' muchas gracias

[Sayuri]

esto es una locura.. al arrancar la aplicación no entra en MiDataModule.OnCreate, y ya me empiezan a llegar las dudas, ..¿tengo que meter los objetos ttable y el datasource dentro del datamodule?¿Cuando introduzco el database a parte de poner el alias tengo que conectarlo? es que me dan sólo q errores... necesito ayuda... :-(

[Sayuri]

Bueno, fallo mio si que entra en midatamodule on create, pero al entrar me da un error y me dice que las tablas están abiertas, y claro, yo el programa lo ejecuto con los ttables y las sql activas desde el tiempo de diseño... a lo mejor es por eso por lo que me da problemas... ¿las debo desactivar todas y activar al terminar de cargar la aplicación?