Visual Basic

Imports System.IO
Imports System.Text
Imports System.Security.Cryptography

Public Class Encryption64
    Private key() As Byte = {}
    Private IV() As Byte = {&H11, &H22, &H33, &H44, &H55, &H66, &H77, &H88}

    Public Function Decrypt(ByVal strToDecrypt As String, _
                            ByVal strEncryptionKey As String) As String
        '*******************************************************
        '   This function will:                                 
        '       - Accept a string and encryption key            
        '       - Decrypt and return the string                 
        '                                                       
        '   NOTE:  If strToDecrypt is from a query string,      
        '          the Request.QueryString will have replaced   
        '          any '+' characters with a space.             
        '*******************************************************
        Dim inputByteArray(strToDecrypt.Length) As Byte
        Dim des As New DESCryptoServiceProvider()
        Dim ms As New MemoryStream()

        Try
            'Set key
            key = System.Text.Encoding.UTF8.GetBytes(Left(strEncryptionKey, 8))

            'Convert input string into byte array
            inputByteArray = Convert.FromBase64String(strToDecrypt)

            'Perform the decryption with memory stream object
            Dim cs As New CryptoStream(ms, des.CreateDecryptor(key, IV), CryptoStreamMode.Write)
            cs.Write(inputByteArray, 0, inputByteArray.Length)
            cs.FlushFinalBlock()

            'Convert and return decrypted byte array in memory stream into string
            Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
            Return encoding.GetString(ms.ToArray())

        Catch e As Exception
            Return e.Message
        End Try
    End Function

    Public Function Encrypt(ByVal strToEncrypt As String, _
                            ByVal strEncryptionKey As String) As String
        '***************************************************
        '   This function will:                             
        '       - Accept a string and encryption key        
        '       - Encrypt and return the string             
        '***************************************************
        Dim des As New DESCryptoServiceProvider()
        Dim ms As New MemoryStream()

        Try
            'Set key
            key = System.Text.Encoding.UTF8.GetBytes(Left(strEncryptionKey, 8))

            'Convert input string into byte array
            Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(strToEncrypt)

            'Perform the encryption with memory stream object
            Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV), CryptoStreamMode.Write)
            cs.Write(inputByteArray, 0, inputByteArray.Length)
            cs.FlushFinalBlock()

            'Convert and return encrypted byte array in memory stream into string
            Return Convert.ToBase64String(ms.ToArray())

        Catch e As Exception
            Return e.Message
        End Try
    End Function

End Class

byte[] info = System.Text.Encoding.UTF8.GetBytes("hello world");

.<br />
.<br />
.<br />
.<br />
Catch ex As Exception<br />
<br />
If Not ex.Message="" Then<br />
''Do your needful<br />
End If<br />
<br />
End Try

<br />
Private Function YourFunction() as Integer<br />
If something = True Then<br />
Return 0<br />
Else<br />
Return 1<br />
End If<br />
Catch Ex as Exception<br />
Return 2<br />
End Try<br />
End Function<br />

<br />
Select Case YourFunction()<br />
Case 0 'your function would have returned True<br />
<br />
Case 1 'your function would have returned False<br />
<br />
Case 2 'an exception would have occurred in you function<br />
<br />
End Select<br />

manni_n wrote:

the code i m using is as follows:
textbox1.databindigs.add("text",dataset.tables(0),"Name")

manni_n wrote:

for this purpose i m using dataset.acceptchange method

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
               Try<br />
            Dim da As New OleDbDataAdapter("select * from dbo_info where IDNo='" & Label2.Text & "' ", "provider=microsoft.jet.oledb.4.0;data source=e:\new folder\testIP.mdb;")<br />
            Dim ds As New DataSet<br />
            da.Fill(ds)<br />
            Label2.DataBindings.Add("text", ds.Tables(0), "IDNo")<br />
            Label43.DataBindings.Add("text", ds.Tables(0), "Name")<br />
            Label42.DataBindings.Add("text", ds.Tables(0), "ParName")

Dim da As New OleDbDataAdapter("select * from dbo_info where IDNo='" & Label2.Text & "' ", _
    "provider=microsoft.jet.oledb.4.0;data source=e:\new folder\testIP.mdb;")
Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(myDataAdapter)
 
Dim ds As New DataSet
da.Fill(ds)

da.Update(ds)