vbs脚本读取SQL2005中的数据

转载另一位兄弟的答案：
 写入

 Dim strcn,cn,a,b,c, d

 Dim is_SQL,rscom

 Set cn=CreateObject("ADODB.Connection")

 Set rscom=CreateObject("ADODB.Recordset")

 a=HMIRuntime.Tags("text").Read

 b=HMIRuntime.Tags("GONG").Read

 c=HMIRuntime.Tags("text2").Read

 d=FormatDateTime(Now(),0)

 strcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CC_tai3_07_06_13_10_31_54R;Data Source=.\WINCC"

 cn.ConnectionString=strcn

 is_SQL ="insert into panpi(原料,长,宽,时间 ) ValUES (''"& a &"'',''"& b &"'',''"& c &"'',''"& d &"'')"

 cn.open

 cn.Execute is_SQL

 cn.Close

 LISTVIEW读出

 Dim gocn, gorsAuthors, gorsAuthorsChange, a

 Set gocn = CreateObject("ADODB.Connection")

 Set gorsAuthors= CreateObject("ADODB.Recordset")

 gocn.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CC_tai3_07_06_13_10_31_54R;Data Source=.\WinCC"

 gorsAuthors.open "SELECT * FROM panpi where [时间] between ''2007-4-1 11:12:13'' and ''2007-7-2 10:12:12'' and 长 =4 order by 时间",gocn,  1, 3

 Dim ListView1

 Set ListView1=ScreenItems("ListView1")

 ListView1.ListItems.clear

   ListView1.ColumnHeaders.clear

   ListView1.ColumnHeaders.Add, ,"NO.",30

   ListView1.ColumnHeaders.Add, , CStr(gorsAuthors.Fields(0).Name),70

   ListView1.ColumnHeaders.Add, , CStr(gorsAuthors.Fields(1).Name),150

   ListView1.ColumnHeaders.Add, , CStr(gorsAuthors.Fields(2).Name),150

   ListView1.ColumnHeaders.Add, , CStr(gorsAuthors.Fields(3).Name),150  

 Dim row

 Dim oItem

 row = 0

 Do While gorsAuthors.EOF = False  

 row = row + 1 

    If row < 10 Then

       row = "0" & Trim(row)

    End If

    Set oItem=ListView1.ListItems.Add()

    oItem.Text = Left( CStr(row),5)

    oItem.SubItems(1) = CStr(gorsAuthors.Fields(0).Value)

    oItem.SubItems(2) = CStr(gorsAuthors.Fields(1).Value)

    oItem.SubItems(3) = CStr(gorsAuthors.Fields(2).Value)

    oItem.SubItems(4) = CStr(gorsAuthors.Fields(3).Value)   

    gorsAuthors.MoveNext  

 Loop