Script Connexion base mssql,résultat dans fichier csv

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:

---

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

Bonjour,

voici mon fichier si ca peut aider quelqu'un:

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 41 42 43 44 45 46 47 48 49 50 51 52 53 54

Dim fso,of1 Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") Set fso = CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForWriting = 2, ForAppending = 8 conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=IP;UID=LOGIN;PWD=PASSWORD;DATABASE=BDD" 'msgbox "OK"     chemin= Replace(WScript.ScriptFullName, WScript.ScriptName, "")     'MsgBox chemin     Set f = fso.OpenTextFile("web.sql", ForReading) une_variable = f.ReadAll f.Close   rs.Open une_variable, conn   If rs.EOF Then 'msgbox "NOK" Else   '-------------------------- if fso.FileExists("web.csv") then Set of1 = fso.GetFile("web.csv")   'msgbox (chemin &"archives\web-dc-" & Replace( Left(of1.DateCreated,10),"/", "-") & "-dm-" & Replace( Left(Date(),10),"/", "-") & "-" & Replace( Left(Time(),10),":", "-") & ".csv") of1.Move chemin &"archives\web-dc-" & Replace( Left(of1.DateCreated,10),"/", "-") & "-dm-" & Replace( Left(Date(),10),"/", "-") & "-" & Replace( Left(Time(),10),":", "-") & ".csv"   End if '---------------------------------- Set o = fso.OpenTextFile("web.csv", ForWriting,true)   Do While NOT rs.Eof o.write( rs("Site") &";"& rs("No_VN") &";"& rs("Chasis")& ";"& rs("code_marque")& ";"& rs("Marque")& ";"& rs("CodeVersion")& ";"& rs("Version")& ";"& rs("Code_teinte")& ";"& rs("Teinte")& ";"& rs("tarif")& ";"& rs("date_tarif")& ";"& rs("Codes_options")& ";"& rs("Libelles_Options")& ";"& rs("Anciennete")& ";"& rs("CodeSellerie")& ";"& rs("SellerieInterieure")& ";"& rs("genre")& vbCrLf ) rs.MoveNext Loop o.Close   Dim shell Set shell = CreateObject("WScript.Shell") 'msgbox ("ftp -n -s:" & chemin & "ftp.txt") shell.Run "ftp -n -s:""" & chemin & "ftp.txt""", 0 End If         rs.Close Set rs=nothing

---

Le script:
-Se connecter a la BDD.
- récupère la requête contenue dans un fichier txt.
- exécute la requête puis récupère le résultat.
-vérifier si le fichier existe.
- Copie de sauvegarde du précédent fichier.
- Alimente le fichier.
- Enregistrer.
- Et envoi le fichier en FTP.

guigui69