Project Management Using Gantt Chart

Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Partial Class Group
    Inherits System.Web.UI.Page

    Dim cn As New SqlClient.SqlConnection()
    Dim cmd As New SqlClient.SqlCommand

    Protected Sub btn_Save_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Save.Click

        Dim strCon As String = "Data Source=. ;Initial Catalog=MyDB ;Integrated Security=True"
        cn.ConnectionString = strCon
        Dim strsql As String

        Try
            strsql = "insert into tblGroup(name,blockcolor,ProjID) values('" + Me.txtGroup.Text + "',N'" + Me.drp_Color.Text + "'," + Me.drp_ProjName.SelectedValue.ToString() + ") "
            Dim objcommand As New SqlClient.SqlCommand(strsql, cn)

            cn.Open()
            objcommand.ExecuteNonQuery()

        Catch ex As Exception
        Finally
            cn.Close()
        End Try

    End Sub


End Class