用于访问数据库的客户端VBScript程序-无法正常工作_Vbscript

用于访问数据库的客户端VBScript程序-无法正常工作

vbscript

用于访问数据库的客户端VBScript程序-无法正常工作,vbscript,Vbscript,我有以下VBScript客户端代码。它没有按预期工作。第一个错误是无法识别“MethodDatabase”。我错过什么了吗？我只想显示SQL Server数据库中表T中的记录 <html> <head> <title> Database Sample Program </title> <script type="text/vbscript"> Sub MethodDatabase(

我有以下VBScript客户端代码。它没有按预期工作。第一个错误是无法识别“MethodDatabase”。我错过什么了吗？我只想显示SQL Server数据库中表T中的记录

<html>
    <head>
        <title> Database Sample Program </title>
        <script type="text/vbscript">
        Sub MethodDatabase()
            Dim connection
            Dim connectionstring
            Dim rs

            Set connection = CreateObject("ADODB.Connection")
            connectionstring = "Provider=SQLOLEDB;Data Source=SQLTEST;Initial Catalog=Sample;Trusted_Connection=Yes"
            connection.Open connectionstring

            Set rs = CreateObject("ADODB.Recordset")
            rs.Open("SELECT * FROM T", connection) ' Table Name Is - "T" With Two Columns - "X" & "Y" 
            rs.MoveFirst

            While Not (rs.eof)
                MsgBox (rs.fields(0) & " - " & rs.fields(1))
                rs.MoveNext
            Wend

            rs.close
            connection.close
        End Sub
        </script>
    </head>

    <body>
        <form name="form1">
            <input type="button" name="button1" value="Click" onClick="MethodDatabase()">
        </form>
    </body>
</html>


数据库示例程序
子方法数据库（）
暗连接
暗连接字符串
暗淡的
Set connection=CreateObject（“ADODB.connection”）
connectionstring=“Provider=SQLOLEDB；数据源=SQLTEST；初始目录=Sample；可信连接=Yes”
连接。打开连接字符串
Set rs=CreateObject（“ADODB.Recordset”）
rs.Open（“SELECT*fromt”，connection）”表名为“T”，有两列“X”和“Y”
先走一步
而不是（卢比eof）
MsgBox（rs.fields（0）&“-”和rs.fields（1））
下一个
温德
克洛斯
连接。关闭
端接头

更改：

rs.Open("SELECT * FROM T", connection)

致：

在VBScript中，当调用不返回值的例程时（除非使用

Call

语句）

rs.Open "SELECT * FROM T", connection