如题!
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim constr As String = "provider=microsoft.jet.oledb.4.0;data source =C:\Inetpub\wwwroot\data.mdb"
Dim conn As New OleDb.OleDbConnection(constr)
conn.Open()
Dim str As String = "select * from news"
Dim da As New OleDb.OleDbDataAdapter(str, conn)
Dim ds As New DataSet
da.Fill(ds, "tabnews")
dl.DataSource = ds.Tables("tabnews").DefaultView
dl.DataBind()
conn.Close()
End Sub页面的代码:
<asp:DataList id="dl" style="Z-INDEX: 102; LEFT: 64px; POSITION: absolute; TOP: 32px" runat="server"ShowHeader="False">
<ItemTemplate>
<asp:Label id=lb runat="server" Text='<%# DataBinder.Eval(Container, "item") %>'>
</asp:Label></ItemTemplate></asp:DataList>哪里有问题啊?我是想在这个DataList里显示从数据库里得到的新闻来放到首页上来。
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim constr As String = "provider=microsoft.jet.oledb.4.0;data source =C:\Inetpub\wwwroot\data.mdb"
Dim conn As New OleDb.OleDbConnection(constr)
conn.Open()
Dim str As String = "select * from news"
Dim da As New OleDb.OleDbDataAdapter(str, conn)
Dim ds As New DataSet
da.Fill(ds, "tabnews")
dl.DataSource = ds.Tables("tabnews").DefaultView
dl.DataBind()
conn.Close()
End Sub页面的代码:
<asp:DataList id="dl" style="Z-INDEX: 102; LEFT: 64px; POSITION: absolute; TOP: 32px" runat="server"ShowHeader="False">
<ItemTemplate>
<asp:Label id=lb runat="server" Text='<%# DataBinder.Eval(Container, "item") %>'>
</asp:Label></ItemTemplate></asp:DataList>哪里有问题啊?我是想在这个DataList里显示从数据库里得到的新闻来放到首页上来。
<%# DataBinder.Eval(Container.DataItem,"item") %>
你说的那个应该不是问题吧?我都是照楼主那样写的,从未出错。
'在此处放置初始化页的用户代码
If Not IsPostBack Then
Dim constr As String = "provider=microsoft.jet.oledb.4.0;data source =C:\Inetpub\wwwroot\data.mdb"
Dim conn As New OleDb.OleDbConnection(constr)
conn.Open()
Dim str As String = "select * from news"
Dim da As New OleDb.OleDbDataAdapter(str, conn)
Dim ds As New DataSet
da.Fill(ds, "tabnews")
dl.DataSource = ds.Tables("tabnews").DefaultView
dl.DataBind()
conn.Close()
End If
End Sub