可能有很多的朋友都遇見過這樣一個問題：想把一些經(jīng)常會變的代碼寫成VBS腳本，當想改變程序的時候只要改變該腳本即可.
VB中調(diào)用如下:
Set Genvb = CreateSet ado = CreateObject("ADOSet rs = CreateObject("adodb.recordset")
ado.ConnectionString = m_Ado.ConnectionString
ado.Open
GenVb.AddObject m_Grid, "m_Grid"
GenVb.AddObject ado, "ado"
GenVb.AddObject rs, "rs"
ret = GenVb.RunScript("c:\vbtest\Test.Vbs")
If ret = -1 Then
MsgBox "error"
End If
test.vbs腳本如下:
Dim sql
Dim i
m_Grid.Cols = 6
m_Grid.Rows = 1
m_Grid.FixedCols = 0
m_Grid.TextMatrix(0, 0) = "姓名"
m_Grid.TextMatrix(0, 1) = "語文"
m_Grid.TextMatrix(0, 2) = "數(shù)學"
m_Grid.TextMatrix(0, 3) = "英語"
m_Grid.TextMatrix(0, 4) = "合計"
m_Grid.TextMatrix(0, 5) = "平均"
sql = "select * FROM cj,student where cj.id=student.id "
rs.Open sql, ado, 1, 3
Do While Not rs.EOF
m_Grid.AddItem ("")
i = m_Grid.Rows
i = i - 1
m_Grid.TextMatrix(i, 0) = rs("xm")
m_Grid.TextMatrix(i, 1) = rs("yw")
m_Grid.TextMatrix(i, 2) = rs("sx")
m_Grid.TextMatrix(i, 3) = rs("yy")
m_Grid.TextMatrix(i, 4) = (rs("yw") + rs("sx") + rs("yy")) / 3
m_Grid.TextMatrix(i, 5) = rs("yw") + rs("sx") + rs("yy")
rs.MoveNext
Loop
rs.Close
想看看的朋友請聯(lián)系Mailto::zcg2000
