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 : Sélectionner tout - Visualiser dans une fenêtre à part
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>
    &nbsp;</form>
</body>
</html>
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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