Discussion :

[guigui69]

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

[guigui69]

Bonjour,

voici mon fichier si ca peut aider quelqu'un:

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
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