Creer une connexion vers une base SQL

Version imprimable

17/03/2010, 09h06
bigfoot75

Creer une connexion vers une base SQL

Bonjour,

Je cherche a creer une connexion vers une base SQL et lancer une requete SQL lorsque je clique sur un bouton

Le bouton est cree ( facile !! ) - j'ai tous les paramètres de ma base sql, j'ai aussi ma requete ....

Aujourd'hui je passe par le menu DONNEE / DONNEES EXTERNE je creer ma connexion, j'entre les paramètres, je colle ma requette SQL ....

De facon reguliere je viens mettre a jour les données en cliquant sur ACTUALISER TOUT

Comme je vais devoir faire ca de facon répéter je voulais creer un modele excel, creer une variable en A1 qui serait le paramètre variable de ma requete SQL ( je souhaite creer un fichier par parametre - car je dois l'envoyer a des personnes differentes )

Est il possible que cette connexion apparaisse aussi dans le menu DONNEE/CONNEXION afin de la mettre a jour manuellement ? et facilement ? ( au cas ou je voudrais voir la tete de la requete SQL aussi )

PS : la base SQL n'a pas besoin de nom de user et mdp, tout le monde a le droits d'attaquer la base avec son compte courrant .....

Ps2 : c'est que de la lecture ... aucune écriture

Merci

Bonjour,

tout d'abord, il faut savoir qu'il n'existe pas de BdD SQL, le sql est un langage permettant d'intervenir sur ta base de données; il faut connaître ton SGBD :

Access,
Oracle,
Sybase,
MySQL
...
...

ensuite voilà comment on "attaque" une BdD Oracle par exemple :

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
Private Sub CommandButton2_Click()
 On Error Resume Next
   Dim n As Integer
 
       USER = "mon_login"
       MDP = "mon_password"
       DRV_ODBC = "Microsoft ODBC for Oracle"
       INSTANCE = "le_lien_ODBC_de_ta_Base"
       PL_SQL = "ici tu as le code de ta requette SQL"
 
             With Sheets("resultat_requette")
              Sheets("resultat_requette").Select
              Range("A1").Select
              Cells.Select
              Selection.ClearContents
              Selection.QueryTable.Delete
              Range("A1").Select
             End With
 
            With ActiveSheet.QueryTables.Add(Connection:= _
             "ODBC;DRIVER={" & DRV_ODBC & "};UID=" & USER & ";PWD=" & MDP & ";SERVER=" & INSTANCE & ";", Destination:=Range("A1"))
             .Sql = PL_SQL
             .FieldNames = False
             .HasAutoFormat = False
             .Refresh BackgroundQuery:=False
             .RefreshStyle = xlOverwriteCells
             .AdjustColumnWidth = False
             Sheets("Feuil1").Select
           End With

voilà, à adapter en fonction de ton SGBD.

17/03/2010, 11h42
bigfoot75

Bonjour,

Oui excuse moi,

j'attaque une base avec ca
Provider=SQLOLEDB

Est ce que ta manip, permet de voir les connexion creee dans le menu CONNEXION du classeur sous excel ???

merci
17/03/2010, 19h31
Basicnav

Re,

non, tu ne peux pas voir les connexions puisqu'elles sont fermées avec le "end with" et je ne pense pas que tu auras le temps d'accéder aux infos pendant le déroulement de la requêtte.

Après, je pense pas dire de bêtise en mettant le code de ta requêtte dans une cellule par exemple