ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: tester ouverture de fichier exclusive   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

dim. 29 novembre 2015, 11h00

Francis Faure
France France

atoutfox.public.association

Re: tester ouverture de fichier exclusive

Bonjour

Suggestion : suite au try...catch...endtry : si erreur il faudrait tester si c'est une exception n° 1705 (table utilisée par ailleurs) ou si c'est une autre erreur...

Illustration :

local iUse as integer
iUse=UseExclusive("C:\temp\test.dbf")
? m.iUse

do case
  case m.iUse==-1   && pas d'erreur : la table est ouverte en "exclusive"
    *... ok
  case m.iUse==1    && Le fichier n'existe pas
    *...
  case m.iUse==41   && Le fichier Mémo est absent ou n'est pas valide.
    *...
  case m.iUse==1002 && Erreur d'entrée/sortie.
    *...
  case m.iUse==1707 && Fichier structurel .CDX introuvable.
    *...
  case m.iUse==1705 && Accès au fichier refusé : table utilisée sur un autre poste
    *...
  otherwise
    *...
endcase



function UseExclusive(lcTableName as stringas integer
  local liError as integer
  liError=-1
  local loErr as exception
  try
    use (m.lcTableName) exclusive
  catch to loErr
    liError=loErr.errorno  && 1705 ou autre erreur ?
  endtry
  return m.liError
endfunc


Journal

JpG pense que ce message est la bonne réponse ou qu'il est utile
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000016936
20 088 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3