Sujet Précédent Sujet Suivant

Probleme avec un Datagrid

cs_akaii Messages postés 109 Date d'inscription mardi 10 janvier 2006 Statut Membre Dernière intervention 14 février 2014 - 17 déc. 2008 à 03:32
cs_akaii Messages postés 109 Date d'inscription mardi 10 janvier 2006 Statut Membre Dernière intervention 14 février 2014 - 20 déc. 2008 à 03:38
Hello

J'ai un probleme avec un DataGrid pour faire afficher une requete SQL qui join 3 tables. Avec 1 seule table je n'ai pas d'erreur, mais plus d'une ca plante, voici mon code :

<hr />
<%
@
Page
Language="VB"
AutoEventWireup="false"
CodeFile="EntryExitResult.aspx.vb"
Inherits="EntryExitResult" %>
<%
@
Import
Namespace="System" %>
<%
@
Import
Namespace="System.Data" %>
<%
@
Import
Namespace="System.Data.OleDb" %>
<%
@
Import
Namespace="System.Data" %>
<%
@
Import
Namespace="System.Data.SqlClient" %>
<!

DOCTYPE
html
PUBLIC
"-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><

html
xmlns="http://www.w3.org/1999/xhtml">
<head
runat="server">
<title></title>
</head>
<body>
<img
src="./Images/ProjectLogo.gif"
/>
</br>
<a
href="javascript:window.history.go(-1)">Retour
</a>

<form
id="form1"
runat="server">
<div>
<%

Dim ObjetConnection
As OleDbConnection

Dim ObjetCommand
As OleDbCommand

Dim ObjetDataAdapter
As OleDbDataAdapter

Dim ObjetDataSet
As
New DataSet

Dim ObjetDataTable
As
New DataTable

Dim strConn
As
String
Dim ObjetCB
As OleDbCommandBuilder

Dim ds
As DataSet

Dim txtLastName
As
String
Dim txtBadgeNbr
As
String
Dim ddlstEnterprise
As
String
Dim txtHyperLink
As
String
Dim sqlString
As
String

'Initialisation de la chaŒne de paramŠtres pour la connexionstrConn =

"Provider=SQLOLEDB;" &
"Data Source=10.199.80.10;Initial Catalog=InetDb;Persist Security Info=True;User ID=sa;Password=*****"

'Recuperation des variables
txtLastName = Replace(Request.Form(
"txtLastName"),
"'",
"''")
txtBadgeNbr = Replace(Request.Form(
"txtBadgeNbr"),
"'",
"''")
ddlstEnterprise = Request.Form(
"ddlstEnterprise")
txtHyperLink = Request.QueryString(
"id")

sqlString =

"SELECT "
sqlString = sqlString +
"RptEventTypes.EventText, RptEvents.EventId, "
sqlString = sqlString +
"RptEvents.DateTime, RptEvents.IndividualNdx, "
sqlString = sqlString +
"RptEvents.FloatValue, RptIndividuals.IndividualNdx, "
sqlString = sqlString +
"RptIndividuals.LastName, RptIndividuals.FirstName "
sqlString = sqlString +
"FROM "
sqlString = sqlString +
"InetDb.dbo.RptEventTypes RptEventTypes, InetDb.dbo.RptEvents RptEvents, "
sqlString = sqlString +
"InetDb.dbo.RptIndividuals RptIndividuals "
sqlString = sqlString +
"WHERE "
sqlString = sqlString +
"RptEventTypes.EventTypeId = RptEvents.EventTypeNdx AND "
sqlString = sqlString +
"RptEvents.TenantNdx = RptIndividuals.TenantNdx AND "
sqlString = sqlString +
"RptEvents.IndividualNdx = RptIndividuals.IndividualNdx AND "
sqlString = sqlString +
"RptEvents.FloatValue > 0. AND "
sqlString = sqlString + "(RptEventTypes.EventText 'Reader entry' OR RptEventTypes.EventText 'Reader exit') "
sqlString = sqlString +
"ORDER BY "
sqlString = sqlString +
"RptEvents.IndividualNdx ASC, RptEvents.EventId DESC, "
sqlString = sqlString +
"RptEventTypes.EventText ASC, RptIndividuals.LastName ASC"

ObjetConnection =

New OleDbConnection
ObjetConnection.ConnectionString = strConn
ObjetConnection.Open()
ObjetCommand =
New OleDbCommand(sqlString)
ObjetDataAdapter =
New OleDbDataAdapter(ObjetCommand)
ObjetCommand.Connection() = ObjetConnection
ObjetCB =
New OleDbCommandBuilder(ObjetDataAdapter)

ObjetDataAdapter.Fill(ObjetDataSet,
"RptEventTypes")
ObjetDataAdapter.Fill(ObjetDataSet,
"RptEvents")
ObjetDataAdapter.Fill(ObjetDataSet,
"RptIndividuals")

ObjetDataTable = ObjetDataSet.Tables(

"RptEventTypes")
ObjetDataTable = ObjetDataSet.Tables(
"RptEvents")
ObjetDataTable = ObjetDataSet.Tables(
"RptIndividuals")

dgEntryExit.DataSource = ObjetDataTable
dgEntryExit.DataBind()
%>

<asp:DataGrid
ID="dgEntryExit"
runat="server"
AllowPaging="True"

AllowSorting="True"
AutoGenerateColumns="False"
CellPadding="4"

ForeColor="#333333"
GridLines="None">
<FooterStyle
BackColor="#507CD1"
Font-Bold="True"
ForeColor="White"
/>
<EditItemStyle
BackColor="#2461BF"
/>
<SelectedItemStyle
BackColor="#D1DDF1"
Font-Bold="True"
ForeColor="#333333"
/>
<PagerStyle
BackColor="#2461BF"
ForeColor="White"
HorizontalAlign="Center"
/>
<AlternatingItemStyle
BackColor="White"
/>
<ItemStyle
BackColor="#EFF3FB"
/>
<Columns>
<asp:BoundColumn
DataField="LastName"
HeaderText="Nom de famille">
<HeaderStyle
Width="150px"
/>
</asp:BoundColumn>
<asp:BoundColumn
DataField="FirstName"
HeaderText="Pr‚nom">
<HeaderStyle
Width="150px"
/>
</asp:BoundColumn>
<asp:BoundColumn
DataField="RptEvents.DateTime"
HeaderText="Date d'entr‚e"></asp:BoundColumn>
<asp:BoundColumn
DataField="EventText"
HeaderText="Ev‚nement">
</asp:BoundColumn>
</Columns>
<HeaderStyle
BackColor="#507CD1"
Font-Bold="True"
ForeColor="White"
/>
</asp:DataGrid>

</div>
</form>
</body>
</html>
<hr />

Je pense avoir un probleme de comprehension a ce niveau, je suis debutant alors si je peux avoir un peu d'explication...

3 réponses

Réponse 1 / 3
cs_akaii Messages postés 109 Date d'inscription mardi 10 janvier 2006 Statut Membre Dernière intervention 14 février 2014
18 déc. 2008 à 21:46
Je sais que c'est bientot les fetes mais y a personne pour un ptit coup de main?
0
Réponse 2 / 3
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
19 déc. 2008 à 15:50
Bonjour,

Cela ressemble à de l'ASP : www.aspfr.com

http://nhen0039.chez-alice.fr/index.php
0
Réponse 3 / 3
cs_akaii Messages postés 109 Date d'inscription mardi 10 janvier 2006 Statut Membre Dernière intervention 14 février 2014
20 déc. 2008 à 03:38
Merci d'avoir pris la peine de repondre.
0

Discussions similaires

Comment remplir un datagrid
Bouloute -
maryy -

12 réponses
datagrid en php
cs_marocmarocmaroc -
nautilus99 -

11 réponses
lire une cellule dans une DataGridView
tremiesoj -
meliodas -

4 réponses
VB.Net Écrire dans un DataGridView
cs_MagDix -
radzo -

15 réponses
actualiser les données d'un datagridview après insertion
alexcousin -
alexcousin -

5 réponses
Rejoignez-nous