[VB_Access] Probleme Verrou BD access
Probleme Verrou BD access [VB_Access] - VB/VBA/VBS - Programmation
Sujets relatifs:
- probleme pour parser flux xml
- problème chmod / lecture de fichiers sur un serveur
- Petit probleme de Background avec ie.
- [Réglé] probleme pour inclure une page
- [JSP/Struts] Problème avec la gestion des retours chariot
- probleme d'image gif sous internet explorer
- Probleme HTML et CSS
- Access atteindre un enregistrement spécial
- probleme avec macro excel
- Problème MySql avec EasyPhp 1.8
Marsh Posté le 20-06-2005 à 10:47:21
Voila mon probleme,
Je veux acceder à ma base pour récuperer des informations (rien de plus normal) mais à l'execution de l'appli, il me balance :
"Impossibke de démarrer votre application. Le fichier d'informations du groupe de travail est absent ou ouvert en mode exclusif par un autre utilisateur."
J'ai vérifier les sécurités du fichier, les droits, je suis en administrateur sur mon poste et la base est en local sur mon pc donc je suis le seul a y acceder.
Je me pose donc 2 questions :
1) est-il possible que cela vienne que plus haut dans mon code je creer une autre connexion OleDb ?
2) est-il possible de verouiller une connexion ou une base depuis VB ?
Car je reprend une appli bien compliqué, et je n'arrive pas à trouver où celle-ci pourrait eventuellement mettre un verrou sur cette base.
Merci d'avance
Voici le code :
'pgm de test
'connexion a la base contenant info de vente
'myResult.close()
Dim m_SQL As String
Dim SourceConnect1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\seasons\S1\DB\99\GAccount.MDB;user ID=gadmin;password=*****;"
Dim SourceOle1 As New OleDbConnection(SourceConnect1)
Try
SourceOle1.Open()
Dim com_sql As New OleDbCommand
Dim dr_sql As OleDbDataReader
com_sql.Connection = SourceOle1
com_sql.CommandType = CommandType.Text
com_sql.CommandText = "SELECT sum(Quantity),sum(Amount)FROM [SaleOperation]"
dr_sql = com_sql.ExecuteReader
If Not dr_sql.HasRows Then MsgBox("Aucun enregistrement" )
Dim contenu As String
Dim i As Int16
Do While dr_sql.Read
For i = 0 To dr_sql.FieldCount - 1
contenu &= dr_sql.GetValue(i)
Next
contenu &= vbCr
Loop
MsgBox(contenu)
Catch ex As Exception
MsgBox(ex.Message)
End Try