Bonjour, je développe une appli Excel - Access avec des liaisons VBA
Je souhaiterais, pour mes fonctions d'import - export VBA utiliser des
requêtes prédéfinies avec Access.
Est-ce possible d'appeler ces requêtes dans mon code?
Si oui comment? :)
Oui, tu crées les requêtes dans la base de données Access et tu les appelles avec le code que je t'ai donné. Tu as juste besoin de mettre la référence à Microsoft ADO. J'ai lu des commentaires avec une référence à l'application Access. Tu n'en as pas du tout besoin. C'est ADO qui se charge du dialogue avec la base de donnees.
Si besoin, fais-moi sine ou envois-moi un email à mon adresse personnelle.
Bonne journée.
-- Patrick
"Laurent M" wrote in message news:
Si je comprends bien ton code (ce qui n'est pas tout à fait sûr), on créé une requête Access dotée de paramètres,et celle-ci est ensuite exécutée mais est-ce que cela correspond à la transcriptioon vba d'une requête access?
Ce que je souhaite faire c'est de stocker mes requêtes dans Access puis de les reutiliser dans mon code vba.
Bonjour,
Je pense que ce bout de code devrait t'aider. Il faut utiliser la référence à Microsoft ADO.
Dim adoCmd As ADODB.Command Dim adoConn As ADODB.Connection Dim adoRS As ADODB.Recordset
'Connexion à la base de données 'sAccessDB est une variable avec le nom et le chemin complet de la base Access Set adoConn = New ADODB.Connection adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sAccessDB & "; USER IDmin; PASSWORD=;"
Set adoCmd = New ADODB.Command With adoCmd .ActiveConnection = adoConn 'Nom de la requête .CommandText = "qryPayrollImport" .CommandType = adCmdStoredProc 'Paramètres définis dans la requête .Parameters.Append .CreateParameter("pCycle", adVarChar, adParamInput, 16, sCompSel) .Parameters.Append .CreateParameter("pWorkDate", adDate, adParamInput, , UpdateDate) 'Exécution de la requête Set adoRS = adoCmd.Execute End With
'Ferme la connexion Set adoRS = Nothing Set adoCmd = Nothing Set adoConn = Nothing
Bon courage.
-- Patrick
"Laurent M" wrote in message news:
Bonjour, je développe une appli Excel - Access avec des liaisons VBA Je souhaiterais, pour mes fonctions d'import - export VBA utiliser des requêtes prédéfinies avec Access. Est-ce possible d'appeler ces requêtes dans mon code? Si oui comment? :)
Merci beaucoup !
Bonjour,
Excuse-moi de t'avoir abandonné hier.
Oui, tu crées les requêtes dans la base de données Access et tu les appelles
avec le code que je t'ai donné. Tu as juste besoin de mettre la référence à
Microsoft ADO. J'ai lu des commentaires avec une référence à l'application
Access. Tu n'en as pas du tout besoin. C'est ADO qui se charge du dialogue
avec la base de donnees.
Si besoin, fais-moi sine ou envois-moi un email à mon adresse personnelle.
Bonne journée.
--
Patrick
"Laurent M" <LaurentM@discussions.microsoft.com> wrote in message
news:4FE1E404-8F99-4216-86F3-C320A67F5A17@microsoft.com...
Si je comprends bien ton code (ce qui n'est pas tout à fait sûr), on créé
une
requête Access dotée de paramètres,et celle-ci est ensuite exécutée
mais est-ce que cela correspond à la transcriptioon vba d'une requête
access?
Ce que je souhaite faire c'est de stocker mes requêtes dans Access puis de
les reutiliser dans mon code vba.
Bonjour,
Je pense que ce bout de code devrait t'aider. Il faut utiliser la
référence
à Microsoft ADO.
Dim adoCmd As ADODB.Command
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
'Connexion à la base de données
'sAccessDB est une variable avec le nom et le chemin complet de la base
Access
Set adoConn = New ADODB.Connection
adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &
sAccessDB & "; USER IDmin; PASSWORD=;"
Set adoCmd = New ADODB.Command
With adoCmd
.ActiveConnection = adoConn
'Nom de la requête
.CommandText = "qryPayrollImport"
.CommandType = adCmdStoredProc
'Paramètres définis dans la requête
.Parameters.Append .CreateParameter("pCycle", adVarChar,
adParamInput, 16, sCompSel)
.Parameters.Append .CreateParameter("pWorkDate", adDate,
adParamInput, , UpdateDate)
'Exécution de la requête
Set adoRS = adoCmd.Execute
End With
'Ferme la connexion
Set adoRS = Nothing
Set adoCmd = Nothing
Set adoConn = Nothing
Bon courage.
--
Patrick
"Laurent M" <LaurentM@discussions.microsoft.com> wrote in message
news:813C5DDE-9913-4F1E-8B51-E8B0994430B3@microsoft.com...
Bonjour, je développe une appli Excel - Access avec des liaisons VBA
Je souhaiterais, pour mes fonctions d'import - export VBA utiliser des
requêtes prédéfinies avec Access.
Est-ce possible d'appeler ces requêtes dans mon code?
Si oui comment? :)
Oui, tu crées les requêtes dans la base de données Access et tu les appelles avec le code que je t'ai donné. Tu as juste besoin de mettre la référence à Microsoft ADO. J'ai lu des commentaires avec une référence à l'application Access. Tu n'en as pas du tout besoin. C'est ADO qui se charge du dialogue avec la base de donnees.
Si besoin, fais-moi sine ou envois-moi un email à mon adresse personnelle.
Bonne journée.
-- Patrick
"Laurent M" wrote in message news:
Si je comprends bien ton code (ce qui n'est pas tout à fait sûr), on créé une requête Access dotée de paramètres,et celle-ci est ensuite exécutée mais est-ce que cela correspond à la transcriptioon vba d'une requête access?
Ce que je souhaite faire c'est de stocker mes requêtes dans Access puis de les reutiliser dans mon code vba.
Bonjour,
Je pense que ce bout de code devrait t'aider. Il faut utiliser la référence à Microsoft ADO.
Dim adoCmd As ADODB.Command Dim adoConn As ADODB.Connection Dim adoRS As ADODB.Recordset
'Connexion à la base de données 'sAccessDB est une variable avec le nom et le chemin complet de la base Access Set adoConn = New ADODB.Connection adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sAccessDB & "; USER IDmin; PASSWORD=;"
Set adoCmd = New ADODB.Command With adoCmd .ActiveConnection = adoConn 'Nom de la requête .CommandText = "qryPayrollImport" .CommandType = adCmdStoredProc 'Paramètres définis dans la requête .Parameters.Append .CreateParameter("pCycle", adVarChar, adParamInput, 16, sCompSel) .Parameters.Append .CreateParameter("pWorkDate", adDate, adParamInput, , UpdateDate) 'Exécution de la requête Set adoRS = adoCmd.Execute End With
'Ferme la connexion Set adoRS = Nothing Set adoCmd = Nothing Set adoConn = Nothing
Bon courage.
-- Patrick
"Laurent M" wrote in message news:
Bonjour, je développe une appli Excel - Access avec des liaisons VBA Je souhaiterais, pour mes fonctions d'import - export VBA utiliser des requêtes prédéfinies avec Access. Est-ce possible d'appeler ces requêtes dans mon code? Si oui comment? :)
