- ' Fichier TestIndex.aspx
-
- <%@ Page Language="vb" AutoEventWireup="false"
- Codebehind="TestIndex.aspx.vb" Inherits="DotNetSysInfo.TestIndex"%>
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//FR">
- <HTML>
- <HEAD>
- <title>Test d'utilisation d'indexing Service</title>
- <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
- <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
- <meta name="vs_defaultClientScript" content="JavaScript">
- <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie3-2nav3-0">
- </HEAD>
- <body >
- <form id="Form1" method="post" runat="server">
- <asp:DataGrid id="MonDataGrid" runat="server" Width="100%" BorderColor="#3366CC"
- BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="4">
- <SelectedItemStyle Font-Bold="True" ForeColor="#CCFF99"
- BackColor="#009999"></SelectedItemStyle>
- <ItemStyle ForeColor="#003399" BackColor="White"></ItemStyle>
- <HeaderStyle Font-Bold="True" ForeColor="#CCCCFF" BackColor="#003399"></HeaderStyle>
- <FooterStyle ForeColor="#003399" BackColor="#99CCCC"></FooterStyle>
- <PagerStyle HorizontalAlign="Left" ForeColor="#003399"
- BackColor="#99CCCC" Mode="NumericPages"></PagerStyle>
- </asp:DataGrid>
- </form>
- </body>
- </HTML>
-
- ' -------------------------------
- ' Fichier TestIndex.aspx.vb
- ' Exemple simple de recherche dans un catalogue Index Services EN vb.net
-
- Imports System.Data
- Imports System.Data.OleDb
- Imports System.Collections
- Imports System.Collections.Specialized
-
- Public Class TestIndex
- Inherits System.Web.UI.Page
- Protected WithEvents MonDataGrid As System.Web.UI.WebControls.DataGrid
-
- Private MonoleDbSelectCommand1 As New System.Data.OleDb.OleDbCommand()
- Private MondbAdapter As New System.Data.OleDb.OleDbDataAdapter()
- Private MadbConnection As New System.Data.OleDb.OleDbConnection()
- Private LaRequette As String = ""
- Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
- Private MaDataTable As New DataTable()
-
- #Region " Code généré par le Concepteur Web Form "
-
- 'Cet appel est requis par le Concepteur Web Form.
- <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
-
- End Sub
-
- Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
- 'CODEGEN : cet appel de méthode est requis par le Concepteur Web Form
- 'Ne le modifiez pas en utilisant l'éditeur de code.
- InitializeComponent()
- End Sub
-
- #End Region
-
- Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
-
- Me.MondbAdapter.SelectCommand = Me.MonoleDbSelectCommand1
- Me.MonoleDbSelectCommand1.Connection = Me.MadbConnection
-
- ' Initialisation de la connexion avec notre catalogue
- Me.MadbConnection.ConnectionString = "Provider=MSIDXS;Data Source=DotNetQueDuBonheur"
-
- ' Création de la requette pour ADO.NET avec la recherche du mot Machine et DotNet
- LaRequette = "SELECT Rank, VPath, DocTitle, Filename, Characterization, Write " & _
- "FROM SCOPE('DEEP TRAVERSAL OF ""/DotNetSysInfo""') " & _
- "WHERE NOT CONTAINS(VPath, '""_vti_"" OR "".config""') " & _
- "AND CONTAINS(Contents, '""Machine"" OR ""DotNet""') " & _
- "OR CONTAINS(DocTitle, '""Machine"" OR ""DotNet""') " & _
- "ORDER BY Rank DESC"
-
- ' Assigne la requette et charge le résultat
- Me.MondbAdapter.SelectCommand.CommandText = LaRequette
- Me.MondbAdapter.Fill(MaDataTable)
-
- ' Envoie le résultat dans le Datagrid
- Me.MonDataGrid.DataSource = MaDataTable
- Me.MonDataGrid.DataBind()
-
- End Sub
-
- End Class
- ' --------------------------
-
' Fichier TestIndex.aspx
<%@ Page Language="vb" AutoEventWireup="false"
Codebehind="TestIndex.aspx.vb" Inherits="DotNetSysInfo.TestIndex"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//FR">
<HTML>
<HEAD>
<title>Test d'utilisation d'indexing Service</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie3-2nav3-0">
</HEAD>
<body >
<form id="Form1" method="post" runat="server">
<asp:DataGrid id="MonDataGrid" runat="server" Width="100%" BorderColor="#3366CC"
BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="4">
<SelectedItemStyle Font-Bold="True" ForeColor="#CCFF99"
BackColor="#009999"></SelectedItemStyle>
<ItemStyle ForeColor="#003399" BackColor="White"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="#CCCCFF" BackColor="#003399"></HeaderStyle>
<FooterStyle ForeColor="#003399" BackColor="#99CCCC"></FooterStyle>
<PagerStyle HorizontalAlign="Left" ForeColor="#003399"
BackColor="#99CCCC" Mode="NumericPages"></PagerStyle>
</asp:DataGrid>
</form>
</body>
</HTML>
' -------------------------------
' Fichier TestIndex.aspx.vb
' Exemple simple de recherche dans un catalogue Index Services EN vb.net
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Imports System.Collections.Specialized
Public Class TestIndex
Inherits System.Web.UI.Page
Protected WithEvents MonDataGrid As System.Web.UI.WebControls.DataGrid
Private MonoleDbSelectCommand1 As New System.Data.OleDb.OleDbCommand()
Private MondbAdapter As New System.Data.OleDb.OleDbDataAdapter()
Private MadbConnection As New System.Data.OleDb.OleDbConnection()
Private LaRequette As String = ""
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Private MaDataTable As New DataTable()
#Region " Code généré par le Concepteur Web Form "
'Cet appel est requis par le Concepteur Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN : cet appel de méthode est requis par le Concepteur Web Form
'Ne le modifiez pas en utilisant l'éditeur de code.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MondbAdapter.SelectCommand = Me.MonoleDbSelectCommand1
Me.MonoleDbSelectCommand1.Connection = Me.MadbConnection
' Initialisation de la connexion avec notre catalogue
Me.MadbConnection.ConnectionString = "Provider=MSIDXS;Data Source=DotNetQueDuBonheur"
' Création de la requette pour ADO.NET avec la recherche du mot Machine et DotNet
LaRequette = "SELECT Rank, VPath, DocTitle, Filename, Characterization, Write " & _
"FROM SCOPE('DEEP TRAVERSAL OF ""/DotNetSysInfo""') " & _
"WHERE NOT CONTAINS(VPath, '""_vti_"" OR "".config""') " & _
"AND CONTAINS(Contents, '""Machine"" OR ""DotNet""') " & _
"OR CONTAINS(DocTitle, '""Machine"" OR ""DotNet""') " & _
"ORDER BY Rank DESC"
' Assigne la requette et charge le résultat
Me.MondbAdapter.SelectCommand.CommandText = LaRequette
Me.MondbAdapter.Fill(MaDataTable)
' Envoie le résultat dans le Datagrid
Me.MonDataGrid.DataSource = MaDataTable
Me.MonDataGrid.DataBind()
End Sub
End Class
' --------------------------