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:

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
Mon script devra s’exécuter tout seul sur un serveur (sans excel) tout les jours.

Par ou je doit commencer pour réaliser la connexion avec ma base SQL en vbs.
Auriez-vous des exemple?

Merci

guigui69