form1.vb

SQL Server 业已成为最为流行的几大数据库之一

Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Common


Public Class Form1
    Dim sqlCmd As New SqlClient.SqlCommand
    Dim conn As New SqlClient.SqlConnection
    Dim sqladapter As New SqlClient.SqlDataAdapter
    Dim ds As New Data.DataSet

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conn.ConnectionString = ("Data Source=JIAYONG-A8UZA20;Initial Catalog=Northwind;Integrated Security=True")
        conn.Open()
        sqlCmd.Connection = conn

    End Sub

    Private Sub btSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSearch.Click

        sqlCmd.CommandText = "SELECT * FROM Categories " _
        & "WHERE CONTAINS( description, '" + tbSearch.Text + "')"
        sqladapter.SelectCommand = sqlCmd
        sqladapter.Fill(ds)
        DataGridView1.Refresh()
        DataGridView1.DataSource = ds.Tables(0)


    End Sub

    Private Sub BindingSource1_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingSource1.CurrentChanged

    End Sub

    Private Sub btCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCreate.Click

        Dim srv As Server
        srv = New Server
        '声明一个指向数据库Northwind的数据库对象db.
        Dim db As Database
        db = srv.Databases("Northwind")
        '声明一个指向数据表Categories的数据表对象tb.
        Dim tb As Table
        tb = db.Tables("Categories")
        '声明一个全文目录
        Dim ftc As FullTextCatalog
        Try
            ftc = New FullTextCatalog(db, "Test_Catalog_Smo")
            ftc.IsDefault = True
            'Create the Full Text Search catalog on the instance of SQL Server.
            ftc.Create()
            '声明一个全文索引
            Dim fti As FullTextIndex
            fti = New FullTextIndex(tb)
            '声明一个全文索引字段，这里为Description
            Dim ftic As FullTextIndexColumn
            ftic = New FullTextIndexColumn(fti, "Description")
            '将指定的索引字段添加到全文索引中
            fti.IndexedColumns.Add(ftic)
            fti.ChangeTracking = ChangeTracking.Automatic
            '指定用于创建全文索引的惟一索引
            fti.UniqueIndexName = "PK_Categories"
            '指定与全文索引相关的全文目录
            fti.CatalogName = "Test_Catalog_Smo"
            '创建该全文索引
            fti.Create()
        Catch ex As Exception
            MsgBox("创建全文索引时失败")
            Return
        End Try
        MsgBox("成功地在数据表Categories中创建全文索引")

    End Sub
End Class