Boucle for

Signaler
Messages postés
310
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
9 juin 2005
-
Messages postés
310
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
9 juin 2005
-
Bonjour

j'ai fait ma connection a ma base de donnée dans mon fichier webform.aspx.vb

et je voudrais fair un boucle qui puisse m'afficher un table et non pas une datagrid mais bien un table dans mon fichier webform.aspx qui m'affiche toutes les donne de ma requete sql

voila mon code dans mon fichier webform.aspx

        Dim base As String "Provider Microsoft.jet.oledb.4.0;Data Source =" & Server.MapPath("\Banditheque\bin\bando.mdb")
        Dim requete As String = "Select * from Bande"
        Dim objDS As New DataSet()
        Dim objDa As OleDbDataAdapter

        objDa = New OleDbDataAdapter(requete, base)
        Try
            objDa.Fill(objDS, "bando")
            i = objDS.Tables("bando").Rows.Count
            TextBox1.Text = i
        Catch em As NullReferenceException
            TextBox1.Text = em.Message
        End Try


merci de votre aide
Dionysos

www.hackeinfo.net

1 réponse

Messages postés
310
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
9 juin 2005
1
j'ai trouvé

'Création du dataadapter et du dataset        Dim base As String "Provider Microsoft.jet.oledb.4.0;Data Source =" & Server.MapPath("\Banditheque\bin\bando.mdb")
        Dim requete As String = "Select * from theme order by Thème"
        Dim objDS As New DataSet()
        Dim objDa As OleDbDataAdapter

        objDa = New OleDbDataAdapter(requete, base)
        Try
            'Ajout des donnée de la base de donnée dans le dataset
            objDa.Fill(objDS, "bando")
            'Compte le nombres d'enregistrement
            i = objDS.Tables("bando").Rows.Count
        Catch em As NullReferenceException
            'Sort du sub de base vide
            Exit Sub
        End Try

        'parametre du tableau dinamique
        MonTableau.Width = "100%"
        MonTableau.CellPadding = "1"
        MonTableau.CellSpacing = "2"
        MonTableau.Border = "1"

        Dim colonne As Integer, ligne As Integer
        Dim j = 0
        'On boucle ne nombres suffisant par rapport au nombres d'enregistrement dans la table
        For ligne = 0 To i - 1
            Dim Maligne As New HtmlTableRow()
            ' on ajoute deux colone pour l'ID et le THEME
            For colonne = 0 To 1
                Dim MaCase As New HtmlTableCell()
                MaCase.Width = "10%"
                If colonne = 0 Then
                    'On remplit la colone une avec l'ID
                    MaCase.InnerHtml = objDS.Tables("bando").Rows(j).Item(0)
                Else
                    'On remplis la colone deux avec le THEME
                    MaCase.InnerHtml = objDS.Tables("bando").Rows(j).Item(1)
                End If
                'On ajoute la nouvelle colonne
                Maligne.Cells.Add(MaCase)

            Next
            'On ajoute la nouvelle ligne
            MonTableau.Rows.Add(Maligne)
            'on agrément j de 1 pour aller a l'enregistrement precedent
            j = j + 1
            'si on atteint la fin des enregistrement on sort
            If j = i Then Exit For
        Next


Merci a la source de fabrice69 http://www.aspfr.com/code.aspx?ID=9028
Dionysos

www.hackeinfo.net