Probleme de lecture des résultat d'une requette sql dans un datagrid
tshikas
Messages postés10Date d'inscriptionvendredi 6 février 2009StatutMembreDernière intervention24 mars 2009
-
3 mars 2009 à 21:56
tshikas
Messages postés10Date d'inscriptionvendredi 6 février 2009StatutMembreDernière intervention24 mars 2009
-
4 mars 2009 à 15:52
Bonjour,
j'utilise visual studio 2008, sql server 2005.
J'arrive pas a afficher mes données correctement a l'aide d'un datagrid.J ai juste les titres.Merci de m'aider
mon controleur
Protected
Sub Page_Load(
ByVal sender
As
Object,
ByVal e
As System.EventArgs)
Handles
Me.Load
' on regarde si l'application est en erreur
If
CType(Application(
"erreur"),
Boolean)
Then
' l'application ne s'est pas initialis‚e correctement
Dim erreurs
As
New ArrayListerreurs.Add(
"Application momentan‚ment indisponible (" +
CType(Application(
"message"),
String) +
")")afficheErreurs(erreurs,
False)
Exit
Sub
End
If
'1Šre requˆte
If
Not IsPostBack
Then
' on affiche le formulaire videafficheFormulaire()
End
If
End
Sub ------------------
Private
Sub afficheListeInfo(
ByVal donnees
As DataSet)
Dim afficheLien
As
BooleanWith DataGrid1.DataSource donnees.PageSize 5.CurrentPageIndex = 0.DataBind()
End
With
' on affiche la vue [r‚sultats]vueListeInfo.Visible =
TruevueFormulaire.Visible =
True
-----
Sub btnEnvoyer_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Dim chaineConnexionSQL
As
String =
"SERVERxxxx"
Dim commande
As
String
Dim objInfosData
As InfosData =
New InfosData(chaineConnexionSQL)
' page valide ?
If
Not Page.IsValid
ThenafficheFormulaire()
Exit
Sub
End
If
' ex‚cution de la requˆte SELECT client
Dim donnees As DataSetcommande "select ca_contact.last_name,ca_contact.first_name,ca_organization.org_name,ca_location.location_name,ca_location.address_1,ca_location.address_2,ca_location.city from ca_contact left outer join ca_organization on ca_contact.organization_uuid ca_organization.organization_uuid left outer join ca_location on ca_contact.location_uuid = ca_location.location_uuid where ca_contact.last_name like '@txtSelect'"
Trydonnees = objInfosData.getDataSet(commande)
Catch ex
As Exception
Dim erreurs
As
New ArrayListerreurs.Add(
"erreur d'accŠs … la base de donn‚es (" + ex.Message +
")")afficheErreurs(erreurs,
True)
Exit
Sub
End
Try
' tout va bien - on affiche la liste des informationsafficheListeInfo(donnees)
' on met les donn‚es dans la sessionSession(
"donnees") = donnees
End
Sub-------------------
Public
Function getDataSet(
ByVal commande
As
String)
As DataSet
Dim objInfos
As InfosData =
New InfosData(chaineConnexionSQL)
' on cr‚e un objet DataAdapter pour lire les donn‚es de la source SQL
Dim adaptateur
As
New SqlDataAdapter(commande, chaineConnexionSQL)
' on cr‚e une image en m‚moire du r‚sultat du select
Dim contenu
As
New DataSet
Tryadaptateur.Fill(contenu)
Catch e
As Exception
Throw
New Exception(
"Erreur d'accŠs … la base de donn‚es (" + e.Message +
")")
End
Try
' on rend le r‚sultat
Return contenu
End
Function
A voir également:
Probleme de lecture des résultat d'une requette sql dans un datagrid