Visual Basic

Private Sub InsertDBIndexData(ByVal idbID As Integer, ByVal sCPR As String, ByVal sName As String, ByVal sCompany As String, ByVal sAddress As String, ByVal sStatus As String, ByVal sType As String)
        'New person in the index
        Dim writer As New Lucene.Net.Index.IndexWriter(DBIndexLocation, New StandardAnalyzer, False)
        Dim doc As New Document
        Dim f1 As New Field("dbID", idbID, Field.Store.YES, Field.Index.NO)
        Dim f2 As New Field("CPR", sCPR, Field.Store.YES, Field.Index.TOKENIZED)
        Dim f3 As New Field("Name", sName, Field.Store.YES, Field.Index.TOKENIZED)
        Dim f4 As New Field("Company", sCompany, Field.Store.YES, Field.Index.TOKENIZED)
        Dim f5 As New Field("Address", sAddress, Field.Store.YES, Field.Index.TOKENIZED)
        Dim f6 As New Field("Status", sStatus, Field.Store.YES, Field.Index.NO)
        Dim f7 As New Field("Type", sType, Field.Store.YES, Field.Index.NO)
        doc.Add(f1)
        doc.Add(f2)
        doc.Add(f3)
        doc.Add(f4)
        doc.Add(f5)
        doc.Add(f6)
        doc.Add(f7)
        writer.AddDocument(doc)
        writer.Optimize()
        writer.Close()
    End Sub

Private Sub newIndex()
        Dim odConnection As oleDbConnection = new oleDbConnection("......db.mdb")
        odConnection.Open()
        Dim writer As New Lucene.Net.Index.IndexWriter(DBIndexLocation, New StandardAnalyzer, True)
        writer.Close()

        odCommand = New OleDbCommand("select * from Customers", odConnection)
        odReader = odCommand.ExecuteReader

        While odReader.Read
            'InsertDBIndexData(odReader("id"), odReader("cpr"), odReader("firstname") & " " & odReader("lastname"), odReader("legalname"))
            InsertDBIndexData(odReader("persid").ToString, odReader("cpr").ToString, odReader("firstname").ToString & " " & odReader("lastname").ToString, odReader("legalname").ToString, odReader("address1").ToString, odReader("Status").ToString, odReader("InsType").ToString)
        End While

        odReader.Close()
    End Sub

Jan Sommer wrote:

writer.AddDocument(doc) writer.Optimize()

Jan Sommer wrote:

And when i'm indexing it also takes up ALOT of resources. Is there any way i can limit that?

VB 8.0 wrote:

1 ) Now , the problem is , i am having some normal controls like Textbox,Rb,CBox,Checkbox,Grid ..which are generating at runtime on the panel(Runtime generated ).Now if if move the RectangleShape ,OValShape on those controls ( Textbox,Rb,CBox,Checkbox,DataGridview ..) Dark Lines scattering all over the control are appearing while Dragging from one place to another place (For this i used pickbox from codeproject for shapes ) on the panel .I have refresh my panel again .THis makes the Shape controls Flickering all the time

VB 8.0 wrote:

2 ) If i create a control .like Textbox,Rb,CBox,Checkbox,Grid on the location of Shape control ,The boundaries of shape controls are appearing on the Control which is not good for looking . I want like at Visual Studio 2005 Design time .It has to go back of the control and doesnt show the boundaries of shapecontrol on normal control .

VB 8.0 wrote:

3) Its not in the smooth way like in Visual studio 2005 design time