Astuces Excel
  1. Astuces Excel
  3. Erreur 80004005 lors de l'exécution de la requête dans ADODB (VBA, Excel et Acccess 2010)
Intereting Posts
VBA Error 13 Type Sismatch Limiter le contrôle du calendar de sélecteur de date dans Excel 2013 à une seule colonne et à une ligne totale Les valeurs de Combobox se réinitialisent à la valeur par défaut – vba excel Correspond à 2 colonnes dans 2 feuilles de travail et à remplir des informations Poster / envoyer des valeurs aux cellules dans un file Excel et extraire le résultat d'une cellule spécifique? Appliquez une mise en forme conditionnelle à plusieurs lignes Le pilote Excel ne lisant pas datatables en tant que text, même si IMEX = 1 Comment puis-je écrire dans une adresse de cellule qui est définie comme une variable? Déclenchement d'un événement en cliquant sur Graphiques VBA excel multiline search de string Complément Excel supprimé sans consentement Fonction personnalisée pour countr le nombre de cellules usées dans une colonne dans Excel 2010 Comment countr les dernières valeurs avant chaque zéro? La date de gembox.spreadsheet est convertie en int Recherche et sum basée sur la sélection

Erreur 80004005 lors de l'exécution de la requête dans ADODB (VBA, Excel et Acccess 2010)

J'ai un problème que je ne peux pas me résoudre. J'ai une database Access où j'essaie de créer un set de requêtes en utilisant VBA dans Excel à l'aide d'ADODB.

J'ai plusieurs requêtes qui ont été créées avec succès, c'est-à-dire. celui ci-dessous ici. La seconde ne fonctionnera cependant pas. Si je copy la requête manuellement dans la database d'access (De SELECT et forward) et que save est "DK_Teledata_1", ça marche parfaitement 

CREATE PROCEDURE DK_Aktiviteter_Union_1 AS SELECT DK_Aktivitet.År FROM DK_Aktivitet;

Et celui qui ne fonctionne pas 

 CREATE PROCEDURE DK_Teledata_1 AS SELECT DK_Teledata.Dato FROM DK_Teledata INNER JOIN Time_Intervals ON DK_Teledata.Interval = Time_Intervals.Time_Interval;

Les requêtes suivantes avec les mêmes données sont créées sans aucun problème: 

 CREATE PROCEDURE DK_Teledata_1 AS SELECT * FROM DK_Teledata; CREATE PROCEDURE DK_Teledata_1 AS SELECT * FROM Time_Intervals; CREATE PROCEDURE DK_Teledata_1 AS SELECT * FROM Time_Intervals, DK_Teledata;

Dès que je crée la jointure ou que j'utilise un "WHERE DK_Teledata.Interval = Time_Intervals.Time_Interval", il échoue.

Les champs Intervalons et Time_Intervals sont tous deux des champs Texte avec la même longueur et les mêmes propriétés.

Aidez-nous!

Merci beaucoup Martin

Utilisation d'Excel 2010, file de database accdb et string de fournisseur "Microsoft.ACE.OLEDB.12.0".

Comme une hypothèse sauvage, je vous suggère de replace CREATE VIEW pour CREATE PROCEDURE .

Si cela ne fonctionne pas non plus, vous pouvez utiliser DAO pour créer votre requête. 

 Dim strSql As Ssortingng Dim db As DAO.Database Dim qdf As DAO.QueryDef strSql = "SELECT DK_Teledata.Dato" & vbCrLf & _ "FROM DK_Teledata INNER JOIN Time_Intervals" & vbCrLf & _ "ON DK_Teledata.Interval = Time_Intervals.Time_Interval;" Set db = OpenDatabase("C:\db_folder\your.accdb", True, False) Set qdf = db.CreateQueryDef("DK_Teledata_1", strSql)

Ce code utilise une binding anticipée, donc il faut définir une reference. Mais vous pourriez faire la même chose avec une binding tardive qui ne nécessite pas de reference. 

 Dim strSql As Ssortingng Dim dbe As Object Dim db As Object Dim qdf As Object strSql = "SELECT DK_Teledata.Dato" & vbCrLf & _ "FROM DK_Teledata INNER JOIN Time_Intervals" & vbCrLf & _ "ON DK_Teledata.Interval = Time_Intervals.Time_Interval;" Set dbe = CreateObject("DAO.DBEngine.120") Set db = dbe.OpenDatabase("C:\db_folder\your.accdb", True, False) Set qdf = db.CreateQueryDef("DK_Teledata_1", strSql)