Visual Basic

<br />
_updaterThread = New Thread(New ThreadStart(AddressOf _updater.StartUpdater)) <br />
_updaterThread.Start()

<br />
Imports System.Data.SqlClient<br />
Imports System.Text<br />
Public Class Form1<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
        Dim myConnection As New SqlConnection()<br />
        Dim myDataSet As New DataSet()<br />
        Dim myDataAdapter As SqlDataAdapter<br />
        Dim myUpdateCommand As SqlCommand<br />
        Dim myNewStr As String<br />
<br />
        'create connection string<br />
        myConnection.ConnectionString ="Server=.;Database=TestDB;UID=steve;pwd=password;Trusted_Connection=yes;"<br />
<br />
        'open connection to DB<br />
        myConnection.Open()<br />
<br />
        'setup data adapter <br />
        myDataAdapter = New SqlDataAdapter("select TEXT from SCRIPTS WHERE ID=1", myConnection)<br />
<br />
        'Initialize the SqlCommand object that will be used as the DataAdapter's UpdateCommand.<br />
        'Note that the WHERE clause uses only the CustId field to locate the record that is to be updated.<br />
        myUpdateCommand = New SqlCommand("UPDATE SCRIPTS SET TEXT=@pNewText FROM SCRIPTS WHERE ID =@pMyID", myDataAdapter.SelectCommand.Connection)<br />
<br />
        'Create and append the parameters for the Update command.<br />
        myUpdateCommand.Parameters.Add(New SqlParameter("@pNewText", SqlDbType.VarChar))<br />
        myUpdateCommand.Parameters("@pNewText").SourceVersion = DataRowVersion.Current<br />
        myUpdateCommand.Parameters("@pNewText").SourceColumn = "TEXT"<br />
<br />
        myUpdateCommand.Parameters.Add(New SqlParameter("@pMyID", SqlDbType.Int))<br />
        myUpdateCommand.Parameters("@pMyID").SourceVersion = DataRowVersion.Original<br />
        myUpdateCommand.Parameters("@pMyID").SourceColumn = "ID"<br />
<br />
<br />
        'Assign the SqlCommand to the UpdateCommand property of the SqlDataAdapter.<br />
        myDataAdapter.UpdateCommand = myUpdateCommand<br />
<br />
        'call the fill method to populate our dataset<br />
        myDataAdapter.Fill(myDataSet, "SCRIPTS")<br />
<br />
        'present the current entry in database<br />
        MsgBox("Script before updating" + vbCrLf + Encoding.Unicode.GetString(myDataSet.Tables("SCRIPTS").Rows(0)("TEXT")))<br />
<br />
        'modify current with replace to update field<br />
        myNewStr = Replace(Encoding.Unicode.GetString(myDataSet.Tables("SCRIPTS").Rows(0)("TEXT")), "hello", "steve")<br />
<br />
        'now convert our replaced field to a byte array<br />
        Dim dBytes As Byte()<br />
        dBytes = StrToByteArray(myNewStr)<br />
<br />
        'set the dataset table row to our converted byte array<br />
        myDataSet.Tables("SCRIPTS").Rows(0)("TEXT") = dBytes<br />
<br />
        'call the update method to write back to DB<br />
        myDataAdapter.Update(myDataSet, "SCRIPTS")<br />
<br />
        'close connection<br />
        myConnection.Close()<br />
<br />
    End Sub<br />
<br />
    Public Shared Function StrToByteArray(ByVal str As String) As Byte()<br />
<br />
        'converts string to byte array<br />
        Dim encoding As New System.Text.ASCIIEncoding()<br />
        Return encoding.GetBytes(str)<br />
<br />
    End Function<br />
<br />
End Class<br />

ComboBox1.DataSource = techDataSet.Tables("tblEmployee")
ComboBox1.DisplayMember = "EmployeeName"

        <br />
Dim mailMsg As New MailMessage("webmaster1@myhost.com", "webmaster2@xxxxxxxxx.com", "Test", "Test and Spam")<br />
        Dim mysmtp As SmtpClient<br />
        mysmtp = New SmtpClient("mail.myhost.com")<br />
<br />
        Try<br />
            mysmtp.Send(mailMsg)<br />
            MessageBox.Show("Sended!", _<br />
            "Email Send Status", MessageBoxButtons.OK, _<br />
            MessageBoxIcon.Information)<br />
        Catch exp As Exception<br />
            MessageBox.Show("Error:" & exp.Message, _<br />
            Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)<br />
        End Try<br />

<br />
SELECT NUM_KEY, EXTENSION, CELL_ID, ACTUAL_EXTENT, PROP_CATEGORY_ID, LIS_KEY, FUNC_KEY, RATEABLE, GEOCODE, NON_DISCREET_VALID, PROPERTY_ID FROM PROPERTY<br />