Visual Basic

Dim numberToWord As New Dictionary(Of Integer, string)

numberToWord.Add(0, "Zero")
numberToWord.Add(1, "One")
numberToWord.Add(2, "Two")
numberToWord.Add(3, "Three")
numberToWord.Add(4, "Four")
........
........

Dim numberToWord As New Dictionary(Of Char, string)

numberToWord.Add("0"C, "Zero")
numberToWord.Add("1"C, "One")
numberToWord.Add("2"C, "Two")
numberToWord.Add("3"C, "Three")
numberToWord.Add("4"C, "Four")
........
........

<br />
Partial Class Form1<br />
    Inherits System.Windows.Forms.Form<br />
<br />
    Public Numbers(7, 3) As String<br />
    Public Phonenumber As Integer<br />
    Public output As String<br />
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
        Numbers(0, 0) = "A" 	<br />
        Numbers(0, 1) = "B" '2    <br />
        Numbers(0, 2) = "C" '2    <br />
        Numbers(1, 0) = "D" '3    <br />
        Numbers(1, 1) = "E" '3    <br />
        Numbers(1, 2) = "F" '3    <br />
        Numbers(2, 0) = "G" '4    <br />
        Numbers(2, 1) = "H" '4   <br />
        Numbers(2, 2) = "I" '4    <br />
        Numbers(3, 0) = "J" '5    <br />
        Numbers(3, 1) = "K" '5   <br />
        Numbers(3, 2) = "L" '5    <br />
        Numbers(4, 0) = "M" '6    <br />
        Numbers(4, 1) = "N" '6    <br />
        Numbers(4, 2) = "O" '6    <br />
        Numbers(5, 0) = "P" '7    <br />
        Numbers(5, 1) = "R" '7    <br />
        Numbers(5, 2) = "S" '7    <br />
        Numbers(6, 0) = "T" '8    <br />
        Numbers(6, 1) = "U" '8    <br />
        Numbers(6, 2) = "V" '8    <br />
        Numbers(7, 0) = "W" '9    <br />
        Numbers(7, 1) = "X" '9    <br />
        Numbers(7, 2) = "Y" '9<br />
<br />
<br />
    End Sub<br />
    Private Sub GenerateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenerateButton.Click<br />
<br />
<br />
        Dim phoneNumber As String = GetNumber()<br />
<br />
        'check if the number contains 0 or 1<br />
        While phoneNumber.Contains("0") Or phoneNumber.Contains("1")<br />
            phoneNumber = GetNumber()<br />
        End While<br />
<br />
        'create a hashtable to hold the digits<br />
        Dim arrayL As New Hashtable<br />
        Dim x As Integer = 1<br />
        For i As Integer = 65 To 90 Step 3<br />
            arrayL.Add(x, New Char() {Chr(i), Chr(i + 1), Chr(i + 2)})<br />
            x += 1<br />
        Next<br />
<br />
        Dim word As String = ""<br />
<br />
        'creates only 3 words out of the phonenumber<br />
        For i As Integer = 0 To 2<br />
<br />
            For Each s As String In phoneNumber<br />
                word = word & DirectCast(arrayL.Item(CInt(s)), Char())(i).ToString<br />
            Next<br />
        Next<br />
<br />
        output = PhoneNumberWordsListBox.Text<br />
<br />
<br />
    End Sub<br />
<br />
    <br />
<br />
    Private Sub PhoneNumberTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhoneNumberTextBox.TextChanged<br />
        Phonenumber = PhoneNumberTextBox.Text<br />
<br />
    End Sub<br />
    Private Function GetNumber() As String<br />
<br />
        Return PhoneNumberTextBox.Text()<br />
    End Function<br />
End Class<br />
<br />
<br />

shaynoy wrote:

Is your activex support those important issues?

Paramu1973 wrote:

Dim Save_3 As String = "Delete from gnlmst where gnl_code is null"

Dim Save_3 As String = "Delete from gnlmst where @gnl_code is NULL"<br />
DAD.DeleteCommand = New SqlCommand(Save_3, con)<br />
<br />
With DAD.DeleteCommand.Parameters<br />
 Add("@gnl_code", SqlDbType.VarChar, 50).Value = "gnl_code"<br />
End With

Dim QueryText As String<br />
dim fieldName as string ="Field1"<br />
Dim command As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand()<br />
QueryText ="delete from table where @field is NULL" <br />
command.CommandText = QueryText<br />
command.Parameters.Add("@field", SqlDbType.Varchar, fieldName.length).Value = fieldName