新手,代码总是报这个错,帮我看一下!

2005-03-18 07:19:25 133 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【前端框架】Vue 3组件生命周期钩子的使用场景在 Vue 3 中，组件生命周期钩子分为选项式 API 和组合式 API两种使用方式。这些钩子在组件的不同阶段被触发，开发者可以利用它们在特定时间点执行相应的操作。以下是详细介绍各生命周期钩子及其使用场景：阅读详情

<%@Import Namespace=System.Data.ADO%>
<%@Import Namespace=System.Data%>
<Html>
<Form Id="F1" Runat="Server">
<Input Id="Text1" Runat="Server" Value="Members"/>
<Button Id="Button1" OnServerClick="Button1_Click"
Runat="Server">执行
</Button>
</Form>
<Script Language="VB" Runat="Server">
Sub Button1_Click(sender As Object, E As EventArgs)
Dim cmA As ADOCommand=New _
ADOCommand("","Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Inetpub\wwwroot\cr\ch05\MyWeb.mdb")
Dim drA As ADODataReader
Dim shtI As Short
cmA.ActiveConnection.Open()
cmA.CommandType=CommandType.TableDirect
cmA.CommandText=Text1.Value
cmA.Execute(drA)
For shtI=0 To drA.FieldCount - 1
Response.Write("字段索引值: " & shtI.ToString & _
" 字段名称: " & drA.GetName(shtI) & _
" 数据型态: " & drA.GetDataTypeName(shtI) & "<br>")
Next
Do While drA.Read()
For shtI=0 To drA.FieldCount-1
Response.Write(drA.GetValue(shtI) & " / ")
Next
Response.Write("<br>")
Loop
End Sub
</SCRIPT>
</Html>

编译器错误信息: BC30002: 未定义类型“ADOCommand”。

源错误:

行 10： <Script Language="VB" Runat="Server">
行 11： Sub Button1_Click(sender As Object, E As EventArgs)
行 12： Dim cmA As ADOCommand=New _
行 13： ADOCommand("","Provider=Microsoft.Jet.OLEDB.4.0;" & _
行 14： "Data Source=C:\Inetpub\wwwroot\cr\ch05\MyWeb.mdb")

谢谢!

...全文