Afficher le contenu d'une table sous sqlserveur 2000

Soyez le premier à donner votre avis sur cette source.

Snippet vu 20 025 fois - Téléchargée 29 fois

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

Ajouter un commentaire Commentaires
tribals Messages postés 2 Date d'inscription lundi 26 avril 2004 Statut Membre Dernière intervention 28 avril 2004
28 avril 2004 à 15:07
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é
cs_arcollet Messages postés 31 Date d'inscription jeudi 12 juin 2003 Statut Membre Dernière intervention 13 avril 2008
28 avril 2004 à 12:52
Bonjour,

Petite question :

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

Merci

Denis
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)