可能有很多的朋友都遇见过这样一个问题:想把一些经常会变的代码写成VBS脚本,当想改变程序的时候只要改变该脚本即可.
VB中调用如下:
Set GenVb = CreateObject("GenVB.GenVbParse") Set ado = CreateObject("ADODB.Connection") Set 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) = "数学" 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
想看看的朋友请联系:zcg2000@netease.com
[VB.NET程序]改进后的mkw3site.vbs(创建虚拟目录) [VB.NET程序]世界第一等-----无须安装WSH而执行VBS [VB.NET程序]蛙蛙推荐:VBS的数据库操作类, [VB.NET程序]实现E-mail地址验证的vbs函数代码 [VB.NET程序]VBS 中 Space 函数的应用 [VB.NET程序]目录浏览,目录在左,文件在右(VBS) [VB.NET程序]一句话木马用upfile.vbs [VB.NET程序]如何修复:Windows上面的WScript的脚本(.vbs)不能… [VB.NET程序]一道面试题, 求 1000!的位数(VBS实现) [Sql Server]一个用Wsh来控制SqlServer的Dcom的VBs
|