Windows Form กับ DateTimePicker วิธีการ Insert ข้อมูล DateTime ลงใน Database (VB.Net,C#)

        private void frmMain_Load(object sender, EventArgs e)
        {
            //*** Check In
            this.dtCheckIn.CustomFormat = "dd MMM yyyy HH:mm:ss";
            this.dtCheckIn.Format = DateTimePickerFormat.Custom;

            //*** Check Out
            this.dtCheckOut.CustomFormat = "dd MMM yyyy HH:mm:ss";
            this.dtCheckOut.Format = DateTimePickerFormat.Custom;
        }

Private Sub frmMain_Load(sender As Object, e As EventArgs)
	'*** Check In
	Me.dtCheckIn.CustomFormat = "dd MMM yyyy HH:mm:ss"
	Me.dtCheckIn.Format = DateTimePickerFormat.[Custom]

	'*** Check Out
	Me.dtCheckOut.CustomFormat = "dd MMM yyyy HH:mm:ss"
	Me.dtCheckOut.Format = DateTimePickerFormat.[Custom]
End Sub

        private void btnSave_Click(object sender, EventArgs e)
        {
            string strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase";

            var objConn = new SqlConnection(strConnString);
            objConn.Open();

            string strSQL = "INSERT INTO myTable (EmpCode,EmpName,CheckIn,CheckOut) "
                + " VALUES  (@EmpCode,@EmpName,@CheckIn,@CheckOut)";

            var objCmd = new SqlCommand(strSQL, objConn);
            objCmd.Parameters.Add("@EmpCode", SqlDbType.VarChar).Value = this.txtEmpCode.Text;
            objCmd.Parameters.Add("@EmpName", SqlDbType.VarChar).Value = this.txtEmpName.Text;
            objCmd.Parameters.Add("@CheckIn", SqlDbType.DateTime).Value = this.dtCheckIn.Value;
            objCmd.Parameters.Add("@CheckOut", SqlDbType.DateTime).Value = this.dtCheckOut.Value;
            objCmd.ExecuteNonQuery();

            objConn.Close();

            MessageBox.Show("Completed!");
        }

Private Sub btnSave_Click(sender As Object, e As EventArgs)
	Dim strConnString As String = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase"

	Dim objConn = New SqlConnection(strConnString)
	objConn.Open()

	Dim strSQL As String = "INSERT INTO myTable (EmpCode,EmpName,CheckIn,CheckOut) " + " VALUES  (@EmpCode,@EmpName,@CheckIn,@CheckOut)"

	Dim objCmd = New SqlCommand(strSQL, objConn)
	objCmd.Parameters.Add("@EmpCode", SqlDbType.VarChar).Value = Me.txtEmpCode.Text
	objCmd.Parameters.Add("@EmpName", SqlDbType.VarChar).Value = Me.txtEmpName.Text
	objCmd.Parameters.Add("@CheckIn", SqlDbType.DateTime).Value = Me.dtCheckIn.Value
	objCmd.Parameters.Add("@CheckOut", SqlDbType.DateTime).Value = Me.dtCheckOut.Value
	objCmd.ExecuteNonQuery()

	objConn.Close()

	MessageBox.Show("Completed!")
End Sub

        private void btnSave_Click(object sender, EventArgs e)
        {
            string strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false";

            var objConn = new MySqlConnection(strConnString);
            objConn.Open();

            string strSQL = "INSERT INTO myTable (EmpCode,EmpName,CheckIn,CheckOut) "
                + " VALUES  (?EmpCode,?EmpName,?CheckIn,?CheckOut)";

            var objCmd = new MySqlCommand(strSQL, objConn);
            objCmd.Parameters.Add("?EmpCode", MySqlDbType.VarChar).Value = this.txtEmpCode.Text;
            objCmd.Parameters.Add("?EmpName", MySqlDbType.VarChar).Value = this.txtEmpName.Text;
            objCmd.Parameters.Add("?CheckIn", MySqlDbType.DateTime).Value = this.dtCheckIn.Value;
            objCmd.Parameters.Add("?CheckOut", MySqlDbType.DateTime).Value = this.dtCheckOut.Value;
            objCmd.ExecuteNonQuery();

            objConn.Close();

            MessageBox.Show("Completed!");
        }

Private Sub btnSave_Click(sender As Object, e As EventArgs)
	Dim strConnString As String = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"

	Dim objConn = New MySqlConnection(strConnString)
	objConn.Open()

	Dim strSQL As String = "INSERT INTO myTable (EmpCode,EmpName,CheckIn,CheckOut) " + " VALUES  (?EmpCode,?EmpName,?CheckIn,?CheckOut)"

	Dim objCmd = New MySqlCommand(strSQL, objConn)
	objCmd.Parameters.Add("?EmpCode", MySqlDbType.VarChar).Value = Me.txtEmpCode.Text
	objCmd.Parameters.Add("?EmpName", MySqlDbType.VarChar).Value = Me.txtEmpName.Text
	objCmd.Parameters.Add("?CheckIn", MySqlDbType.DateTime).Value = Me.dtCheckIn.Value
	objCmd.Parameters.Add("?CheckOut", MySqlDbType.DateTime).Value = Me.dtCheckOut.Value
	objCmd.ExecuteNonQuery()

	objConn.Close()

	MessageBox.Show("Completed!")
End Sub

        private void btnSave_Click(object sender, EventArgs e)
        {
            string strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database/mydatabase.mdb;Jet OLEDB:Database Password=;";

            var objConn = new OleDbConnection(strConnString);
            objConn.Open();

            string strSQL = "INSERT INTO myTable (EmpCode,EmpName,CheckIn,CheckOut) "
                + " VALUES  (@EmpCode,@EmpName,@CheckIn,@CheckOut)";

            var objCmd = new OleDbCommand(strSQL, objConn);
            objCmd.Parameters.Add("@EmpCode", OleDbType.VarChar).Value = this.txtEmpCode.Text;
            objCmd.Parameters.Add("@EmpName", OleDbType.VarChar).Value = this.txtEmpName.Text;
            objCmd.Parameters.Add("@CheckIn", OleDbType.Date).Value = this.dtCheckIn.Value;
            objCmd.Parameters.Add("@CheckOut", OleDbType.Date).Value = this.dtCheckOut.Value;
            objCmd.ExecuteNonQuery();

            objConn.Close();

            MessageBox.Show("Completed!");
        }

Private Sub btnSave_Click(sender As Object, e As EventArgs)
	Dim strConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database/mydatabase.mdb;Jet OLEDB:Database Password=;"

	Dim objConn = New OleDbConnection(strConnString)
	objConn.Open()

	Dim strSQL As String = "INSERT INTO myTable (EmpCode,EmpName,CheckIn,CheckOut) " + " VALUES  (@EmpCode,@EmpName,@CheckIn,@CheckOut)"

	Dim objCmd = New OleDbCommand(strSQL, objConn)
	objCmd.Parameters.Add("@EmpCode", OleDbType.VarChar).Value = Me.txtEmpCode.Text
	objCmd.Parameters.Add("@EmpName", OleDbType.VarChar).Value = Me.txtEmpName.Text
	objCmd.Parameters.Add("@CheckIn", OleDbType.[Date]).Value = Me.dtCheckIn.Value
	objCmd.Parameters.Add("@CheckOut", OleDbType.[Date]).Value = Me.dtCheckOut.Value
	objCmd.ExecuteNonQuery()

	objConn.Close()

	MessageBox.Show("Completed!")
End Sub

       private void btnSave_Click(object sender, EventArgs e)
        {
            string strConnString = "Data Source=TCDB;User Id=myuser;Password=mypassword;";

            var objConn = new OracleConnection(strConnString);
            objConn.Open();

            string strSQL = "INSERT INTO myTable (EmpCode,EmpName,CheckIn,CheckOut) "
                + " VALUES  (:EmpCode,:EmpName,:CheckIn,:CheckOut)";

            var objCmd = new OracleCommand(strSQL, objConn);
            objCmd.Parameters.Add(":EmpCode", OracleType.VarChar).Value = this.txtEmpCode.Text;
            objCmd.Parameters.Add(":EmpName", OracleType.VarChar).Value = this.txtEmpName.Text;
            objCmd.Parameters.Add(":CheckIn", OracleType.Date).Value = this.dtCheckIn.Value;
            objCmd.Parameters.Add(":CheckOut", OracleType.DateTime).Value = this.dtCheckOut.Value;
            objCmd.ExecuteNonQuery();

            objConn.Close();

            MessageBox.Show("Completed!");
        }

Private Sub btnSave_Click(sender As Object, e As EventArgs)
	Dim strConnString As String = "Data Source=TCDB;User Id=myuser;Password=mypassword;"

	Dim objConn = New OracleConnection(strConnString)
	objConn.Open()

	Dim strSQL As String = "INSERT INTO myTable (EmpCode,EmpName,CheckIn,CheckOut) " + " VALUES  (:EmpCode,:EmpName,:CheckIn,:CheckOut)"

	Dim objCmd = New OracleCommand(strSQL, objConn)
	objCmd.Parameters.Add(":EmpCode", OracleType.VarChar).Value = Me.txtEmpCode.Text
	objCmd.Parameters.Add(":EmpName", OracleType.VarChar).Value = Me.txtEmpName.Text
	objCmd.Parameters.Add(":CheckIn", OracleType.[Date]).Value = Me.dtCheckIn.Value
	objCmd.Parameters.Add(":CheckOut", OracleType.DateTime).Value = Me.dtCheckOut.Value
	objCmd.ExecuteNonQuery()

	objConn.Close()

	MessageBox.Show("Completed!")
End Sub