wincc vbs mysql_Wincc VBS操作txt及SQL2005

系统:Win7 32Bits 旗舰版

wincc: 7.0 sp3英文版

Dim strConnectionString

Dim objConnection

Dim objCommand

Dim strSQL

Dim Rs

Dim sday

Dim smonth

Dim eday

Dim emonth

Dim str1

Dim str2

Dim temp

Dim sqlwhere

Dim msg

Dim CDG, WSH, FilePath

Dim fso, fo, sl

Dim read_temp

Dim OrderFileName

Dim ProductFileName

Dim Source

Dim SourceRow

Dim SourceCell

Dim i, j, k, m

Dim reDateStart, reDateEnd  '日期控件

Dim reordergrid, reworkgrid 'MSHFlexGrid控件

Dim orderwin

Dim sum

Const ForWriting = 2

Const ForReading = 1

Set reDateStart = ScreenItems("DateStart")

Set reDateEnd = ScreenItems("DateEnd")

Set reordergrid = ScreenItems("ordergrid")

Set reworkgrid = ScreenItems("workgrid")

Set orderwin = ScreenItems("InsertWindow")

Set fso = CreateObject("Scripting.FileSystemObject")

OrderFileName = HMIRuntime.ActiveProject.Path + "\Order.csv"

ProductFileName = HMIRuntime.ActiveProject.Path + "\Finish_History.csv"

'Update file for writing SQL Data

Set fo = fso.CreateTextFile(ProductFileName, True)

fo.Close

str1 = Left(reDateStart.Value, 10)'CStr(reDate_start.Year) + "-" + smonth + "-" + sday

str2 = Left(reDateEnd.Value, 10)'CStr(reDate_end.Year) + "-" + emonth + "-" + eday

sqlwhere = "Select * from Finish_History where " + "Start_Date