Discussion :

[colorid]

Bonjour,

Je développe actuellement une appli qui utilise une base access.

Malgré la suppression physique de la base *.mdb et un redémarrage du PC, à la première utilisation de cette base (qui a été supprimée), mais que l'appli crée au démarrage si elle est absente, j'obtiens le message : "Impossible de lire l'enregistrement actuellment vérrouillé par un autre utilisateur" et mon appli se bloque !

Quelqu'un sait-il comment dévérrouiller une base access d'un utilissateur virtuel (Sur mon PC il ne peut y avoir d'autres utilisateurs de cette base qui a été supprimée) ledit utilisateur devant sans doute être conservé dans la base de registre ?

Ou plus simplement, éviter l'erreur ?

[BuzzLeclaire]

Bonjour,

Je développe actuellement une appli qui utilise une base access.

Malgré la suppression physique de la base *.mdb et un redémarrage du PC, à la première utilisation de cette base (qui a été supprimée), mais que l'appli crée au démarrage si elle est absente, j'obtiens le message : "Impossible de lire l'enregistrement actuellment vérrouillé par un autre utilisateur" et mon appli se bloque !

Quelqu'un sait-il comment dévérrouiller une base access d'un utilissateur virtuel (Sur mon PC il ne peut y avoir d'autres utilisateurs de cette base qui a été supprimée) ledit utilisateur devant sans doute être conservé dans la base de registre ?

Ou plus simplement, éviter l'erreur ?

Hmmmm... salut

Montre ta création dynamique.

a+

[colorid]

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
procedure TFullScreen.TablesCreate;
var
  req : string;
  PW: Integer;
begin
  PW:= PeekGraphDLL_PassWordToInteger('admin');
  ADOConnection1.ConnectionString := Format(_ConnString,[_UserName,_PassWord,MDBFile]);
  ADOConnection1.LoginPrompt := False;
  ADOCommand1.Connection := ADOConnection1;
  //************************************************************* table DBUser
  req:= 'CREATE TABLE DBUSER (' +
  ' USER_NO INTEGER NOT NULL DEFAULT 1, '+         // Clé primaire
  ' USER_DBTYPE BYTE NOT NULL DEFAULT '+IntToStr(_BD_LOCALE)+', ' +
  ' USER_PASS INTEGER NOT NULL DEFAULT '+IntToStr(PW)+', ' + // "admin" crypté
  ' USER_RIGHTS INTEGER NOT NULL DEFAULT 2147483647, ' + // all rights
  ' USER_CONVERSION BYTE NOT NULL DEFAULT '+IntToStr(_ADOBE_RGB_1998)+', ' +
  ' USER_ILLUMINANT BYTE NOT NULL DEFAULT '+IntToStr(Cie_Ill_D65)+', ' +
  ' USER_OBSERVER BYTE NOT NULL DEFAULT ' +IntToStr(Cie_Obs1931)+', ' +
  ' USER_NAME VARCHAR(32) NOT NULL DEFAULT "PEEK", ' +
  ' USER_USED BIT DEFAULT -1 '+
  ')';
  ADOCommand1.CommandText := req;
  ADOCommand1.Execute;
  // ==================== Clé primaire
  req := 'ALTER TABLE DBUSER ADD CONSTRAINT PK_OPERATOR PRIMARY KEY (USER_NO);';
  ADOCommand1.CommandText := req;
  ADOCommand1.Execute;
  //===================== Procédure stockée pour ecrire un Utilisatezur
  req:= 'CREATE PROC procUserAddItem(UserNo INTEGER, UserName VARCHAR(32) )'+
  'AS INSERT INTO DBUSER (USER_NO, USER_NAME ) '+
  'Values (UserNo, UserName);';
  ADOCommand1.CommandText := req;
  ADOCommand1.Execute;

Les autres tables sont créées de même façon

[BuzzLeclaire]

Salut,

Avec ta procedure entière on ne sais pas où à réellement lieu tonmessage d'erreur !!! Et puis mettre utiliser le parametre DEFAULT à me souvenir cela n'a aucun effet.
D'ailleur pourquoi mettre un parametre DEFAULT à 1 sur une clé primaire ????

Et puis sur quel base access tu travail ? 97, 2000, 2003 ou 2010 peut-être ?

Ensuite, pourquoi faire un ALTER TABLE juste pour identifier une clé primaire et ne pas le faire avant ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
req:= 'CREATE TABLE DBUSER (' +
  ' USER_NO INTEGER NOT NULL UNIQUE PRIMARY KEY, '+   // Clé primaire
  ' USER_DBTYPE BYTE NOT NULL, ' +
  ' USER_PASS INTEGER NOT NULL , ' + // "admin" crypté
  ' USER_RIGHTS INTEGER NOT NULL, ' + // all rights
  ' USER_CONVERSION BYTE NOT NULL, ' +
  ' USER_ILLUMINANT BYTE NOT NULL, ' +
  ' USER_OBSERVER BYTE NOT NULL, ' +
  ' USER_NAME VARCHAR(32) NOT NULL, ' +
  ' USER_USED BIT '+
  ')';
  ADOCommand1.CommandText := req;
  ADOCommand1.Execute;

Quand penses-tu ?

[colorid]

DBUSER est l'administrateur ce qui justifie la valeur 1, les autre utilisateurs de la base sont OPERATOR et sont administrés par DBUSER. DEFAULT 1 est donc très exeptionnel