Afficher le contenu d'une table sous sqlserveur 2000

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 660 fois - Téléchargée 27 fois

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

Ajouter un commentaire

Commentaires

cs_arcollet
Messages postés
31
Date d'inscription
jeudi 12 juin 2003
Statut
Membre
Dernière intervention
13 avril 2008
-
Bonjour,

Petite question :

D'ou vient l'objej "materiel" ?
dans "materiel.Rows.Add(tr)"

Merci

Denis
tribals
Messages postés
2
Date d'inscription
lundi 26 avril 2004
Statut
Membre
Dernière intervention
28 avril 2004
-
materiel.Rows.Add(tr)

en fait il s'agit d'un tableau definit dans la page **.aspx
mais je vais mettre à jour cette procédure car je l'ai modifié

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.