Visual Basic

cmd.CommandText = "INSERT INTO EraDms(DocId,Description,Address,NoOfPages, SendOrReceived, SentDate,ReceivedDate,ForwardedWorkingUnit,Attachements,ForwardedDate,ReceivedBy,DocPath) " & _
                           " VALUES(" & Me.RefferencNoTxt.Text.ToString & ",'" & Me.DescriptionTextBox.Text & "','" & Me.AddressTextBox.Text & "','" & Me.NoOfPagesTextBox.Text & "','" & Me.SendOrReceievedComboBox.Text & "','" & _
                           Me.SentDateTextBox.Text & "','" & Me.receivedDate.Text & "','" & Me.ForwardedWorkingUnitTextBox.Text & "','" & Me.AttachementsTextBox.Text & "','" & Me.TextBox6.Text & "','" & Me.ReceivedByTextBox.Text & "','" & Me.DocPathTextBox.Text & "')"
           cmd.ExecuteNonQuery()
           MessageBox.Show("File Upload Successfull", "ERA-DMS-File Uploader", MessageBoxButtons.OK, MessageBoxIcon.Information)
           RefreshData()

           '  With ERA_DMS_HOME

           ' End With
           cnn.Close()
       Else
           'update data in table
           cmd.CommandText = "UPDATE Eradms " & _
                       " SET DocId=" & Me.RefferencNoTxt.Text.ToString & _
                       ", Description='" & Me.DescriptionTextBox.Text & "'" & _
                       ", Address='" & Me.AddressTextBox.Text & "'" & _
                       ", NoOfPages='" & Me.NoOfPagesTextBox.Text & "'" & _
                       ", SendOrReceived='" & Me.SendOrReceievedComboBox.Text & "'" & _
                       ", SentDate='" & Me.SentDateTextBox.Text & "'" & _
                        ", ReceivedDate='" & Me.TextBox1.Text & "'" & _
            ", ForwardedWorkingUnit='" & Me.ForwardedWorkingUnitTextBox.Text & "'" & _
             ", Attachements='" & Me.AttachementsTextBox.Text & "'" & _
             ",ForwardedDate ='" & Me.TextBox6.Text & "'" & _
             ",ReceivedBy ='" & Me.ReceivedByTextBox.Text & "'" & _
             ",DocPath='" & Me.DocPathTextBox.Text & "'" &
                       " WHERE DocId=" & Me.RefferencNoTxt.Text.ToString
           cmd.ExecuteNonQuery()
           RefreshData()

Private Sub RefreshData()
       Try


           If Not cnn.State = ConnectionState.Open Then
               'open connection
               cnn.Open()
           End If

           Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM EraDms", cnn)



           Dim dt As New DataTable
           'fill data to datatable
           da.Fill(dt)

           'offer data in data table into datagridview


       Catch ex As OleDb.OleDbException
       End Try
   End Sub

Dim de As New DirectoryEntry("GC://DC=us,DC=myCompany,DC=com", "myDomain\MyAdminUsername", "myPassword")

        Dim ds As New DirectorySearcher(de)
        ds.PropertiesToLoad.Add("department")
        ds.SearchScope = SearchScope.Subtree

        Dim ue As New DirectoryEntry   
        
        ds.Filter = String.Format("(SAMAccountName={0})", Me.tboxUserName.Text)

        Try
            ue = ds.FindOne.GetDirectoryEntry

            For Each sproperty As String In ue.Properties.PropertyNames
                debug.print(String.Format("{0}{1} : {2} ", System.Environment.NewLine, sproperty, ue.Properties(sproperty)(0)))
            Next

           
            ' test the update here ...

            If (ue.Properties.Contains("department")) Then
                ue.Properties("department").Value = "IT"
            Else
                ue.Properties("department").Add("IT")
            End If

            ue.CommitChanges()
            ue.RefreshCache()
            ue.Close()

        Catch ex As Exception
           
           debug.print (ex.Message)

        End Try

  Imports System.Threading
  Imports System

Public Class Form1
  'Form1 controls:
  'Button1:      Starts/Resumes thread execution.
  'Button2:      Suspends thread execution.
  'txtResults:   Textbox for count results.
  'Quit_cmd:     End program.

  'Define a delegate type for the form's DisplayValue method:
  Private Delegate Sub DisplayValueDelegateType(ByVal txt _
                                                As String)

  'Declare a delegate variable to point to the form's
  'DisplayValue method:
  Private m_DisplayValueDelegate As DisplayValueDelegateType

  Private m_Thread As Thread

  'This value is incremented by the thread:
  Public Value As Integer = 0

  'Add the text to the results.  The form provides this 
  'service because the thread cannot access the form's 
  'controls directly:
  Public Sub DisplayValue(ByVal txt As String)
    txtResults.Text = txt
    'txtResults.Select(txtResults.Text.Length - 1, 0)

  End Sub

  Private Sub Form1_Load(ByVal sender As Object, _
                         ByVal e As System.EventArgs) _
                         Handles MyBase.Load
    'Make a new counter object:
    Dim new_counter As New Counter(Me, my_number:=1)
    '...is the same as:
    'Dim my_number As Integer = 1    'The thread number.
    'Dim new_counter As New Counter(Me, my_number)

    'Make the thread to run the object's Run method:
    m_Thread = New Thread(AddressOf new_counter.Runno)

    'Make this a background thread so it automatically
    'ends when the form's thread ends:
    m_Thread.IsBackground = True
    m_Thread.Start()
    Button1.Enabled = False
    Button2.Enabled = True
  End Sub

  Private Sub Button1_Click(ByVal sender As Object, _
                            ByVal e As System.EventArgs) _
                            Handles Button1.Click
    If (m_Thread.ThreadState And ThreadState.Unstarted) _
        <> 0 Then

       'The thread has never been started. Start it:
      m_Thread.Start()
    Else
      ' The thread is paused. Resume it:
      m_Thread.Resume()    'THIS HAS BEEN DEPRECATED!!!
    End If

    Button1.Enabled = False
    Button2.Enabled = True
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) _
                            Handles Button2.Click
    'Suspend the thread:
    Debug.WriteLine("Suspending thread")
    m_Thread.Suspend()    'THIS HAS BEEN DEPRECATED!!!

    Button1.Enabled = True
    Button2.Enabled = False
  End Sub

  Public Sub DoSomething(ByVal m_MyForm As Form1, _
                         ByVal m_DisplayValueDelegate _
                         As Object)

    For loopo = 1 To 10000000
      'Wait 3 seconds:
      Thread.Sleep(3000)

      'Lock the form object. This doesn't do anything to the
      'form, it just means no other thread can lock the form 
      'object until we release the lock.  That means a thread
      'can update m_MyForm.Value and then display its value
      'without interference:

      SyncLock m_MyForm
          'Increment the form's Value:
          'm_MyForm.Value += 1
          m_MyForm.Value = m_MyForm.Value + 1

          'Display the value on the form.  The call to 
          'InvokeRequired returns True if this code is not
          'running on the same thread as the object m_MyForm.
          'In this example, we know that is true so the call 
          'isn't necessary, but in other cases it might not
          'be so clear:
          If m_MyForm.InvokeRequired() Then
              'Invoke the delegate:
              m_MyForm.Invoke(m_DisplayValueDelegate, _ 
                              Str(m_MyForm.Value))
          End If
      End SyncLock

    Next loopo

  End Sub

  Private Sub Quit_cmd_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) _
                             Handles Quit_cmd.Click
    End
  End Sub

End Class





'This class's Run method, Runno(), displays a count in the 
'Output window.
Public Class Counter
    'The form that owns the Value variable:
    Private m_MyForm As Form1

    'Define a delegate type for the form's DisplayValue 
    'method:
    Private Delegate Sub DisplayValueDelegateType( _
                                        ByVal txt As String)

    'Declare a delegate variable to point to the form's 
    'DisplayValue method:
    Private m_DisplayValueDelegate As DisplayValueDelegateType

    'This counter's thread number:
    Private m_Number As Integer

    Public Sub New(ByVal my_form As Form1, _
                   ByVal my_number As Integer)
        m_MyForm = my_form
        m_Number = my_number    'The thread number.

        'Initialize the delegate variable to point to the
        'form's DisplayValue method:
        m_DisplayValueDelegate = AddressOf _ 
                                 m_MyForm.DisplayValue

    End Sub

  'This procedure is directly addressed for threading.  This
  'test is to see whether or not a form1 Class's procedure
  'called from here can respond to a thread pause.  In other 
  'words, does a threaded procedure's pause also apply to any 
  'calls it makes, regardless of what class those calls 
  'reside within?  Can the pause immediately go into effect 
  'if it is applied when the program is presently running 
  'that call?

  'The upshot is, yes it can...Kind of.  The call certainly 
  'was paused, but the Thread.Sleep(3000) line was unaffected 
  'and kept counting regardless of everything else being in a 
  'paused state.  So you have to be careful not to assume that
  'certain functions will necessarily respond to a thread 
  'pause, especially timers, stopwatches, etc., unless the 
  'thread pause/resume state can be used to affect those 
  'objects.
  '
  'IMPORTANT:  The thread pause action was able to occur 
  'immediately while the Thread.Sleep(3000) line was still 
  'suspending execution.  So even though it kept counting for 
  '3sec after the pause was initiated, it still allowed the 
  'pause to go into effect:

  'Also, THE CALLED SUB IS NOT IN THE SAME CLASS AS THE 
  'THREADED PROCEDURE.

  Public Sub Runno()
    Try
      Call Form1.DoSomething(m_MyForm, m_DisplayValueDelegate)
    Catch ex As Exception
      'An unexpected error:
      Debug.WriteLine("Unexpected error in thread " & _
                      m_Number & vbCrLf & ex.Message)
    End Try

  End Sub




End Class