[SQL / Excel] 100 grosses requêtes à faire et VBA ne veut pas

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [SQL / Excel] 100 grosses requêtes à faire et VBA ne veut pas

JacenX

Light Years Ahead

Bonjour,

Je dois régulièrement importer les résultats de 100 requêtes SQL dans Excel.
J'ai essayé d'utiliser VBA et ODBC pour faire une macro mais certaines requétes sont trop "tordues" et ça ne passe pas.
Y'aurait-il un programme qui permette de faire des requêtes à la chaîne et de tout envoyer vers Excel?
J'ai bien vu SQL batch suite sur google mais ce n'est qu'un shareware, le site du créateur est fermé et il est donc impossible d'acheter la version définitive...

Merci!

Publicité

couak

rien à voir avec SQL, tout dépend de la manière dont tu veux le faire et avec quoi
perso j'aurais fait un script perl qui permettrait de prendre une requête SQL en paramètre et qui ressort le résultat au format CSV

Ptit loup

Quand c'est flou, y'a un loup

Excel gère très bien les requêtes SQL, même tordues !! tu pourrais faire voir ton code VBA et ta requête ?

JacenX

Light Years Ahead

Merci pour votre aide!
Bah mon code c'est du truc de bourrin qui connait rien VBA (macro enregistrée quoi )

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Firebird;Driver=Firebird/InterBase(r) driver;Dbname=server:C:\interbase.Ib;CHARSET" _
), Array("=NONE;;UID=admin" )), Destination:=Range("A1" ))
.CommandText = Array( _
"select sum((amccomprimento/1000000)*(amclargura/1000000)*m.medvalormm*c.cambitola/1000*amcpecas)" & Chr(13) & "" & Chr(10) & "from amarrado a, cabamarra c, medidas m, amacelulas ac, producaoindustrial pi, prodindamarrado pa, ind" _
, _
"ustrializacao i" & Chr(13) & "" & Chr(10) & "where pi.pridata between '05/01/2008' and '05/31/2008'" & Chr(13) & "" & Chr(10) & "and (pi.maqcodigo=44 or pi.maqcodigo=41)" & Chr(13) & "" & Chr(10) & "and pa.piaentsai='E'" & Chr(13) & "" & Chr(10) & "and piaindproduto = i.indcodigo" & Chr(13) & "" & Chr(10) & "and pi.pricodigo=pa.pricodigo" & Chr(13) & "" _
, _
"" & Chr(10) & "and pa.amacodigo=a.amacodigo" & Chr(13) & "" & Chr(10) & "and a.indcodigo=1" & Chr(13) & "" & Chr(10) & "and i.sticodigo=2" & Chr(13) & "" & Chr(10) & "and pi.ultatualizacao > '04/01/2008'" & Chr(13) & "" & Chr(10) & "and a.amacodigo=ac.amacodigo " & Chr(13) & "" & Chr(10) & "and a.camcodigo=c.camcodigo " & Chr(13) & "" & Chr(10) & "and c.medbit=m.medcodigo " & Chr(13) & "" & Chr(10) & "and a" _
, "mccomprimento>=2100000" & Chr(13) & "" & Chr(10) & "and camtipo not in ('M', '2', 'S', '3')" )
.Name = "interbase"
.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

MS query me retourne un résultat nul alors que le résultat... n'est pas nul.

Message édité par JacenX le 24-10-2008 à 22:22:27

---------------
Light Years Away.

Ptit loup

Quand c'est flou, y'a un loup

et avec une requête plus simple, il te retourne qq chose ?
le truc que je me dit... c'est est-ce que le format de date est bien pris en compte entre autre... ?

(c'est des italiens qui ont fait la base de données ???)

JacenX

Light Years Ahead

oui avec des requêtes simples j'ai les résultats escomptés.

---------------
Light Years Away.

FORUM HardWare.fr

Programmation

SQL/NoSQL

[SQL / Excel] 100 grosses requêtes à faire et VBA ne veut pas

Sujets relatifs
[Résolu]Faire évoluer une requête SQL	feuille excel -> mysql + adobe indesign
Passage de vba excel à vba access	Excel macro filtre sur onglet
SQL COPY Postgres	Macro excel called from Matlab?
Equivalent de la fonction TEXTE d Excel ?	code vba protection feuille excel sauf userform
Regrouper plusieurs classeurs excel en 1 seul
Plus de sujets relatifs à : [SQL / Excel] 100 grosses requêtes à faire et VBA ne veut pas

Page générée en 0.043 secondes