[E-03] Integrer une requete Microsoft query dans VBA Excel

Version imprimable

Bonjour,

je desire integrer cette requete SQL que j'ai creer a partir de Microsoft query et l'utiliser directement dans une macro VBA afin de l'executer a partir de la. C'est a dire que je veux tout simplement faire executer cette requete directement a partir d'une macro au lieu de lancer la requete microsoft query a l'ouverture de mon fichier.
Est-ce possible ? Si oui, pourriez-vous m'aider a accomplir cela svp.

Voici ma requete :
Code:

1 2 3 SELECT asset.long_descp, ast_book.ast_id, ast_book.ast_book_nbr, ast_book.ast_entity_id, ast_book.ast_tot_cost, ast_book.ltd_depr_amt, ast_book.current_depr_amt, ast_book.depr_status_code, ast_book.ytd_depr_amt FROM DBSfast.dbo.asset asset, DBSfast.dbo.ast_book ast_book WHERE ast_book.ast_entity_id = asset.ast_entity_id AND ast_book.ast_id = asset.ast_id AND ((ast_book.depr_status_code='F') AND (asset.ast_id Like '8%') OR (ast_book.depr_status_code='D') AND (asset.ast_id Like '8%') OR (ast_book.depr_status_code='N') AND (asset.ast_id Like '8%'))
Merci pour votre aide d'avance ! ;)

24/10/2008, 15h11
decondelite

C'est une requête pour quel type de base de données?
24/10/2008, 15h14
Mimosa777

C'est une base de donnee Sybase!
24/10/2008, 15h38
decondelite

Désolé je n'y connais strictement rien, mais je pense que tu peux trouver la réponse à ta question soit sur les tutos/FAQ de Sybase sur le site, soit sur la section Sybase des forums. ;)
24/10/2008, 16h01
cafeine

Hello,

je ne connais pas Sybase, mais j'imagine que tu dois pouvoir utiliser ADO ou DAO pour te connecter à cette base et récupérer les données d'un recordset dépendant de ton instruction SQL.
24/10/2008, 16h54
Mimosa777

Je vais regarder au niveau de ADO ! Merci

J'utilise personnellement le syntaxe suivant:
Code:

1 2 3 4 5 6 7 8 9 With ActiveSheet.QueryTables("Toto") .Connection = ConnectionIDString .Sql = QueryText .PreserveFormatting = False .AdjustColumnWidth = True .Refresh End With
où QueryText est le texte de ta requête et Toto - le nom de la plage de résultats prédéfinie (utiliser la méthode add pour la créer la 1ère fois)

Je ne sais pas si c'est ce que tu recherches...

13/11/2008, 11h24
Godzestla

Bonjour Mimosa77,

rien de tel que l'enregistreur de macro pour ta problématique.

Via Data -> Import External data -> Import data ou New database Query

Et le code généré t'en dira long sur ce que tu cherches.
Surtout si ta requète Microsoft SQL (DQY) existe déjà. ;)

Bonjour,
J'ai fait des requêtes de ce type en utilisant l'enregistreur de macro et en faisant ma requête par msquery et ça marche très bien.
J'ai testé sur du mysql et du postgré.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=chaine connexion;uid=utilisateur;pwd=mot de passe", _
        Destination:=Range("A1"))
        .CommandText = Array( _
        SELECT * FROM toto ..... etc _
        )
        .Name = instruction
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
 
    End With

Tu peux même mettre une variable à la place de la requête.

EDIT : grillé ...

13/11/2008, 14h55
Mimosa777

Merci beaucoup a tous.. effectivement, en utilisant l'enregistreur de macro, ca repond bien a mon besoin.

Merci a tous de votre aide. :king::yaisse2: