Afficher le contenu d'une table sous sqlserveur 2000

Commenter

Contenu du snippet

voila un petit script qui permet d'afficher le nom des champs et leurs valeurs dans un tableau
28/04/04 mise a jour maintenant on enleve les champs vide c'est encore mieux ;-)

Source / Exemple : 


Imports System.Data.SqlClient

Private Sub gestion_requetes(ByVal tab As HtmlTable)
       
        'variable de connection a la base de données
       MyConnection = New SqlConnection
        MyConnection.ConnectionString                                                                                = "server='nom seveur;database='nom base de données';user id='nom user';password='mot de passe';Trusted_Connection=true"
        MyConnection.Open()
        Dim oCommand As New SqlCommand("requete sql", MyConnection)

        'variables permettant l'affichage de la requete sql
        Dim dS_ModifTable As New DataSet
        Dim sql_ModifTable As New SqlDataAdapter(oCommand)
        sql_ModifTable.Fill(dS_ModifTable, "Table1")

        'variables concernant les tables sql
        Dim MyTable As DataTable
        Dim MyColumn As DataColumn
        Dim MyRow As DataRow

        For Each MyTable In dS_ModifTable.Tables
            For Each MyColumn In MyTable.Columns
                Dim tr As New HtmlTableRow
                Dim td1 As New HtmlTableCell
                td1.InnerHtml = MyColumn.Caption
                tr.Cells.Add(td1)
                For Each MyRow In MyTable.Rows
                    Dim td2 As New HtmlTableCell
                    td2.InnerHtml = MyRow(MyColumn.Caption)
                    tr.Cells.Add(td2)
                        'elimine les champs vides
                        If td2.InnerHtml.Equals("") Then
                            tr.Cells.Remove(td1)
                            tr.Cells.Remove(td2)
                        End If
                Next MyRow
               tab.Rows.Add(tr)
            Next MyColumn
        Next MyTable
       MyConnection.Close()
   End Sub

Conclusion :


a vous de jouer en esperant que ca aidera certain a avancer

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (tribals)