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> |
Partager