62,073
社区成员
发帖
与我相关
我的任务
分享为什么老是提示：BC30002: 未定义类型“oledbconnection”。
<%@import namespace="system.data"%>
<%@import namespace="system.data.oledb%>
<script language="vb" runat="server">
sub page_load(source as object,e as eventargs)
if not page.ispostback then
bindgrid
end if
end sub
sub gridsort(source as object,e as datagridsortcommandeventargs)
session("sortexpression")=e.sortexpression
bindgrid
end sub
sub changepage(sender as object,e as datagridpagechangedeventargs)
dg.currentpageindex=e.newpageindex
pagenumber.text="第" & dg.currentpageindex+1 & "页"
bindgrid
end sub
sub bindgrid()
dim oleconn as oledbconnection
dim oleconnstr as string
oleconnstr="provider=sqloledb;database=chapter;uid=sa;pwd=jingrufei"
oleconn=new oledbconnection(oleconnstr)
dim ds as new dataset
dim total as integer
oleconn.open
dim oleda as new oledataadapter("select * from student",oleconn)
oleda.fill(ds,"tabstudent")
total=ds.tables("tabstudent").rows.count
totalnumber.text="共" & total\dg.pagesize+1 & "页"
if total=0 then
response.write ("没有可以显示的记录")
exit sub
end if
if session("sortexpression")<>"" then
dim dtable as datatable=ds.tables("tabstudent")
dim dview as new dataview(dtable)
dview.sort=session("sortexpression")
dg.datasource=dview
else
dg.datasource=ds.tables("tabstudent").defaultview
end if
dg.databind
oleconn.close
oleconn=nothing
end sub
end sub
</script>
<html>
<head>
<title>WebForm1</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</head>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:DataGrid ID="dg" Runat="server" GridLines="Both" CellPadding="2" OnSortCommand="gridsort" AllowPaging="True" AllowSorting="True" PageSize="3" OnPageIndexChanged="changepage" PagerStyle-NextPageText="下一页" PagerStyle-PrevPageText="上一页"></asp:DataGrid>
<asp:Label ID="pagenumber" Runat="server"></asp:Label>
<asp:Label ID="totalnumber" Runat="server"></asp:Label>
</form>
</body>
</html>
<%@import namespace="system.data.oledb%>
<script language="vb" runat="server">
sub page_load(source as object,e as eventargs)
if not page.ispostback then
bindgrid
end if
end sub
sub gridsort(source as object,e as datagridsortcommandeventargs)
session("sortexpression")=e.sortexpression
bindgrid
end sub
sub changepage(sender as object,e as datagridpagechangedeventargs)
dg.currentpageindex=e.newpageindex
pagenumber.text="第" & dg.currentpageindex+1 & "页"
bindgrid
end sub
sub bindgrid()
dim oleconn as oledbconnection
dim oleconnstr as string
oleconnstr="provider=sqloledb;database=chapter;uid=sa;pwd=jingrufei"
oleconn=new oledbconnection(oleconnstr)
dim ds as new dataset
dim total as integer
oleconn.open
dim oleda as new oledataadapter("select * from student",oleconn)
oleda.fill(ds,"tabstudent")
total=ds.tables("tabstudent").rows.count
totalnumber.text="共" & total\dg.pagesize+1 & "页"
if total=0 then
response.write ("没有可以显示的记录")
exit sub
end if
if session("sortexpression")<>"" then
dim dtable as datatable=ds.tables("tabstudent")
dim dview as new dataview(dtable)
dview.sort=session("sortexpression")
dg.datasource=dview
else
dg.datasource=ds.tables("tabstudent").defaultview
end if
dg.databind
oleconn.close
oleconn=nothing
end sub
end sub
</script>
<html>
<head>
<title>WebForm1</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</head>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:DataGrid ID="dg" Runat="server" GridLines="Both" CellPadding="2" OnSortCommand="gridsort" AllowPaging="True" AllowSorting="True" PageSize="3" OnPageIndexChanged="changepage" PagerStyle-NextPageText="下一页" PagerStyle-PrevPageText="上一页"></asp:DataGrid>
<asp:Label ID="pagenumber" Runat="server"></asp:Label>
<asp:Label ID="totalnumber" Runat="server"></asp:Label>
</form>
</body>
</html>
...全文
请发表友善的回复…
发表回复
阿飞666888 2004-01-12
- 打赏
- 举报
OK!
是少了个引号！
谢谢各位!
是少了个引号！
谢谢各位!
F9 2004-01-12
- 打赏
- 举报
代码
DimVar 2004-01-12
- 打赏
- 举报
你这里少了个引号：
<%@import namespace="system.data.oledb%>
^
<%@import namespace="system.data.oledb"%>
<%@import namespace="system.data.oledb%>
^
<%@import namespace="system.data.oledb"%>
阿飞666888 2004-01-12
- 打赏
- 举报
未定义类型“sqlconnection”。
F9 2004-01-12
- 打赏
- 举报
只要是OLEDB开头的都改为SQL开头，改为SQL的连接方式
<%@import namespace="system.data.SqlClient%>
oleconnstr="server=服务器名;database=chapter;uid=sa;pwd=jingrufei"
<%@import namespace="system.data.SqlClient%>
oleconnstr="server=服务器名;database=chapter;uid=sa;pwd=jingrufei"
阿飞666888 2004-01-12
- 打赏
- 举报
对呀！是sql数据库！
F9 2004-01-12
- 打赏
- 举报
你用的是SQL数据库吗
xxdneu 2004-01-12
- 打赏
- 举报
vb不取分大小写
是不是没加命名空间啊
using System.Data.OleDb;
是不是没加命名空间啊
using System.Data.OleDb;
阿飞666888 2004-01-12
- 打赏
- 举报
vb.net不是不区分大小写吗？
wxd719 2004-01-12
- 打赏
- 举报
该大写的大写
