Dim strCatalog As String strCatalog = "CataLogTest" Dim strQuery As String strQuery = "Select DocTitle,Filename,Size,PATH,URL from SCOPE() where FREETEXT('" & TextBox1.Text & "')" ' Dim connString As String = "Provider=MSIDXS.1;Integrated Security .='';Data Source='" & strCatalog & "'" Dim cn As New System.Data.OleDb.OleDbConnection(connString) Dim cmd As New System.Data.OleDb.OleDbDataAdapter(strQuery, cn) Dim testDataSet As New DataSet() cmd.Fill(testDataSet) Dim source As New DataView(testDataSet.Tables(0)) DataGrid1.DataSource = source DataGrid1.DataBind()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)