dionysos6868
Messages postés310Date d'inscriptionjeudi 4 septembre 2003StatutMembreDernière intervention 9 juin 2005
-
27 avril 2004 à 14:54
dionysos6868
Messages postés310Date d'inscriptionjeudi 4 septembre 2003StatutMembreDernière intervention 9 juin 2005
-
27 avril 2004 à 16:41
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
dionysos6868
Messages postés310Date d'inscriptionjeudi 4 septembre 2003StatutMembreDernière intervention 9 juin 20051 27 avril 2004 à 16:41
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