Accueil > Forum > > > > Erreur incompréhensible!
 Erreur incompréhensible!
mercredi 2 avril 2003 à 17:29:46 |
Erreur incompréhensible!
spomky
|
J'ai une base de données Access protégée par un mot de passe. Elle contient 3 tables (Monde, Section et Zone) avec une relation respectaant l'intégrité référentiel (un monde peut contenir pls sections et une section peut contenir pls zones) Voilà mon code pour ouvrir cette base :
Option Explicit
Public BD_Monde As Connection
Public BD_Section As Connection
Public BD_Zone As Connection
Public Monde As Recordset
Public Section As Recordset
Public Zone As Recordset
Public Function Create_connection()
Dim test
Set Monde = New ADODB.Recordset
Set Section = New ADODB.Recordset
Set Zone = New ADODB.Recordset
Set BD_Monde = New ADODB.Connection
Set BD_Section = New ADODB.Connection
Set BD_Zone = New ADODB.Connection
BD_Monde.CursorLocation = adUseClient
BD_Monde.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"jet OLEDB:database Password='MDP';" & _
"Data Source=SMWE.mdb;" & _
"Mode=ReadWrite;" & _
"Persist Security Info=True"
BD_Monde.Open
Monde.Open "Select * from Monde ", BD_Monde, adOpenDynamic, adLockOptimistic
BD_Section.CursorLocation = adUseClient
BD_Section.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"jet OLEDB:database Password='MDP';" & _
"Data Source=SMWE.mdb;" & _
"Mode=ReadWrite;" & _
"Persist Security Info=True"
BD_Section.Open
Section.Open "Select * from Section where mondelienSection='1'", BD_Section, adOpenDynamic, adLockOptimistic
BD_Zone.CursorLocation = adUseClient
BD_Zone.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"jet OLEDB:database Password='MDP';" & _
"Data Source=SMWE.mdb;" & _
"Mode=ReadWrite;" & _
"Persist Security Info=True"
BD_Zone.Open
Zone.Open "Select * from Section", BD_Zone, adOpenDynamic, adLockOptimistic
End FunctionLe debugger me renvoie : Erreur d'exécution '-2147467259 (80004005)'La méthode 'Open' de l'objet '_Recordset' a échouéà la zone en rouge mais je ne vois vraiment pas se qui cloche?????? |
|
mercredi 2 avril 2003 à 18:26:25 |
Re : Erreur incompréhensible!
Crazyht
|
Heu pk ouvrir 3 connexions sur la meme base ?
Access n'etant pas un expert des acces multiples, essaie avec une seule connexion
A++
Crazyht :)
-------------------------------
Réponse au message :
-------------------------------
> J'ai une base de données Access protégée par un mot de passe. Elle contient 3 tables (Monde, Section et Zone) avec une relation respectaant l'intégrité référentiel (un monde peut contenir pls sections et une section peut contenir pls zones)
>
> Voilà mon code pour ouvrir cette base :
>
> Option Explicit
>
> Public BD_Monde As Connection
> Public BD_Section As Connection
> Public BD_Zone As Connection
>
> Public Monde As Recordset
> Public Section As Recordset
> Public Zone As Recordset
>
> Public Function Create_connection()
> Dim test
> Set Monde = New ADODB.Recordset
> Set Section = New ADODB.Recordset
> Set Zone = New ADODB.Recordset
>
> Set BD_Monde = New ADODB.Connection
> Set BD_Section = New ADODB.Connection
> Set BD_Zone = New ADODB.Connection
>
> BD_Monde.CursorLocation = adUseClient
> BD_Monde.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> "jet OLEDB:database Password='MDP';" & _
> "Data Source=SMWE.mdb;" & _
> "Mode=ReadWrite;" & _
> "Persist Security Info=True"
> BD_Monde.Open
> Monde.Open "Select * from Monde ", BD_Monde, adOpenDynamic, adLockOptimistic
>
>
> BD_Section.CursorLocation = adUseClient
> BD_Section.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> "jet OLEDB:database Password='MDP';" & _
> "Data Source=SMWE.mdb;" & _
> "Mode=ReadWrite;" & _
> "Persist Security Info=True"
> BD_Section.Open
> Section.Open "Select * from Section where mondelienSection='1'", BD_Section, adOpenDynamic, adLockOptimistic
>
>
> BD_Zone.CursorLocation = adUseClient
> BD_Zone.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> "jet OLEDB:database Password='MDP';" & _
> "Data Source=SMWE.mdb;" & _
> "Mode=ReadWrite;" & _
> "Persist Security Info=True"
> BD_Zone.Open
> Zone.Open "Select * from Section", BD_Zone, adOpenDynamic, adLockOptimistic
> End Function
>
> Le debugger me renvoie :
> Erreur d'exécution '-2147467259 (80004005)'La méthode 'Open' de l'objet '_Recordset' a échoué
> à la zone en rouge mais je ne vois vraiment pas se qui cloche??????
|
|
mercredi 2 avril 2003 à 18:31:41 |
Re : Erreur incompréhensible!
spomky
|
Aucune diférence  ------------------------------- Réponse au message : ------------------------------- > Heu pk ouvrir 3 connexions sur la meme base ? > > Access n'etant pas un expert des acces multiples, essaie avec une seule connexion > > A++ > > Crazyht :) > > > ------------------------------- > Réponse au message : > ------------------------------- > > > J'ai une base de données Access protégée par un mot de passe. Elle contient 3 tables (Monde, Section et Zone) avec une relation respectaant l'intégrité référentiel (un monde peut contenir pls sections et une section peut contenir pls zones) > > > > Voilà mon code pour ouvrir cette base : > >
> > Option Explicit
> >
> > Public BD_Monde As Connection
> > Public BD_Section As Connection
> > Public BD_Zone As Connection
> >
> > Public Monde As Recordset
> > Public Section As Recordset
> > Public Zone As Recordset
> >
> > Public Function Create_connection()
> > Dim test
> > Set Monde = New ADODB.Recordset
> > Set Section = New ADODB.Recordset
> > Set Zone = New ADODB.Recordset
> >
> > Set BD_Monde = New ADODB.Connection
> > Set BD_Section = New ADODB.Connection
> > Set BD_Zone = New ADODB.Connection
> >
> > BD_Monde.CursorLocation = adUseClient
> > BD_Monde.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > "jet OLEDB:database Password='MDP';" & _
> > "Data Source=SMWE.mdb;" & _
> > "Mode=ReadWrite;" & _
> > "Persist Security Info=True"
> > BD_Monde.Open
> > Monde.Open "Select * from Monde ", BD_Monde, adOpenDynamic, adLockOptimistic
> >
> >
> > BD_Section.CursorLocation = adUseClient
> > BD_Section.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > "jet OLEDB:database Password='MDP';" & _
> > "Data Source=SMWE.mdb;" & _
> > "Mode=ReadWrite;" & _
> > "Persist Security Info=True"
> > BD_Section.Open
> > Section.Open "Select * from Section where mondelienSection='1'", BD_Section, adOpenDynamic, adLockOptimistic
> >
> >
> > BD_Zone.CursorLocation = adUseClient
> > BD_Zone.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > "jet OLEDB:database Password='MDP';" & _
> > "Data Source=SMWE.mdb;" & _
> > "Mode=ReadWrite;" & _
> > "Persist Security Info=True"
> > BD_Zone.Open
> > Zone.Open "Select * from Section", BD_Zone, adOpenDynamic, adLockOptimistic
> > End Function> > > > Le debugger me renvoie : > > Erreur d'exécution '-2147467259 (80004005)'La méthode 'Open' de l'objet '_Recordset' a échoué> > à la zone en rouge mais je ne vois vraiment pas se qui cloche?????? > |
|
mercredi 2 avril 2003 à 18:34:52 |
Re : Erreur incompréhensible!
Crazyht
|
C koi le type de mondelienSection dans ta table ? A++ Crazyht :) ------------------------------- Réponse au message : ------------------------------- > Aucune diférence > > > > ------------------------------- > Réponse au message : > ------------------------------- > > > Heu pk ouvrir 3 connexions sur la meme base ? > > > > Access n'etant pas un expert des acces multiples, essaie avec une seule connexion > > > > A++ > > > > Crazyht :) > > > > > > ------------------------------- > > Réponse au message : > > ------------------------------- > > > > > J'ai une base de données Access protégée par un mot de passe. Elle contient 3 tables (Monde, Section et Zone) avec une relation respectaant l'intégrité référentiel (un monde peut contenir pls sections et une section peut contenir pls zones) > > > > > > Voilà mon code pour ouvrir cette base : > > >
> > > Option Explicit
> > >
> > > Public BD_Monde As Connection
> > > Public BD_Section As Connection
> > > Public BD_Zone As Connection
> > >
> > > Public Monde As Recordset
> > > Public Section As Recordset
> > > Public Zone As Recordset
> > >
> > > Public Function Create_connection()
> > > Dim test
> > > Set Monde = New ADODB.Recordset
> > > Set Section = New ADODB.Recordset
> > > Set Zone = New ADODB.Recordset
> > >
> > > Set BD_Monde = New ADODB.Connection
> > > Set BD_Section = New ADODB.Connection
> > > Set BD_Zone = New ADODB.Connection
> > >
> > > BD_Monde.CursorLocation = adUseClient
> > > BD_Monde.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > "jet OLEDB:database Password='MDP';" & _
> > > "Data Source=SMWE.mdb;" & _
> > > "Mode=ReadWrite;" & _
> > > "Persist Security Info=True"
> > > BD_Monde.Open
> > > Monde.Open "Select * from Monde ", BD_Monde, adOpenDynamic, adLockOptimistic
> > >
> > >
> > > BD_Section.CursorLocation = adUseClient
> > > BD_Section.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > "jet OLEDB:database Password='MDP';" & _
> > > "Data Source=SMWE.mdb;" & _
> > > "Mode=ReadWrite;" & _
> > > "Persist Security Info=True"
> > > BD_Section.Open
> > > Section.Open "Select * from Section where mondelienSection='1'", BD_Section, adOpenDynamic, adLockOptimistic
> > >
> > >
> > > BD_Zone.CursorLocation = adUseClient
> > > BD_Zone.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > "jet OLEDB:database Password='MDP';" & _
> > > "Data Source=SMWE.mdb;" & _
> > > "Mode=ReadWrite;" & _
> > > "Persist Security Info=True"
> > > BD_Zone.Open
> > > Zone.Open "Select * from Section", BD_Zone, adOpenDynamic, adLockOptimistic
> > > End Function> > > > > > Le debugger me renvoie : > > > Erreur d'exécution '-2147467259 (80004005)'La méthode 'Open' de l'objet '_Recordset' a échoué> > > à la zone en rouge mais je ne vois vraiment pas se qui cloche?????? > > > |
|
mercredi 2 avril 2003 à 18:37:27 |
Re : Erreur incompréhensible!
spomky
|
un string mais même en mettant juste Select * from Section ça ne fonctionne pas ------------------------------- Réponse au message : ------------------------------- > C koi le type de mondelienSection dans ta table ? > > A++ > > Crazyht :) > > > ------------------------------- > Réponse au message : > ------------------------------- > > > Aucune diférence > > > > > > > > ------------------------------- > > Réponse au message : > > ------------------------------- > > > > > Heu pk ouvrir 3 connexions sur la meme base ? > > > > > > Access n'etant pas un expert des acces multiples, essaie avec une seule connexion > > > > > > A++ > > > > > > Crazyht :) > > > > > > > > > ------------------------------- > > > Réponse au message : > > > ------------------------------- > > > > > > > J'ai une base de données Access protégée par un mot de passe. Elle contient 3 tables (Monde, Section et Zone) avec une relation respectaant l'intégrité référentiel (un monde peut contenir pls sections et une section peut contenir pls zones) > > > > > > > > Voilà mon code pour ouvrir cette base : > > > >
> > > > Option Explicit
> > > >
> > > > Public BD_Monde As Connection
> > > > Public BD_Section As Connection
> > > > Public BD_Zone As Connection
> > > >
> > > > Public Monde As Recordset
> > > > Public Section As Recordset
> > > > Public Zone As Recordset
> > > >
> > > > Public Function Create_connection()
> > > > Dim test
> > > > Set Monde = New ADODB.Recordset
> > > > Set Section = New ADODB.Recordset
> > > > Set Zone = New ADODB.Recordset
> > > >
> > > > Set BD_Monde = New ADODB.Connection
> > > > Set BD_Section = New ADODB.Connection
> > > > Set BD_Zone = New ADODB.Connection
> > > >
> > > > BD_Monde.CursorLocation = adUseClient
> > > > BD_Monde.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > > "jet OLEDB:database Password='MDP';" & _
> > > > "Data Source=SMWE.mdb;" & _
> > > > "Mode=ReadWrite;" & _
> > > > "Persist Security Info=True"
> > > > BD_Monde.Open
> > > > Monde.Open "Select * from Monde ", BD_Monde, adOpenDynamic, adLockOptimistic
> > > >
> > > >
> > > > BD_Section.CursorLocation = adUseClient
> > > > BD_Section.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > > "jet OLEDB:database Password='MDP';" & _
> > > > "Data Source=SMWE.mdb;" & _
> > > > "Mode=ReadWrite;" & _
> > > > "Persist Security Info=True"
> > > > BD_Section.Open
> > > > Section.Open "Select * from Section where mondelienSection='1'", BD_Section, adOpenDynamic, adLockOptimistic
> > > >
> > > >
> > > > BD_Zone.CursorLocation = adUseClient
> > > > BD_Zone.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > > "jet OLEDB:database Password='MDP';" & _
> > > > "Data Source=SMWE.mdb;" & _
> > > > "Mode=ReadWrite;" & _
> > > > "Persist Security Info=True"
> > > > BD_Zone.Open
> > > > Zone.Open "Select * from Section", BD_Zone, adOpenDynamic, adLockOptimistic
> > > > End Function> > > > > > > > Le debugger me renvoie : > > > > Erreur d'exécution '-2147467259 (80004005)'La méthode 'Open' de l'objet '_Recordset' a échoué> > > > à la zone en rouge mais je ne vois vraiment pas se qui cloche?????? > > > > > > |
|
mercredi 2 avril 2003 à 18:40:41 |
Re : Erreur incompréhensible!
Crazyht
|
Le nom de la table est bien Section Attention Access respecte la case sur les nom de tables et champs A++ Crazyht :) ------------------------------- Réponse au message : ------------------------------- > un string mais même en mettant juste Select * from Section ça ne fonctionne pas > > > > ------------------------------- > Réponse au message : > ------------------------------- > > > C koi le type de mondelienSection dans ta table ? > > > > A++ > > > > Crazyht :) > > > > > > ------------------------------- > > Réponse au message : > > ------------------------------- > > > > > Aucune diférence > > > > > > > > > > > > ------------------------------- > > > Réponse au message : > > > ------------------------------- > > > > > > > Heu pk ouvrir 3 connexions sur la meme base ? > > > > > > > > Access n'etant pas un expert des acces multiples, essaie avec une seule connexion > > > > > > > > A++ > > > > > > > > Crazyht :) > > > > > > > > > > > > ------------------------------- > > > > Réponse au message : > > > > ------------------------------- > > > > > > > > > J'ai une base de données Access protégée par un mot de passe. Elle contient 3 tables (Monde, Section et Zone) avec une relation respectaant l'intégrité référentiel (un monde peut contenir pls sections et une section peut contenir pls zones) > > > > > > > > > > Voilà mon code pour ouvrir cette base : > > > > >
> > > > > Option Explicit
> > > > >
> > > > > Public BD_Monde As Connection
> > > > > Public BD_Section As Connection
> > > > > Public BD_Zone As Connection
> > > > >
> > > > > Public Monde As Recordset
> > > > > Public Section As Recordset
> > > > > Public Zone As Recordset
> > > > >
> > > > > Public Function Create_connection()
> > > > > Dim test
> > > > > Set Monde = New ADODB.Recordset
> > > > > Set Section = New ADODB.Recordset
> > > > > Set Zone = New ADODB.Recordset
> > > > >
> > > > > Set BD_Monde = New ADODB.Connection
> > > > > Set BD_Section = New ADODB.Connection
> > > > > Set BD_Zone = New ADODB.Connection
> > > > >
> > > > > BD_Monde.CursorLocation = adUseClient
> > > > > BD_Monde.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > > > "jet OLEDB:database Password='MDP';" & _
> > > > > "Data Source=SMWE.mdb;" & _
> > > > > "Mode=ReadWrite;" & _
> > > > > "Persist Security Info=True"
> > > > > BD_Monde.Open
> > > > > Monde.Open "Select * from Monde ", BD_Monde, adOpenDynamic, adLockOptimistic
> > > > >
> > > > >
> > > > > BD_Section.CursorLocation = adUseClient
> > > > > BD_Section.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > > > "jet OLEDB:database Password='MDP';" & _
> > > > > "Data Source=SMWE.mdb;" & _
> > > > > "Mode=ReadWrite;" & _
> > > > > "Persist Security Info=True"
> > > > > BD_Section.Open
> > > > > Section.Open "Select * from Section where mondelienSection='1'", BD_Section, adOpenDynamic, adLockOptimistic
> > > > >
> > > > >
> > > > > BD_Zone.CursorLocation = adUseClient
> > > > > BD_Zone.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > > > "jet OLEDB:database Password='MDP';" & _
> > > > > "Data Source=SMWE.mdb;" & _
> > > > > "Mode=ReadWrite;" & _
> > > > > "Persist Security Info=True"
> > > > > BD_Zone.Open
> > > > > Zone.Open "Select * from Section", BD_Zone, adOpenDynamic, adLockOptimistic
> > > > > End Function> > > > > > > > > > Le debugger me renvoie : > > > > > Erreur d'exécution '-2147467259 (80004005)'La méthode 'Open' de l'objet '_Recordset' a échoué> > > > > à la zone en rouge mais je ne vois vraiment pas se qui cloche?????? > > > > > > > > > > |
|
mercredi 2 avril 2003 à 18:43:42 |
Re : Erreur incompréhensible!
spomky
|
oui les maj/min sont respectées ------------------------------- Réponse au message : ------------------------------- > Le nom de la table est bien Section > > Attention Access respecte la case sur les nom de tables et champs > > A++ > > Crazyht :) > > > ------------------------------- > Réponse au message : > ------------------------------- > > > un string mais même en mettant juste Select * from Section ça ne fonctionne pas > > > > > > > > ------------------------------- > > Réponse au message : > > ------------------------------- > > > > > C koi le type de mondelienSection dans ta table ? > > > > > > A++ > > > > > > Crazyht :) > > > > > > > > > ------------------------------- > > > Réponse au message : > > > ------------------------------- > > > > > > > Aucune diférence > > > > > > > > > > > > > > > > ------------------------------- > > > > Réponse au message : > > > > ------------------------------- > > > > > > > > > Heu pk ouvrir 3 connexions sur la meme base ? > > > > > > > > > > Access n'etant pas un expert des acces multiples, essaie avec une seule connexion > > > > > > > > > > A++ > > > > > > > > > > Crazyht :) > > > > > > > > > > > > > > > ------------------------------- > > > > > Réponse au message : > > > > > ------------------------------- > > > > > > > > > > > J'ai une base de données Access protégée par un mot de passe. Elle contient 3 tables (Monde, Section et Zone) avec une relation respectaant l'intégrité référentiel (un monde peut contenir pls sections et une section peut contenir pls zones) > > > > > > > > > > > > Voilà mon code pour ouvrir cette base : > > > > > >
> > > > > > Option Explicit
> > > > > >
> > > > > > Public BD_Monde As Connection
> > > > > > Public BD_Section As Connection
> > > > > > Public BD_Zone As Connection
> > > > > >
> > > > > > Public Monde As Recordset
> > > > > > Public Section As Recordset
> > > > > > Public Zone As Recordset
> > > > > >
> > > > > > Public Function Create_connection()
> > > > > > Dim test
> > > > > > Set Monde = New ADODB.Recordset
> > > > > > Set Section = New ADODB.Recordset
> > > > > > Set Zone = New ADODB.Recordset
> > > > > >
> > > > > > Set BD_Monde = New ADODB.Connection
> > > > > > Set BD_Section = New ADODB.Connection
> > > > > > Set BD_Zone = New ADODB.Connection
> > > > > >
> > > > > > BD_Monde.CursorLocation = adUseClient
> > > > > > BD_Monde.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > > > > "jet OLEDB:database Password='MDP';" & _
> > > > > > "Data Source=SMWE.mdb;" & _
> > > > > > "Mode=ReadWrite;" & _
> > > > > > "Persist Security Info=True"
> > > > > > BD_Monde.Open
> > > > > > Monde.Open "Select * from Monde ", BD_Monde, adOpenDynamic, adLockOptimistic
> > > > > >
> > > > > >
> > > > > > BD_Section.CursorLocation = adUseClient
> > > > > > BD_Section.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > > > > "jet OLEDB:database Password='MDP';" & _
> > > > > > "Data Source=SMWE.mdb;" & _
> > > > > > "Mode=ReadWrite;" & _
> > > > > > "Persist Security Info=True"
> > > > > > BD_Section.Open
> > > > > > Section.Open "Select * from Section where mondelienSection='1'", BD_Section, adOpenDynamic, adLockOptimistic
> > > > > >
> > > > > >
> > > > > > BD_Zone.CursorLocation = adUseClient
> > > > > > BD_Zone.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > > > > "jet OLEDB:database Password='MDP';" & _
> > > > > > "Data Source=SMWE.mdb;" & _
> > > > > > "Mode=ReadWrite;" & _
> > > > > > "Persist Security Info=True"
> > > > > > BD_Zone.Open
> > > > > > Zone.Open "Select * from Section", BD_Zone, adOpenDynamic, adLockOptimistic
> > > > > > End Function> > > > > > > > > > > > Le debugger me renvoie : > > > > > > Erreur d'exécution '-2147467259 (80004005)'La méthode 'Open' de l'objet '_Recordset' a échoué> > > > > > à la zone en rouge mais je ne vois vraiment pas se qui cloche?????? > > > > > > > > > > > > > > > |
|
mercredi 2 avril 2003 à 19:00:47 |
Re : Erreur incompréhensible!
spomky
|
je viens de tester sans mot de passe et en convertissant le base en access 97 sans aucun résultat. ------------------------------- Réponse au message : ------------------------------- > oui les maj/min sont respectées > > > > ------------------------------- > Réponse au message : > ------------------------------- > > > Le nom de la table est bien Section > > > > Attention Access respecte la case sur les nom de tables et champs > > > > A++ > > > > Crazyht :) > > > > > > ------------------------------- > > Réponse au message : > > ------------------------------- > > > > > un string mais même en mettant juste Select * from Section ça ne fonctionne pas > > > > > > > > > > > > ------------------------------- > > > Réponse au message : > > > ------------------------------- > > > > > > > C koi le type de mondelienSection dans ta table ? > > > > > > > > A++ > > > > > > > > Crazyht :) > > > > > > > > > > > > ------------------------------- > > > > Réponse au message : > > > > ------------------------------- > > > > > > > > > Aucune diférence > > > > > > > > > > > > > > > > > > > > ------------------------------- > > > > > Réponse au message : > > > > > ------------------------------- > > > > > > > > > > > Heu pk ouvrir 3 connexions sur la meme base ? > > > > > > > > > > > > Access n'etant pas un expert des acces multiples, essaie avec une seule connexion > > > > > > > > > > > > A++ > > > > > > > > > > > > Crazyht :) > > > > > > > > > > > > > > > > > > ------------------------------- > > > > > > Réponse au message : > > > > > > ------------------------------- > > > > > > > > > > > > > J'ai une base de données Access protégée par un mot de passe. Elle contient 3 tables (Monde, Section et Zone) avec une relation respectaant l'intégrité référentiel (un monde peut contenir pls sections et une section peut contenir pls zones) > > > > > > > > > > > > > > Voilà mon code pour ouvrir cette base : > > > > > > >
> > > > > > > Option Explicit
> > > > > > >
> > > > > > > Public BD_Monde As Connection
> > > > > > > Public BD_Section As Connection
> > > > > > > Public BD_Zone As Connection
> > > > > > >
> > > > > > > Public Monde As Recordset
> > > > > > > Public Section As Recordset
> > > > > > > Public Zone As Recordset
> > > > > > >
> > > > > > > Public Function Create_connection()
> > > > > > > Dim test
> > > > > > > Set Monde = New ADODB.Recordset
> > > > > > > Set Section = New ADODB.Recordset
> > > > > > > Set Zone = New ADODB.Recordset
> > > > > > >
> > > > > > > Set BD_Monde = New ADODB.Connection
> > > > > > > Set BD_Section = New ADODB.Connection
> > > > > > > Set BD_Zone = New ADODB.Connection
> > > > > > >
> > > > > > > BD_Monde.CursorLocation = adUseClient
> > > > > > > BD_Monde.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > > > > > "jet OLEDB:database Password='MDP';" & _
> > > > > > > "Data Source=SMWE.mdb;" & _
> > > > > > > "Mode=ReadWrite;" & _
> > > > > > > "Persist Security Info=True"
> > > > > > > BD_Monde.Open
> > > > > > > Monde.Open "Select * from Monde ", BD_Monde, adOpenDynamic, adLockOptimistic
> > > > > > >
> > > > > > >
> > > > > > > BD_Section.CursorLocation = adUseClient
> > > > > > > BD_Section.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > > > > > "jet OLEDB:database Password='MDP';" & _
> > > > > > > "Data Source=SMWE.mdb;" & _
> > > > > > > "Mode=ReadWrite;" & _
> > > > > > > "Persist Security Info=True"
> > > > > > > BD_Section.Open
> > > > > > > Section.Open "Select * from Section where mondelienSection='1'", BD_Section, adOpenDynamic, adLockOptimistic
> > > > > > >
> > > > > > >
> > > > > > > BD_Zone.CursorLocation = adUseClient
> > > > > > > BD_Zone.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> > > > > > > "jet OLEDB:database Password='MDP';" & _
> > > > > > > "Data Source=SMWE.mdb;" & _
> > > > > > > "Mode=ReadWrite;" & _
> > > > > > > "Persist Security Info=True"
> > > > > > > BD_Zone.Open
> > > > > > > Zone.Open "Select * from Section", BD_Zone, adOpenDynamic, adLockOptimistic
> > > > > > > End Function> > > > > > > > > > > > > > Le debugger me renvoie : > > > > > > > Erreur d'exécution '-2147467259 (80004005)'La méthode 'Open' de l'objet '_Recordset' a échoué> > > > > > > à la zone en rouge mais je ne vois vraiment pas se qui cloche?????? > > > > > > > > > > > > > > > > > > > > > |
|
jeudi 16 septembre 2004 à 11:27:51 |
Re : Erreur incompréhensible!
tbbuim1
|
Essaye avec un ";" à la fin de ta requête...
TBBUIM
|
|
mardi 21 septembre 2004 à 14:44:29 |
Re : Erreur incompréhensible!
tjaal
|
Il semblerait que le nom "SECTION" soit un mot réservé à Access
j'avais le même problème que toi. J'avais une table qui se nommait "Section" quand j'appelais cette table dans mon application VB j'avais le même code d'erreur que toi. J'ai renommer ma table "Section_t" et tout fonctionne.
Math
|
|
Cette discussion est classée dans : public, bd, monde, zone, section
 Répondre à ce message
 Sujets en rapport avec ce message
récuperer la zone définit dans un autre prog [ par PnoireVB ]
bonjour tous le monde,en fait j'ai repris un prog VB d'un autre programmeur.Ce prog lance un logiciel de dessin.j'interragi avec ce log grace au sendk
Déclarer des classes [ par tchouctchouc ]
Bonjour, J'ai une question au sujet de la creation de classe. Je ne suis pas encore bien familiarisé avec les objet alors j'espère que vous allez m'
Variables globales interne à une liste [ par Ceubex ]
Bonjour, J'ai une structure Po (avec public devant structure) qui a une propriété ordre J'ai une variable déclaré comme il suit: Public Shared zone A
Variable public commune à tous [ par Bikarfioul ]
Salut à tous ! Je suis en train de faire un projet constitué de plusieurs Form mais j?ai une variable qui est commune à chaque Source de feuille. Je
Zone de text [ par veler ]
Salut tous le monde, je débute dans le visual basic en utilisant Visual Basic 2005 Express (auccun rapport lol) et je cherche à mettre dans ma from u
vb.net datagridview update une bd ACCES [ par rapidozoo ]
Salut a tous Je fait un application en VB.NET qui affiche / edit, les info d'une BD ACCESS. l'affichage dans la datagridview marche bien, mais quan
Zone de liste modifiable [ par jeanjeandada ]
Bonjour le Forum, je fais appel à vous après des recherche infructueuses sur le net. Voilà j'utilise un UserForm d'Excel. Dans ce UserForm j'ai un co
Remplir une zone de texte dans un Iframe [ par chefinf ]
Bonjour, SVP je me suis bloqué, Je developpe une application avec VB et Je cherche comment remplir une zone de texte dont l'ID est "T1" qui se trouv
[Déplacé .NET -> VBA]Macro pour Copier une zone d'une feuille de calcule X fois [ par aouaoua ]
Bonjour le Forum actuellement je suis sur un travaille qui consiste a reproduire une zone qui comporte un formulaire qui devrait étre reproduit X fois
vba fonction classe static [ par forX ]
je voulais savoir comment faire une classe avec des fonctions static sur vba en c# c simple [code=cs]public class demo { public static int Number
 Livres en rapport
|
Derniers Blogs
 XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|