1

従来の ASP で次のコードを使用して、レコードセットを使用してデータベースからデータを取得しようとしています。Windows 7 32 ビット OS を使用しています。

<%
dim con,rs
set con=Server.Createobject("ADODB.Connection")
con.Provider="Microsoft.Jet.OLEDB.4.0"
con.Open "c:\inetpub\wwwroot\New folder\123.mdb"
rs.Open "select * from student",con
for each x in rs.fields
response.write(x.name)
response.write("=")
response.write(x.value)
next
rs.Close
con.Close
%>

エラーは次のとおりです。

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/New folder/recordset.asp, line 7
4

1 に答える 1

10

「rs」という単語は VBScript では予約されていないため、自分でレコードセットを作成する必要があります。

行を変更します。

rs.Open "select * from student",con

代わりにこれに：

Set rs = con.Execute("select * from student")

また、最初のレコードのみを反復し、すべてのレコードを反復するには、コードを次のように変更します。

Do Until rs.EOF
    for each x in rs.fields
        response.write(x.name)
        response.write("=")
        response.write(x.value)
        response.write(", ")
    next
    response.write("<br />")
    rs.MoveNext
Loop
于 2013-04-14T07:40:32.457 に答える