【问题标题】:Client Side VBScript Program To Access Database - Not Working Peoperly访问数据库的客户端 JAVAScript 程序 - 无法正常工作
【发布时间】:2014-10-06 15:31:09
【问题描述】:

我有以下 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>

【问题讨论】:

    标签: vbscript


    【解决方案1】:

    变化:

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

    收件人:

    rs.Open "SELECT * FROM T", connection
    

    在 VBScript 中,您 don't use parens 在调用不返回值的例程时(除非您使用 Call 语句)。

    【讨论】:

      猜你喜欢
      • 1970-01-01
      • 2017-08-17
      • 2017-09-23
      • 2018-10-12
      • 1970-01-01
      • 2018-09-21
      • 2015-09-19
      • 1970-01-01
      • 2023-04-02
      相关资源
      最近更新 更多