62,243
社区成员
发帖
与我相关
我的任务
分享新手,代码总是报这个错,帮我看一下!
<%@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")
谢谢!
<%@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")
谢谢!
...全文
请发表友善的回复…
发表回复
