敬业的IT人 互联网 佚名 2008-1-11 20:56:10

　　可能有很多的朋友都遇见过这样一个问题：想把一些经常会变的代码写成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:vbtestTest.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

最新文章

VBScript教程 第十二课 VBScript页面的简单样..[01-11]

VBScript中的正则表达式语法详解(关于替换的问题)[01-11]

什么是 VBScript？[01-11]

★在ASP页里面注册DLL的VBScript CLASS★[01-11]

ASP中的Debug类（VBScript）[01-11]

left() 函数是 VBScript 的函数，VBScri..[01-11]

相关文章

VBScript教程 第十二课 VBScript页面的简单样..[01-11]

VBScript中的正则表达式语法详解(关于替换的问题)[01-11]

什么是 VBScript？[01-11]

★在ASP页里面注册DLL的VBScript CLASS★[01-11]

ASP中的Debug类（VBScript）[01-11]

left() 函数是 VBScript 的函数，VBScri..[01-11]