Discussion :

[thor22]

Bonjour

Je développe une application en Delphi 7 qui est destinée à être exécutée à partir d'un CD (pas besoin d'installation ou de copie sur le disque dur).
Ma base de données est en Microsoft Access 2000 et elle est placée avec l'application, sur le CD.

Mon problème est que quand je tente d'exécuter l'application à partir du CD, j'ai le message d'erreur suivant:
"Impossible de verrouiller le fichier" (en anglais "Could not lock file").
L'erreur survient lors de la connexion à la base de données.
Je crois que cette erreur est causée par le fait qu'il n'est pas possible d'écrire sur le CD. (Je n'ai pas cette erreur quand j'exécute l'application sur mon ordinateur)
Je ne désire pas faire d'Update dans la base de données. Seulement de la lecture d'enregistrements.
Dans mon objet "TADOConnection", la propriété "Mode" est à "cmRead".

Avez-vous une idée pour corriger/contourner ce problème?

Merci beaucoup

[Frank]

A l'ouverture d'une base access, il ya création d'un fichier dont le nom et l'extension sont

LENOMDETABASE.LDB

Il est normal que ta base ne marche pas car le fichier n'arrive pas à se créer sur le cd.

[thor22]

A l'ouverture d'une base access, il ya création d'un fichier dont le nom et l'extension sont

Il est normal que ta base ne marche pas car le fichier n'arrive pas à se créer sur le cd.

Et est-il possible d'empêcher la création de ce fichier de locks?
Ou en fait, de le rendre non-nécessaire?
Car il n'y a que de la lecture d'enregistrements, donc le système n'a pas à créer de locks sur les enregistrements.

[evarisnea]

celà doit certainement être possible, car avec Ms Access, je peux bien ouvrir en lecture seule mes fichiers mdb gravés sur un CD. ou alors Access crée une copie locale sur le disque dur ? à vérifier...

[didier2020]

a tu essayé ;

Code :

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

Ttable.ReadOnly:=Yes

[thor22]

celà doit certainement être possible, car avec Ms Access, je peux bien ouvrir en lecture seule mes fichiers mdb gravés sur un CD. ou alors Access crée une copie locale sur le disque dur ? à vérifier...

Donc, il reste seulement à trouver comment....
J'aimerais ne pas avoir à copier de fichiers sur le disque dur, juste pour garder le tout sur le CD.

a tu essayé ;

Code :

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

Ttable.ReadOnly:=Yes

Je n'utilise pas de TTable. J'utilise l'objet TADOQuery.

[Rayek]

Essaie de mettre LockType à ltReadOnly, je pense que cela enlevera la création du fichier supplémentaire pour la base de données.

[thor22]

Essaie de mettre LockType à ltReadOnly, je pense que cela enlevera la création du fichier supplémentaire pour la base de données.

Le problème se passe lors du ADOConnection1.Open();. Le TADOQuery n'a pas d'effet.
Pour faire le test, j'ai créé une form avec seulement un ADOConnection et un bouton.
Ces 2 lignes de code sont exécutées en cliquant sur le bouton:

Code :

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

1
2
3
 
ADOConnectionAlbum.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\database.mdb;Mode=Read;Persist Security Info=False;Jet OLEDB:Database Password=MyPassword';
ADOConnectionAlbum.Open();

Et j'ai l'erreur.
Mon lecteur H est un lecteur CD.

[Rayek]

une choses à tester :

Rajoute dans ta chaine de connexion :

Code :

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

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\Mabase.mdb;Persist Security Info=False;Jet OLEDB:Database Locking Mode=0

[thor22]

une choses à tester :

Rajoute dans ta chaine de connexion :

Code :

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

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\Mabase.mdb;Persist Security Info=False;Jet OLEDB:Database Locking Mode=0

Ça semblait prometteur, mais l'erreur survient quand même.

[Rayek]

Question bête ^^
Est ce que ton composant AdoConnection a sa propriété Connected à False dans Delphi ? (pas en runtime, mais en designtime)

[thor22]

Question bête ^^
Est ce que ton composant AdoConnection a sa propriété Connected à False dans Delphi ? (pas en runtime, mais en designtime)

Dans mon objet TADOConnection, la propriété "Connected" est à False au design time.

[aityahia]

j'ai prie la pein de graver une base de données sur un CD et sa marche
avec la connection string suivante

Code :

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

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Logiciels\PARC idir\Parc.mdb;Mode=Read|Share Deny Read|Share Deny Write;Persist Security Info=False

j'ai trouvez aussi ce lien qui donne quelque info.
ici

[thor22]

j'ai prie la pein de graver une base de données sur un CD et sa marche
avec la connection string suivante

Code :

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

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Logiciels\PARC idir\Parc.mdb;Mode=Read|Share Deny Read|Share Deny Write;Persist Security Info=False

j'ai trouvez aussi ce lien qui donne quelque info.
ici

Ça marche!
La partie importante est "Mode=Read|Share Exclusive" dans la chaîne de connexion.

Merci aityahia!
Et merci à tous ceux qui ont tenté de m'aider!