DataGrid ne s'affiche pas
Salut,
Pourquoi mon DataGrid ne s'affiche et je cale... donc j'aurais bien besoin d'un coup de main.
J'ai deux formes Default.aspx et UserListTest2.aspx.
Dans la premiere j'ai 3 champs a remplir par l'utilisateur et un bouton ("Bouton Test 2") qui appelle la deuxieme forme ou doit s'afficher un DataGrid ("dataGridUserList").
Aucun message d'erreur et la requete SQL doit passer car je suis dans la BD.
Voici les deux formes
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
| <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System" %>
<!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>Access control</title>
</head>
<body>
<img src="./Images/ProjectLogo.gif" />
<form id="frmDefault" runat="server">
<div>
<br />
Nom de Famille:<br />
<asp:TextBox ID="txtLastName" runat="server" Width="173px" TabIndex="1"></asp:TextBox>
<br />
<br />
Numero de Badge:<br />
<asp:TextBox ID="txtBadgeNbr" runat="server"></asp:TextBox>
<br />
<br />
Entreprise:<br />
<asp:DropDownList ID="ddlstEnterprise" runat="server"
DataSourceID="sqldsEnterprise" DataTextField="Custom01"
DataValueField="Custom01">
</asp:DropDownList>
<asp:SqlDataSource ID="sqldsEnterprise" runat="server"
ConnectionString="<%$ ConnectionStrings:sqldsEnterpriseLst %>"
SelectCommand="SELECT Custom01 FROM IdWorksView group by Custom01 ORDER BY Custom01 ASC">
</asp:SqlDataSource>
<br />
<br />
<asp:Button ID="btnSearch" runat="server" Text="Chercher" EnableTheming="True"
PostBackUrl="~/UserList.aspx" ></asp:Button>
<br />
<br />
<asp:Button ID="ButtonAfficheGrid" Text="Bouton Test 2"
PostBackUrl="~/UserListTest2.aspx" runat="server" />
<br />
</div>
</form>
</body>
</html> |
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
| <%@ Page Language="VB" AutoEventWireup="false" CodeFile="UserListTest2.aspx.vb" Inherits="UserListTest2" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<!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>
<form id="frmUserListTest2" 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 strSql As String
Dim strConn As String
Dim ObjetCB As OleDbCommandBuilder
Dim dataGridUserList As DataGrid
Dim txtLastName As String
Dim txtBadgeNbr As String
Dim ddlstEnterprise As String
Dim SQL_LIST_BADGES As String
'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=Kns2007"
'Initialisation de la chaîne contenant l'instruction SQL
txtLastName = Replace(Request.Form("txtLastName"), "'", "''")
txtBadgeNbr = Replace(Request.Form("txtBadgeNbr"), "'", "''")
ddlstEnterprise = Request.Form("ddlstEnterprise")
If ddlstEnterprise <> "" Then
SQL_LIST_BADGES = " SELECT * FROM idWorksView WHERE Custom01 ='" & ddlstEnterprise & "' ORDER BY LastName"
ElseIf txtBadgeNbr <> "" Then
SQL_LIST_BADGES = " SELECT * FROM idWorksView WHERE IndividualId = '" & txtBadgeNbr & "' ORDER BY LastName"
Else
SQL_LIST_BADGES = " SELECT * FROM idWorksView WHERE LastName LIKE '" & txtLastName & "%' ORDER BY LastName"
End If
dataGridUserList = New DataGrid
ObjetConnection = New OleDbConnection
ObjetConnection.ConnectionString = strConn
ObjetConnection.Open()
'Response.Write(ObjetConnection.State) ' Affiche le statut de la connection
ObjetCommand = New OleDbCommand(SQL_LIST_BADGES)
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
ObjetCommand.Connection() = ObjetConnection
ObjetCB = New OleDbCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Fill(ObjetDataSet, "idWorksView")
ObjetDataTable = ObjetDataSet.Tables("idWorksView")
dataGridUserList.DataSource = ObjetDataTable
dataGridUserList.DataBind()
%>
<asp:DataGrid ID="dataGridUserList" runat="server" >
<Columns>
<asp:BoundColumn DataField="LastName" HeaderText="LastName"></asp:BoundColumn>
<asp:BoundColumn DataField="FirstName" HeaderText="FirstName"></asp:BoundColumn>
</Columns>
</asp:DataGrid>
</div>
</form>
</body>
</html> |
Qu est ce que j ai rate? Merci de votre aide
