mononok
جمعه 01 آبان 1388, 21:05 عصر
سلام
من كد زير رو كه براي نمايش DataList هست از سايت quickstarts.asp.net گرفتم اما وقتي مي خوام كد رو تغيير بدم و جدول خودمو نشون بده خطا نمي ده ولي چيزي هم نشون
نمي ده:متفکر:
كد DataList6_vb.aspx:
<%@ Import Namespace="System.Data" %><%@ Import Namespace="System.Data.SqlClient" %><html><script language="VB" runat="server"> Dim MyConnection As SqlConnection Sub Page_Load(Sender As Object, E As EventArgs) MyConnection = New SqlConnection(ConfigurationManager.ConnectionStrin gs("Pubs").ConnectionString) If Not (Page.IsPostBack) Dim DS As New DataSet Dim MyCommand As New SqlDataAdapter("select * from Titles where type = 'business'", MyConnection) MyCommand.Fill(DS, "Titles") MyDataList.DataSource = DS.Tables("Titles").DefaultView MyDataList.DataBind() End If End Sub Sub MyDataList_Select(Sender As Object, E As EventArgs) Dim Title As String = MyDataList.DataKeys(MyDataList.SelectedItem.ItemIn dex) Dim MyCommand As New SqlDataAdapter("select * from Titles where title_id = '" & Title & "'" , MyConnection) Dim DS As New DataSet MyCommand.Fill(DS, "TitleDetails") Dim RowView As DataRowView = DS.Tables("TitleDetails").DefaultView(0) DetailsImage.Src = "images/" & RowView("title_id") & ".gif" DetailsPubId.InnerHtml = "<b>Publisher ID: </b>" & RowView("pub_id").ToString() & "<br>" DetailsTitleId.InnerHtml = "<b>Title ID: </b>" & RowView("title_id").ToString() & "<br>" DetailsType.InnerHtml = "<b>Category: </b>" & RowView("type").ToString() + "<br>" DetailsPrice.InnerHtml = "<b>Price: </b> $ " & RowView("price").ToString() + "<p>" PurchaseLink.InnerHtml = "<img alt='purchase book' border='0' src='images/purchase_book.gif' >" PurchaseLink.HRef="purchase_vb.aspx?titleid=" & RowView("title_id").ToString() DetailsTitle.InnerHtml = RowView("title").ToString() DetailsImage.Visible = true End Sub</script><body topmargin="0" leftmargin="0"> <form runat="server"> <!-- #include virtual="header.inc" --> <table width="100%"> <tr> <td width="50%"> <ASP:DataList id="MyDataList" OnSelectedIndexChanged="MyDataList_Select" DataKeyField="title_id" runat="server"> <ItemTemplate> <table cellpadding=10 style="font: 10pt verdana"> <tr> <td valign="top"> <img alt="book image" align="top" width="25" border=1 src='<%# DataBinder.Eval(Container.DataItem, "title_id", "images/{0}.gif") %>' runat="server"/> </td> <td valign="top"> <b>Title: </b> <asp:linkbutton Text='<%# DataBinder.Eval(Container.DataItem, "title") %>' CommandName="Select" style="color:darkred" runat="server"/> <br> <b>Price: </b><%# DataBinder.Eval(Container.DataItem, "price", "$ {0}") %><br> </td> </tr> </table> </ItemTemplate> </ASP:DataList> </td> <td valign="top" style="padding-top:15" width="50%"> <table cellpadding="5" width="100%" style="font: 10pt verdana"> <tr> <td> <img alt="book image" id="DetailsImage" visible="false" runat="server"> </td> <td valign="top" width="400"> <div style="font: 12pt verdana;color:darkred"> <i><b><span id="DetailsTitle" runat="server"/></b></i><br> </div> <span id="DetailsTitleId" runat="server"/> <span id="DetailsPubId" runat="server"/> <span id="DetailsType" runat="server"/> <span id="DetailsPrice" runat="server"/> <a id="PurchaseLink" runat="server"/> </td> </tr> </table> </td> </tr> </table> <!-- #include virtual="footer.inc" --> </form></body></html>
كد footer و header هم مهم نيست ولي اينه:
header.inc:
<table width=100% cellspacing=0 cellpadding=0> <tr> <td style="height:20" bgcolor="#9C0001" cellspacing=0 cellpadding=0 width=100%/> </tr> <tr> <td align="right" style="height:70;font-family:Arial;font-weight:bold;font-size:44pt;color:white" width="100%" bgcolor="D3C9C7"> <font size=6 color="#FFFFFF">The Book Cellar </font> </td> </tr> </table>
footer.inc:
<table width=100% cellspacing=0 cellpadding=0>
<tr>
<td style="height:20" bgcolor="#9C0001" cellspacing=0 cellpadding=0 width=100%/>
</tr>
</table>
يه صفحه هم با نام parchase_vb.aspx هم داره كه اينم زياد مهم نيست
<%@ Import Namespace="System.Data" %><%@ Import Namespace="System.Data.SqlClient" %><html><script language="VB" runat="server"> Sub Page_Load(Sender As Object, E As EventArgs) If Not Request.QueryString("titleid") Is Nothing Dim DS As DataSet Dim MyConnection As SqlConnection Dim MyCommand As SqlDataAdapter Dim Query As String Query = "select * from Titles where title_id = @title_id" MyConnection = New SqlConnection(ConfigurationManager.ConnectionStrin gs("Pubs").ConnectionString) MyCommand = New SqlDataAdapter(Query, MyConnection) Dim param As SqlParameter = New SqlParameter("@title_id", DbType.String) param.Value = Server.HtmlEncode(Request.QueryString("titleid")) myCommand.SelectCommand.Parameters.Add(param) DS = New DataSet() MyCommand.Fill(DS, "Titles") MyDataList.DataSource = DS.Tables("Titles").DefaultView MyDataList.DataBind() End If End Sub Sub Submit_Click(Src As Object, E As EventArgs) Message.InnerHtml = "<h2>Purchase Made!!!</h2>" End Sub</script><body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0"> <!-- #include virtual="header.inc" --> <form runat="server"> <table> <tr> <td valign="top"> <ASP:DataList id="MyDataList" runat="server"> <ItemTemplate> <table cellpadding=10 style="font: 10pt verdana"> <tr> <td width=1 bgcolor="BD8672"/> <td valign="top"> <img alt="book image" align="top" src='<%# Eval("title_id", "images/{0}.gif") %>' > </td> <td valign="top"> <b>Title: </b><%# Eval("title") %><br> <b>Category: </b><%# Eval("type") %><br> <b>Publisher ID: </b><%# Eval("pub_id") %><br> <b>Price: </b><%# Eval("price", "{0:c}") %><br> </td> </tr> </table> </ItemTemplate> </ASP:DataList> </td> <td valign="top" style="padding-top:15;font: 10pt verdana"> Thank you for your business! Please complete the form below to confirm your purchase. <p> <table style="font: 10pt verdana" cellpadding="3"> <tr><td><b>Name: </b></td><td><input size="30" type="text" runat="server"></td></tr> <tr><td><b>Mailing Address: </b></td><td><input size="50" type="text" runat="server"></td></tr> <tr><td><b>Account Number: </b></td><td><input size="10" type="text" runat="server"></td></tr> </table> <p> <input type="submit" value="Purchase" runat="server" OnServerClick="Submit_Click"/> <p> </td> </tr> </table> <div style="font: 10pt verdana;padding:0,15,15,15" id="Message" runat="server"/> </form> <!-- #include virtual="footer.inc" --></body></html>
من نتونستم كدو جاگذاري كنم و تغيير بدم تا اطلاعات جدول خودمو نشون بده !!!!
من مي خوام فيلدهاي title,price رو از جدولم(Products) نشون بده يه فيلد Id هم هست كه با توجه به اوون تصوير رو هم از folder image مي گيره!
اگه فقط كد صفحه اولو بتونم درست كنم كافيه لطفا كمكم كنيد:لبخندساده:
من كد زير رو كه براي نمايش DataList هست از سايت quickstarts.asp.net گرفتم اما وقتي مي خوام كد رو تغيير بدم و جدول خودمو نشون بده خطا نمي ده ولي چيزي هم نشون
نمي ده:متفکر:
كد DataList6_vb.aspx:
<%@ Import Namespace="System.Data" %><%@ Import Namespace="System.Data.SqlClient" %><html><script language="VB" runat="server"> Dim MyConnection As SqlConnection Sub Page_Load(Sender As Object, E As EventArgs) MyConnection = New SqlConnection(ConfigurationManager.ConnectionStrin gs("Pubs").ConnectionString) If Not (Page.IsPostBack) Dim DS As New DataSet Dim MyCommand As New SqlDataAdapter("select * from Titles where type = 'business'", MyConnection) MyCommand.Fill(DS, "Titles") MyDataList.DataSource = DS.Tables("Titles").DefaultView MyDataList.DataBind() End If End Sub Sub MyDataList_Select(Sender As Object, E As EventArgs) Dim Title As String = MyDataList.DataKeys(MyDataList.SelectedItem.ItemIn dex) Dim MyCommand As New SqlDataAdapter("select * from Titles where title_id = '" & Title & "'" , MyConnection) Dim DS As New DataSet MyCommand.Fill(DS, "TitleDetails") Dim RowView As DataRowView = DS.Tables("TitleDetails").DefaultView(0) DetailsImage.Src = "images/" & RowView("title_id") & ".gif" DetailsPubId.InnerHtml = "<b>Publisher ID: </b>" & RowView("pub_id").ToString() & "<br>" DetailsTitleId.InnerHtml = "<b>Title ID: </b>" & RowView("title_id").ToString() & "<br>" DetailsType.InnerHtml = "<b>Category: </b>" & RowView("type").ToString() + "<br>" DetailsPrice.InnerHtml = "<b>Price: </b> $ " & RowView("price").ToString() + "<p>" PurchaseLink.InnerHtml = "<img alt='purchase book' border='0' src='images/purchase_book.gif' >" PurchaseLink.HRef="purchase_vb.aspx?titleid=" & RowView("title_id").ToString() DetailsTitle.InnerHtml = RowView("title").ToString() DetailsImage.Visible = true End Sub</script><body topmargin="0" leftmargin="0"> <form runat="server"> <!-- #include virtual="header.inc" --> <table width="100%"> <tr> <td width="50%"> <ASP:DataList id="MyDataList" OnSelectedIndexChanged="MyDataList_Select" DataKeyField="title_id" runat="server"> <ItemTemplate> <table cellpadding=10 style="font: 10pt verdana"> <tr> <td valign="top"> <img alt="book image" align="top" width="25" border=1 src='<%# DataBinder.Eval(Container.DataItem, "title_id", "images/{0}.gif") %>' runat="server"/> </td> <td valign="top"> <b>Title: </b> <asp:linkbutton Text='<%# DataBinder.Eval(Container.DataItem, "title") %>' CommandName="Select" style="color:darkred" runat="server"/> <br> <b>Price: </b><%# DataBinder.Eval(Container.DataItem, "price", "$ {0}") %><br> </td> </tr> </table> </ItemTemplate> </ASP:DataList> </td> <td valign="top" style="padding-top:15" width="50%"> <table cellpadding="5" width="100%" style="font: 10pt verdana"> <tr> <td> <img alt="book image" id="DetailsImage" visible="false" runat="server"> </td> <td valign="top" width="400"> <div style="font: 12pt verdana;color:darkred"> <i><b><span id="DetailsTitle" runat="server"/></b></i><br> </div> <span id="DetailsTitleId" runat="server"/> <span id="DetailsPubId" runat="server"/> <span id="DetailsType" runat="server"/> <span id="DetailsPrice" runat="server"/> <a id="PurchaseLink" runat="server"/> </td> </tr> </table> </td> </tr> </table> <!-- #include virtual="footer.inc" --> </form></body></html>
كد footer و header هم مهم نيست ولي اينه:
header.inc:
<table width=100% cellspacing=0 cellpadding=0> <tr> <td style="height:20" bgcolor="#9C0001" cellspacing=0 cellpadding=0 width=100%/> </tr> <tr> <td align="right" style="height:70;font-family:Arial;font-weight:bold;font-size:44pt;color:white" width="100%" bgcolor="D3C9C7"> <font size=6 color="#FFFFFF">The Book Cellar </font> </td> </tr> </table>
footer.inc:
<table width=100% cellspacing=0 cellpadding=0>
<tr>
<td style="height:20" bgcolor="#9C0001" cellspacing=0 cellpadding=0 width=100%/>
</tr>
</table>
يه صفحه هم با نام parchase_vb.aspx هم داره كه اينم زياد مهم نيست
<%@ Import Namespace="System.Data" %><%@ Import Namespace="System.Data.SqlClient" %><html><script language="VB" runat="server"> Sub Page_Load(Sender As Object, E As EventArgs) If Not Request.QueryString("titleid") Is Nothing Dim DS As DataSet Dim MyConnection As SqlConnection Dim MyCommand As SqlDataAdapter Dim Query As String Query = "select * from Titles where title_id = @title_id" MyConnection = New SqlConnection(ConfigurationManager.ConnectionStrin gs("Pubs").ConnectionString) MyCommand = New SqlDataAdapter(Query, MyConnection) Dim param As SqlParameter = New SqlParameter("@title_id", DbType.String) param.Value = Server.HtmlEncode(Request.QueryString("titleid")) myCommand.SelectCommand.Parameters.Add(param) DS = New DataSet() MyCommand.Fill(DS, "Titles") MyDataList.DataSource = DS.Tables("Titles").DefaultView MyDataList.DataBind() End If End Sub Sub Submit_Click(Src As Object, E As EventArgs) Message.InnerHtml = "<h2>Purchase Made!!!</h2>" End Sub</script><body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0"> <!-- #include virtual="header.inc" --> <form runat="server"> <table> <tr> <td valign="top"> <ASP:DataList id="MyDataList" runat="server"> <ItemTemplate> <table cellpadding=10 style="font: 10pt verdana"> <tr> <td width=1 bgcolor="BD8672"/> <td valign="top"> <img alt="book image" align="top" src='<%# Eval("title_id", "images/{0}.gif") %>' > </td> <td valign="top"> <b>Title: </b><%# Eval("title") %><br> <b>Category: </b><%# Eval("type") %><br> <b>Publisher ID: </b><%# Eval("pub_id") %><br> <b>Price: </b><%# Eval("price", "{0:c}") %><br> </td> </tr> </table> </ItemTemplate> </ASP:DataList> </td> <td valign="top" style="padding-top:15;font: 10pt verdana"> Thank you for your business! Please complete the form below to confirm your purchase. <p> <table style="font: 10pt verdana" cellpadding="3"> <tr><td><b>Name: </b></td><td><input size="30" type="text" runat="server"></td></tr> <tr><td><b>Mailing Address: </b></td><td><input size="50" type="text" runat="server"></td></tr> <tr><td><b>Account Number: </b></td><td><input size="10" type="text" runat="server"></td></tr> </table> <p> <input type="submit" value="Purchase" runat="server" OnServerClick="Submit_Click"/> <p> </td> </tr> </table> <div style="font: 10pt verdana;padding:0,15,15,15" id="Message" runat="server"/> </form> <!-- #include virtual="footer.inc" --></body></html>
من نتونستم كدو جاگذاري كنم و تغيير بدم تا اطلاعات جدول خودمو نشون بده !!!!
من مي خوام فيلدهاي title,price رو از جدولم(Products) نشون بده يه فيلد Id هم هست كه با توجه به اوون تصوير رو هم از folder image مي گيره!
اگه فقط كد صفحه اولو بتونم درست كنم كافيه لطفا كمكم كنيد:لبخندساده: