Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1229 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB_Access] Probleme Verrou BD access

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB_Access] Probleme Verrou BD access

n°1125034
youyou73
Posté le 20-06-2005 à 10:47:21  profilanswer
 

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 :
 

Citation :


 '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

mood
Publicité
Posté le 20-06-2005 à 10:47:21  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB_Access] Probleme Verrou BD access

 

Sujets relatifs
probleme pour parser flux xmlproblè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 chariotprobleme d'image gif sous internet explorer
Probleme HTML et CSSAccess atteindre un enregistrement spécial
probleme avec macro excelProblème MySql avec EasyPhp 1.8
Plus de sujets relatifs à : [VB_Access] Probleme Verrou BD access


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR