salut tout le monde!
je débute en VB .NET et la je me retrouve obligé de developper une webpart en VB .NET
j'ai réussi à afficher une table de ma base de donnée dans un DataGrid mais il me reste qq problèmes :
1- ma fonction de trie ne marche pas; je crois qu'il manque une liaison entre le nom de cette fontion et le DataGrid lui meme!! JE DEBUTE!!!
2- je veux inclure une fonction qui traite l'insertion d'une nouvelle ligne et une autre qui traite la modification mais je ne sais pas comment
3- j'arrive pas à implementer une fonction OnClick pour mes deux bouttons!!

Aidez moi SVP
je vous en serai reconnaissant!

voici mon code source :
//////////////////
Imports System
Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Xml.Serialization
Imports Microsoft.SharePoint
Imports Microsoft.SharePoint.Utilities
Imports Microsoft.SharePoint.WebPartPages
Imports System.Web.UI.HtmlControls


<DefaultProperty(""), ToolboxData("<{0}:View runat=server></{0}:View>"), XmlRoot(Namespace:="SPSPubsAuthors")> _
Public Class View
    Inherits Microsoft.SharePoint.WebPartPages.WebPart

    Private strSQLserver As String = ""
    Private strDatabase As String = ""
    Private strUserName As String = ""
    Private strPassword As String = ""

    'Nom de mon serveur SQL installé en local
    <Browsable(True), Category("Miscellaneous"), DefaultValue(""), _
    WebPartStorage(Storage.Shared), FriendlyName("SQLServer"), _
    Description("The server where pubs is installed.")> _
    Property SQLServer() As String
        Get
            Return strSQLserver
        End Get
        Set(ByVal Value As String)
            strSQLserver = Value
        End Set
    End Property

    'Nom de ma base de données
    <Browsable(True), Category("Miscellaneous"), DefaultValue(""), _
    WebPartStorage(Storage.Shared), FriendlyName("Database"), _
    Description("The database where the Enterprise Data is located.")> _
    Property Database() As String
        Get
            Return strDatabase
        End Get
        Set(ByVal Value As String)
            strDatabase = Value
        End Set
    End Property

    Protected WithEvents grdNames As DataGrid
    Protected WithEvents lblMessage As Label
    Protected WithEvents bb As HtmlButton
    Protected WithEvents bb2 As Button

    Sub grdNames_Sort(ByVal sender As Object, ByVal e As DataGridSortCommandEventArgs)
        Dim DSActive As New DataSet("objDataSet")
        Dim Dataview1 As DataView
        With New System.Data.SqlClient.SqlDataAdapter
            .Fill(DSActive)
        End With
        'grdNames.DataSource = DSActive
        Dataview1 = DSActive.Tables("Classe").DefaultView
        Dataview1.Sort = e.SortExpression
        grdNames.DataSource = Dataview1
        grdNames.DataBind()
    End Sub

    Protected Overrides Sub CreateChildControls()
        'Grid pour afficher les resultats
        grdNames = New DataGrid
        Dim grdNames_Sort As String

        With grdNames
            .Width = Unit.Percentage(100)
            .HeaderStyle.Font.Name = "arial"
            .HeaderStyle.Font.Size = New FontUnit(FontSize.AsUnit).Point(10)
            .HeaderStyle.Font.Bold = True
            .HeaderStyle.ForeColor = System.Drawing.Color.Wheat
            .HeaderStyle.BackColor = System.Drawing.Color.DarkBlue
            .AlternatingItemStyle.BackColor = System.Drawing.Color.LightCyan
            .AllowSorting() = True


        End With
        Controls.Add(grdNames)

        'Label pour les erreurs
        lblMessage = New Label
        With lblMessage
            .Width = Unit.Percentage(100)
            .Font.Name = "arial"
            .Font.Size = New FontUnit(FontSize.AsUnit).Point(10)
            .Text = ""
        End With
        Controls.Add(lblMessage)

        'premier bouton
        bb = New HtmlButton
        bb.InnerText = "GO!!!"
        Controls.Add(bb)

        '2eme bouton
        bb2 = New Button
        bb2.Text = "DEUX!!"
        Controls.Add(bb2)

    End Sub

    Protected Overrides Sub RenderWebPart(ByVal output As System.Web.UI.HtmlTextWriter)
        Dim objDataSet As System.Data.DataSet

        Dim strConnection As String
        strConnection = "Data Source=" + SQLServer
        strConnection += ";Initial Catalog=" + Database
        strConnection += ";Integrated Security=True"
 
        Dim strSQL As String = "select * from Classe"

        Try
            With New System.Data.SqlClient.SqlDataAdapter
                objDataSet = New DataSet("root")
                .SelectCommand = _
                New System.Data.SqlClient.SqlCommand(strSQL, _
                New System.Data.SqlClient.SqlConnection(strConnection))
                .Fill(objDataSet, "authors")
            End With
        Catch ex As Exception
            lblMessage.Text = ex.Message
            Exit Sub
        End Try

        Try
            With grdNames
                .DataSource = objDataSet
                .DataMember = "authors"
                .DataBind()
            End With
        Catch ex As Exception
            lblMessage.Text = ex.Message
            Exit Sub
        End Try
        'Draw the controls in an HTML table
        With output
            .Write("<TABLE BORDER=0 WIDTH=100%>")
            .Write("<TR>")
            .Write("<TD>")
            grdNames.RenderControl(output)
            .Write("</TD>")
            .Write("</TR>")
            .Write("<TR>")
            .Write("<TD>")
            lblMessage.RenderControl(output)
            .Write("</TD>")
            .Write("</TR>")
            .Write("<TR>")
            .Write("<TD>")
            bb.RenderControl(output)
            .Write("</TD>")
            .Write("</TR>")
            .Write("<TR>")
            .Write("<TD>")
            bb2.RenderControl(output)
            .Write("</TD>")
            .Write("</TR>")
            .Write("</TABLE>")

        End With

    End Sub

End Class
////////////////////