Discussion :

[inc002]

Bonjour,

J'aimerai, au FormCreate, faire une procédure permettant de vérifier si la base de donnée est déjà en accès exclusif par un autre utilisateur et, le cas echeant ne pas planter. J'ai regardé du coté de ODBCConnection à la propriété Connected ou KeepConnection et c'est uniquement dès qu'il arrive a mon premier SELECT que le programme plante.

Merci de votre aide par avance !

inc002

[inc002]

up ?


Avez-vous besoin de plus d'explications ?

Le principe est le suivant :

UserA est connecté à la base via le programme à la base sur Serv1
UserB veux se connecter à la DB via le programme.

--> Le programme affiche "UserA déjà connecté, lecture seule de la DB"

Est-ce possible ?

Avez vous une piste concernant les propriétés du composant ODBC et Access?

Merci encore

inc002

[evarisnea]

lorsque une base de données Access est ouverte, il y a un fichier *.ldb qui est crée automatiquement. ce fichier renseigne sur les utilisateurs connectés à la base de données. ceci est la première piste pour arriver à une solution.
pour ce qui est de la deuxième solution, tu peux facilement tester si quelqu'un est déjà connecté à la base de données, dépendamment des droits d'ouverture qu'il a utilisé et des droits que tu souhaite obtenir sur la base. des sujets similaires ont déjà étés abordés sur le forum il me semble bien.

[inc002]

Merci beaucoup


J'ai trouvé ce code permettant d'extraire le nom des users utilisant la DB sur le forum et codé par Hauwke

ici

Le voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
uses 
  Classes, SysUtils; 
 
procedure ReadLoggedUsers(const MDBFile:string; ExtractUsers:boolean; 
  List:TStrings); 
type 
  TChar32 = array[0..31] of char; 
  LDBRecord = record 
    Workstation : TChar32; 
    User : TChar32; 
  end; 
var 
  Stm : TFileStream; 
  s : string; 
  rec : LDBRecord; 
  i : integer; 
 
  function Char32ToString(arr:TChar32) : string; 
  var 
    i : integer; 
  begin 
    SetLength(result, 32); 
    Move(arr, result[1], 32); 
    result := Trim(result); 
  end; 
 
begin 
  if List<>nil then begin 
    List.Clear; 
    s := ChangeFileExt(MDBFile, '.ldb'); 
    if FileExists(s) then begin 
      stm := TFileStream.Create(s, fmOpenRead+fmShareDenyNone); 
      try 
        while stm.Position < stm.Size do begin 
          stm.Read(rec, SizeOf(rec)); 
          if ExtractUsers 
            then s := Char32ToString(rec.User) 
            else s := Char32ToString(rec.WorkStation); 
          List.Add(s); 
        end; 
      finally 
        stm.Free; 
      end; 
    end; 
  end; 
end;

et merci encore pour votre contribution et ce que vous faites tous