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 - 20 déc. 2008 à 03:41
cs_akaii Messages postés 109 Date d'inscription mardi 10 janvier 2006 Statut Membre Dernière intervention 14 février 2014 - 22 déc. 2008 à 06:18
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 />
<%@PageLanguage="VB"AutoEventWireup="false"CodeFile="EntryExitResult.aspx.vb"Inherits="EntryExitResult" %>
<%@ImportNamespace="System" %>
<%@ImportNamespace="System.Data" %>
<%@ImportNamespace="System.Data.OleDb" %>
<%@ImportNamespace="System.Data" %>
<%@ImportNamespace="System.Data.SqlClient" %>
<!

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

htmlxmlns
="http://www.w3.org/1999/xhtml">
<headrunat
="server">
<title></title
>
</head
>

[javascript:window.history.go(-1) Retour]
<formid="form1"runat
="server">

<%
Dim ObjetConnection As OleDbConnection
Dim ObjetCommand As OleDbCommand
Dim ObjetDataAdapter As OleDbDataAdapter
Dim ObjetDataSet AsNew DataSet
Dim ObjetDataTable AsNew 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 AsString

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

"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()
%>

<FooterStyleBackColor="#507CD1"Font-Bold="True"ForeColor="White"
/>
<EditItemStyleBackColor="#2461BF"
/>
<SelectedItemStyleBackColor="#D1DDF1"Font-Bold="True"ForeColor="#333333"
/>
<PagerStyleBackColor="#2461BF"ForeColor="White"HorizontalAlign="Center"
/>

<Columns
>

<HeaderStyleWidth="150px"
/>

<HeaderStyleWidth="150px"
/>

</Columns
>
<HeaderStyleBackColor="#507CD1"Font-Bold="True"ForeColor="White"
/>

</form
>

</html
>
<hr />

Je pense avoir un probleme de comprehension au niveau des ObjetDataAdapter et des ObjetDataSet.Tables()
, je suis debutant alors si je peux avoir un peu d'explication...

1 réponse

Réponse 1 / 1
cs_akaii Messages postés 109 Date d'inscription mardi 10 janvier 2006 Statut Membre Dernière intervention 14 février 2014
22 déc. 2008 à 06:18
Besoin d'aide s'il vous plait
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