Bonjour à tous,
Je voudrait savoir si il est possible de créer un script vbs pour:
- se connecter a une base mssql (2000),
- récupérer le résultat
- créer un fichier CSV et le remplir avec le résultat de la base.
Sous excel j'arrive à interroger une base SQL et a retourner le résultat dans mon excel.
voici le bout code que j'utilise:
Mon script devra s’exécuter tout seul sur un serveur (sans excel) tout les jours.
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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 Sub Macro1() Dim valcel As String Dim cnBat As ADODB.Connection Set cnBat = New ADODB.Connection Dim strConn As String strConn = "PROVIDER=SQLOLEDB;" strConn = strConn & "DATA SOURCE=**;UID=**;PWD=*;DATABASE=***" cnBat.Open strConn '------------------ Dim rsBat As ADODB.Recordset Set rsBat = New ADODB.Recordset With rsBat .ActiveConnection = cnBat .Open "SELECT emp, puntoventa FROM tgptoventa" Do While Not rsBat.EOF Loop .Close End With cnBat.Close Set rsBat = Nothing Set cnBat = Nothing End Sub
Par ou je doit commencer pour réaliser la connexion avec ma base SQL en vbs.
Auriez-vous des exemple?
Merci
guigui69
Partager