Bonjour, je suis en train de develpper une petite application web avec Visual Studio 2008 professionnel en langage VB et avec une basse de données SQL Server.
j'ai utilisé un controle GridView pour afficher les données de la base de donnée et qui est relié avec un control SqlDataSource , lorsque j'execute ma page web dans la navigateur je recois le message suivant:"
Le DataSource et le DataSourceID sont tous deux définis sur 'GridView1'. Supprimez une définition"
Voici mon code dans la page aspx:
<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False"
CellPadding="4" DataKeyNames="CodeRess" DataSourceID="ListRessRese"
ForeColor="#333333" GridLines="None" Width="510px">
<RowStyle BackColor="#EFF3FB" />
<Columns>
<asp:BoundField DataField="CodeRess" HeaderText="Code de ressources"
SortExpression="CodeRess" ReadOnly="True" />
<asp:BoundField DataField="Descr" HeaderText="Description" SortExpression="Descr" />
<asp:BoundField DataField="Date" HeaderText="Date de réservation"
SortExpression="Date" />
<asp:BoundField DataField="CodeDema" HeaderText="Code de la demande"
SortExpression="CodeDema" />
</Columns>
<FooterStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
<PagerStyle BackColor="#2461BF" ForeColor="White" HorizontalAlign="Center" />
<SelectedRowStyle BackColor="#D1DDF1" Font-Bold="True" ForeColor="#333333" />
<HeaderStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
<EditRowStyle BackColor="#2461BF" />
<AlternatingRowStyle BackColor="White" />
</asp:GridView>
<asp:SqlDataSource ID="ListRessRese" runat="server"
ConnectionString="<%$ ConnectionStrings:CSAppINT %>"
SelectCommand="SELECT [CodeRess], [Descr], [Date], [CodeDema] FROM [Ressources] WHERE ([Descr] = @Descr)">
<SelectParameters>
<asp:Parameter DefaultValue="Reservés" Name="Descr" Type="String" />
</SelectParameters>
</asp:SqlDataSource>
Voici mon code dans la page.VB:
Protected Sub TbOk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtOk.Click
Dim cn As New SqlConnection
cn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\AppINT.mdf;Integrated Security=True;User Instance=True"
Dim dtst As New DataSet
cn.Open()
Dim adap As New SqlDataAdapter("select * from Ressources", "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\AppINT.mdf;Integrated Security=True;User Instance=True")
adap.Fill(dtst, "Ressources")
GridView1.DataSource = dtst.Tables
End Sub