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
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.