Visual Basic

NasimKaziS wrote:

preferenceValueField

 Dim DBConnectionString As String = ""<br />
 Dim MyTableName As String = ""<br />
 Dim MyCommandText As String = ""<br />
 Dim MyReader As System.Data.OleDb.OleDbDataReader<br />
 Dim DBCommand As New System.Data.OleDb.OleDbCommand<br />
 Dim DBConnection As System.Data.OleDb.OleDbConnection<br />
 Dim MyDataSet As DataSet<br />
<br />
 'Call some helper functions.<br />
 DBConnection = GetConnection()<br />
 DBConnectionString = GetConnectionString()<br />
<br />
 'Set connection and open<br />
 DBConnection.ConnectionString = DBConnectionString<br />
 DBConnection.Open()<br />
<br />
 'Set command.<br />
 MyTableName = DBTableName.ToString()<br />
 MyCommandText = " select * from " & MyTableName & " "<br />
 DBCommand.CommandText = MyCommandText<br />
<br />
 'Get a data reader.<br />
 MyReader = DBCommand.ExecuteReader()<br />
<br />
‘Populate your combo with MyReader<br />
While MyReader.Read<br />
MyCombo.Items.Add(MyReader("FieldName"))<br />
End While

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'T1 is March 20 2007, at 19:45
    Dim t1 As New Date(2007, 3, 20, 19, 45, 0)
    'T2 is March 21 2007, at 8:53
    Dim t2 As New Date(2007, 3, 21, 8, 53, 0)
    'The timespan is 13:08...which is correct
    MsgBox(t2.Subtract(t1).ToString())
End Sub

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");