高考问答岁月是一把杀猪刀:dim dr as oledbdatareader=cmd.Executereader()这句代码出错在哪里？
来源：百度文库 编辑：高考问答 时间：2024/04/29 13:03:59
不知错在哪里，不能运行，请高手指点，快崩溃了
全部代码如下：
sub on_click(sender As Object, e As EventArgs)
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0;data source="&server.mappath("login.mdb"))
dim cmd as new oledbcommand("select * from user",conn)
conn.open()
dim dr as oledbdatareader=cmd.Executereader()
if dr.read()=true then
conn.close()
response.redirect("admin.aspx")
else
conn.close()
end if
end sub
全部代码如下：
sub on_click(sender As Object, e As EventArgs)
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0;data source="&server.mappath("login.mdb"))
dim cmd as new oledbcommand("select * from user",conn)
conn.open()
dim dr as oledbdatareader=cmd.Executereader()
if dr.read()=true then
conn.close()
response.redirect("admin.aspx")
else
conn.close()
end if
end sub
....飘过不懂. 赚分
dim dr as oledbdatareader=cmd.Executereader()这句代码出错在哪里？
Dim db As Database
dim obj as textbox
dim Arr3(6,9) as integer
Dim rs As New ADODB.Recordset
Dim m As String * 16这是什么意思?
Dim adorecordset As New ADODB.Recordset
vb.net是否要把vb6中的dim a as single 变成dim a as object?
vb.net中可以定义dim ga() as single 吗？
用Dim as New生成label怎么绑定数据库呢