[XL-2010] créer une connexion excel vers Sybase via une requête sous VBA

créer une connexion excel vers Sybase via une requête sous VBA

Bonjour à tous,

Je travaille sur une base de données que je récupére grace à une requette SQL sous Sybase, sachant que je fais ça régulierement et que à chaque fois je copie colle les données.
je sais qu'on peut créer une connexion de données vers sybase sous excel, mais quand je veux mettre à jour la requette ça plante à chaque fois.
existe-il un code vba qui permetrrait d'automatiser la tache ?
Ou meme juste sous excel, l'essentiel que je puisse mettre à jour à chaque fois en changeant juste la requette, car la je suis obligé de refaire la connexion en entier.

Je vous remercie pour vos réponses.

Cordialement,
Freudsw

Bonjour,

j'ai réussi à faire un code avec l'enregistreur de macro et qui marche bien.

ce que je voudrais faire maintenant, c'est d'integrer une variable dans la requette SQL, car il n'y a que la date qui devra changer à chaque fois.

donc dans la requette suivante : select * from FMTB.dbo.RefactionCentrale where AsofDate= '20150731'
y a-t-il un moyen qui permet de mettre la date dans une cellule au lieu de venir la changer à chaque fois dans le code ?

voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Macro1()
    With ActiveWorkbook.Connections("FMTB").OLEDBConnection
        .BackgroundQuery = True
        .CommandText = Array( _
        "select * from FMTB.dbo.RefactionCentrale where AsofDate= '20150731'")
        .CommandType = xlCmdSql
        .Connection = Array( _
        "OLEDB;Provider=ASEOLEDB.1;Password=motdepasse;Persist Security Info=True;User ID=identifiant;Data Source=msfodopus.cib.net:1050;Mode=Read" _
        , _
        ";Extended Properties="""";Initial Catalog=FMTB;WorkStation ID="""";Application Name="""";Server Name=msfodopus.cib.net;Network Protoco" _
        , _
        "l=Winsock;Server Port Address=1050;HA Server Name="""";HA Server Port Address="""";Character Set="""";Language="""";Optimize Prepare=Par" _
        , _
        "tial;Select Method=Direct;Raise Error Behavior=MS Compatible;Print Statement Behavior=MS Compatible;Extended ErrorInfo=FALSE;Sto" _
        , _
        "red Proc Row Count=Last Statement Only;Row Cache Size=50;QuotedIdentifiers=False;Packet Size=1;Default Length For Long Data=1024" _
        , _
        ";UseSybaseLDAP=0;SybaseLDAPURL="""";SybaseServerName="""";UseLDAPHAServer=0;Use SSL=0;Trusted Root File Name="""";Interfaces File="""";I" _
        , _
        "nterfaces File Server Name="""";InterfacesFileServerName="""";EnableSPColumnTypes=True;TruncateTimeTypeFractions=1;AlternateServers=" _
        , _
        """"";AllowLoadBalancing="""";AllowContextMigration="""";Normalize Unicode Strings=False;distributedtransactionprotocol=XA;tightlycoupl" _
        , _
        "edtransactions=False;enlisttransaction=False;IgnoreColumnUpdatability=False;HomogeneousBatch=False;RowsetOwnInsertVisibility=Tru" _
        , "e")
        .RefreshOnFileOpen = False
        .SavePassword = True
        .SourceConnectionFile = ""
        .SourceDataFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodNone
        .AlwaysUseConnectionFile = False
 
    End With
    With ActiveWorkbook.Connections("FMTB")
        .Name = "FMTB"
        .Description = ""
    End With
    ActiveWorkbook.Connections("FMTB").Refresh
    ActiveWorkbook.RefreshAll
End Sub

Merci pour vos réponses
Cordialement,
Freudsw

solution trouvée

re-bonjour,

c'est tout bête, il fallait déclarer deux variables, la premiere pour la date et la deuxième pour ma requette:
Code:

1 2 Dim SQL As String Dim dt As String
Ensuite je specifie dans quelle cellule se trouve ma date :

Code:

dt = Cells(15, 5).Value

et enfin j'affecte ma requette à ma variable

Code:

SQL = "select * from FMTB.dbo.RefactionCentrale where AsofDate= '" & dt & " '"

et enfin dans le code je remplace ma requette par ma variable :

Code:

.CommandText = Array(SQL)

Cordialement,
Freudsw