Discussion :

[Mimosa777]

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 sql :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[decondelite]

C'est une requête pour quel type de base de données?

[Mimosa777]

C'est une base de donnee Sybase!

[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.

[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.

[Mimosa777]

Je vais regarder au niveau de ADO ! Merci

[Snowball98]

J'utilise personnellement le syntaxe suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[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à.

[oOVaveOo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é ...

[Mimosa777]

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

Merci a tous de votre aide.