boucle for

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

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