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 |