Sub Form

  Try
            Dim FrmControlPlanCopyOption As New FrmControlPlanCopyOption()
            Dim result As DialogResult = FrmControlPlanCopyOption.ShowDialog(Me)
        Catch ex As Exception
            'transaction.Rollback()
            MsgBox(Err.Description)
            MsgBox("Error while processing. Previous execution was rollback")
            Exit Sub
        End Try

System name and IP Address

Private Sub GetIPAddress()

Dim strHostName As String
Dim strIPAddress As String

strHostName = System.Net.Dns.GetHostName()
strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()

MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)

End Sub

Wildcard Search (Text Update )

 Private Sub CboMachineName_TextUpdate(sender As Object, e As System.EventArgs) Handles CboMachineName.TextUpdate
        CboMachineName.Items.Clear()

        Conn = New SqlConnection(ConnectionStr)
        Conn.Open()
        Sql = ""

        CboMachineName.Select(CboMachineName.Text.Length, 0)

        Sql = "Select Distinct MachName from ControlPlanFoundryMachine where MachName like '%"         & (CboMachineName.Text) & "%' "
       
        Cmd = New SqlCommand(Sql, Conn)
        DR = Cmd.ExecuteReader
       
        If DR.HasRows = False Then
            CboMachineName.Focus()
            CboMachineName.Select(CboMachineName.Text.Length, 0)
            'MsgBox("No Items")
            Exit Sub
        Else
            While DR.Read()
                CboMachineName.Items.Add(DR.Item(0))
            End While
        End If

        DR.Close()
    End Sub

UNIQUE constraint on multiple columns

Create Table

CREATE TABLE Persons
(
P_Id int NOT NULL,
LastName varchar(255) NOT NULL,
FirstName varchar(255),
Address varchar(255),
City varchar(255),
CONSTRAINT uc_PersonID UNIQUE (P_Id,LastName)
)

Alter Table

ALTER TABLE ControlPlanFoundryMachine
Add CONSTRAINT uc_MachName UNIQUE (MachName)

Update from Test Database to Running Database

Update TaskUpdate Set TaskEndTime = b.TaskEndTime
From TaskUpdate a
Inner Join testproduction.dbo.TaskUpdate b on a.DetTranId = b.DetTranId
and a.MasTranId = b.MasTranId and a.EntryDate = b.EntryDate
and a.TaskStartTime = b.TaskStartTime 

SSRS Report LookUp

LookUp(Fields!Rawmaterial.Value,Fields!Rawmaterial.Value,Fields!Consumption.Value, "DS_Mas"


Note:
Fields!Rawmaterial.Value-Main Dataset Value

TextBox Numeric value

'1000

If Asc(e.KeyChar) <> 13 And Asc(e.KeyChar) <> 8 And Not IsNumeric(e.KeyChar) Then
            e.Handled = True
End If


'100.00

 If Asc(e.KeyChar) <> 13 And Asc(e.KeyChar) <> 8 And Asc(e.KeyChar) <> 46 And Not    IsNumeric(e.KeyChar) Then
            e.Handled = True
 End If

Unique Constraint - Alter Table

ALTER TABLE ControlPlanFoundryMachine
Add CONSTRAINT uc_MachName UNIQUE (MachName)

UNIQUE constraint on multiple columns

CREATE TABLE Persons
(
P_Id int NOT NULL,
LastName varchar(255) NOT NULL,
FirstName varchar(255),
Address varchar(255),
City varchar(255),
CONSTRAINT uc_PersonID UNIQUE (P_Id,LastName)
)

Upper Case

 Private Sub CboVehicleNo_KeyPress(sender As Object, e As      System.Windows.Forms.KeyPressEventArgs) Handles CboVehicleNo.KeyPress

        If Char.IsLetter(e.KeyChar) Then

            e.KeyChar = Char.ToUpper(e.KeyChar)

        End If

    End Sub