“activeconnection”不是“System.Data.OleDb.OleDbCommand”的成员
按照书本上的例子在用vb.net连接access数据库时 总是出错 ：“activeconnection”不是“System.Data.OleDb.OleDbCommand”的成员，不知道怎么改，所有代码如下：求高手能指点一二
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<html>
<body>
<form id="F1" runat="server">
<input id="Text1" runat="server" value="Members"/>
<button id="Button1" onserverClick="Button1_click" runat="server" >执行</button>
</form>
<script laguage="VB" runat="server">
sub button1_click(sender as Object,e as eventargs)
Dim cma As oledbCommand = new oledbCommand("provider=microsoft.jet.OLEDB.4.0;" & "data source=G:\web\stu.mdb;" )
dim dra as oledbdatareader
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>
</body>
</html>
[解决办法]
Dim strConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=G:\web\stu.mdb;"
dim conn as new connnection (strConst)
conn.open()....
cmA.executeNonQuery()
[解决办法]
Dim cn As oledbConnection= new oledbConnection("provider=microsoft.jet.OLEDB.4.0;" & "data source=G:\web\stu.mdb;" )
cn.Open()
Dim cmd As oledbCommand = new oledbCommand()
dim dra as oledbdatareader
dim shti as short
cmd.Connection = cn
cmd.CommandType = System.Data.CommandType.TableDirect
cmd.commandtext=Text1.value
dra = cmd.ExecuteReader
