Insert Date Time Picker Control in Data Grid View

Question

I want to insert datetimepicker control in datagridview.
also i want to know how to automatically detect sql database. means how to write a code for sql so dat it will automatically detect sql database in any system.

Shalini Juneja · Answer

Normal 0 false false false EN-US X-NONE X-NONE MicrosoftInternetExplorer4 /* Style Definitions */ table.MsoNormalTable{mso-style-name:"Table Normal";mso-tstyle-rowband-size:0;mso-tstyle-colband-size:0;mso-style-noshow:yes;mso-style-priority:99;mso-style-qformat:yes;mso-style-parent:"";mso-padding-alt:0in 5.4pt 0in 5.4pt;mso-para-margin-top:0in;mso-para-margin-right:0in;mso-para-margin-bottom:10.0pt;mso-para-margin-left:0in;line-height:115%;mso-pagination:widow-orphan;font-size:11.0pt;font-family:"Calibri","sans-serif";mso-ascii-font-family:Calibri;mso-ascii-theme-font:minor-latin;mso-fareast-font-family:"Times New Roman";mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Calibri;mso-hansi-theme-font:minor-latin;} PrivateSub Form10_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase .Load Dim Table_Name AsString SQLSTRING = "SELECT * FROM Requisition WHERE delete_status='No' AND badge_no='R000001'" DAdapter1 = New SqlDataAdapter(SQLSTRING, SQLConnection1) Table_Name = "Requisition" DataSet1 = New DataSet DataSet1.Clear() DAdapter1.Fill(DataSet1, Table_Name) DataGridView1.AutoGenerateColumns = False DataGridView1.AllowUserToAddRows = False DataGridView1.RowHeadersWidth = 20 DataGridView1.EnableHeadersVisualStyles = False DataGridView1.DataSource = DataSet1.Tables(Table_Name) Dim DGVTextColumn1 AsNew DataGridViewTextBoxColumn DGVTextColumn1.Name = "Badge No" DGVTextColumn1.DataPropertyName = "badge_no" DGVTextColumn1.ReadOnly = True DGVTextColumn1.Width = "100" DataGridView1.Columns.Insert(0, DGVTextColumn1) Dim col AsNew CalendarColumn() col.DataPropertyName = "time_from" Me .DataGridView1.Columns.Insert(1, col) 'Me.DataGridView1.RowCount = 10 Dim row As DataGridViewRow ForEach row InMe .DataGridView1.Rows row.Cells(1).Value = DateTime.Now Next row EndSub PrivateSub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try 'MsgBox(DataGridView1.Item(1, 0).Value.ToString) Dim DTime AsString = Format(DataGridView1.Item(1, 0).Value, "h:mm tt" ) MsgBox(DTime) SQLCommand1.CommandText = "UPDATE Requisition SET time_from='" & DTime & "' WHERE badge_no='" & DataGridView1.Item(0, 0).Value.ToString & "'" SQLCommand1 = New SqlCommand(SQLCommand1.CommandText, SQLConnection1) SQLConnection1.Open() DReader = SQLCommand1.ExecuteReader SQLConnection1.Close() Catch err As System.Exception MessageBox.Show(err.Message, "Error" , MessageBoxButtons.OK, MessageBoxIcon.Error) EndTry EndSub EndClass PublicClass CalendarColumn Inherits DataGridViewColumn PublicSubNew () MyBase .New( New CalendarCell()) EndSub PublicOverridesProperty CellTemplate() As DataGridViewCell Get ReturnMyBase .CellTemplate EndGet Set ( ByVal value As DataGridViewCell) ' Ensure that the cell used for the template is a CalendarCell. If (value IsNotNothing ) AndAlso _ Not value.GetType().IsAssignableFrom( GetType (CalendarCell)) _ Then ThrowNew InvalidCastException( "Must be a CalendarCell" ) EndIf MyBase .CellTemplate = value EndSet EndProperty EndClass PublicClass CalendarCell Inherits DataGridViewTextBoxCell PublicSubNew () ' Use the short date format. Me .Style.Format = "t" EndSub PublicOverridesSub InitializeEditingControl( ByVal rowIndex AsInteger , _ ByVal initialFormattedValue AsObject , _ ByVal dataGridViewCellStyle As DataGridViewCellStyle) ' Set the value of the editing control to the current cell value. MyBase .InitializeEditingControl(rowIndex, initialFormattedValue, _ dataGridViewCellStyle) Dim ctl As CalendarEditingControl = CType (DataGridView.EditingControl, CalendarEditingControl) ctl.Value = CType ( Me .Value, DateTime) EndSub PublicOverridesReadOnlyProperty EditType() As Type Get ' Return the type of the editing contol that CalendarCell uses. ReturnGetType (CalendarEditingControl) EndGet EndProperty PublicOverridesReadOnlyProperty ValueType() As Type Get ' Return the type of the value that CalendarCell contains. ReturnGetType (DateTime) EndGet EndProperty PublicOverridesReadOnlyProperty DefaultNewRowValue() AsObject Get ' Use the current date and time as the default value. Return DateTime.Now EndGet EndProperty EndClass Class CalendarEditingControl Inherits DateTimePicker Implements IDataGridViewEditingControl Private dataGridViewControl As DataGridView Private valueIsChanged AsBoolean = False Private rowIndexNum AsInteger PublicSubNew () 'Me.Format = DateTimePickerFormat.Short 'Me.Format = DateTimePickerFormat.Time Me .CustomFormat = "h:mm tt" Me .Format = DateTimePickerFormat.Custom Me .ShowUpDown = True EndSub PublicProperty EditingControlFormattedValue() AsObject _ Implements IDataGridViewEditingControl.EditingControlFormattedValue Get ReturnMe .Value.ToShortTimeString EndGet Set ( ByVal value AsObject ) IfTypeOf value IsStringThen Me .Value = DateTime.Parse( CStr (value)) EndIf EndSet EndProperty PublicFunction GetEditingControlFormattedValue( ByVal context _ As DataGridViewDataErrorContexts) AsObject _ Implements IDataGridViewEditingControl.GetEditingControlFormattedValue ReturnMe .Value.ToShortTimeString EndFunction PublicSub ApplyCellStyleToEditingControl( ByVal dataGridViewCellStyle As _ DataGridViewCellStyle) _ Implements IDataGridViewEditingControl.ApplyCellStyleToEditingControl Me .Font = dataGridViewCellStyle.Font Me .CalendarForeColor = dataGridViewCellStyle.ForeColor Me .CalendarMonthBackground = dataGridViewCellStyle.BackColor EndSub PublicProperty EditingControlRowIndex() AsInteger _ Implements IDataGridViewEditingControl.EditingControlRowIndex Get Return rowIndexNum EndGet Set ( ByVal value AsInteger ) rowIndexNum = value EndSet EndProperty PublicFunction EditingControlWantsInputKey( ByVal key As Keys, _ ByVal dataGridViewWantsInputKey AsBoolean ) AsBoolean _ Implements IDataGridViewEditingControl.EditingControlWantsInputKey ' Let the DateTimePicker handle the keys listed. SelectCase key And Keys.KeyCode Case Keys.Left, Keys.Up, Keys.Down, Keys.Right, _ Keys.Home, Keys.End, Keys.PageDown, Keys.PageUp ReturnTrue CaseElse ReturnFalse EndSelect EndFunction PublicSub PrepareEditingControlForEdit( ByVal selectAll AsBoolean ) _ Implements IDataGridViewEditingControl.PrepareEditingControlForEdit ' No preparation needs to be done. EndSub PublicReadOnlyProperty RepositionEditingControlOnValueChange() _ AsBooleanImplements _ IDataGridViewEditingControl.RepositionEditingControlOnValueChange Get ReturnFalse EndGet EndProperty PublicProperty EditingControlDataGridView() As DataGridView _ Implements IDataGridViewEditingControl.EditingControlDataGridView Get Return dataGridViewControl EndGet Set ( ByVal value As DataGridView) dataGridViewControl = value EndSet EndProperty PublicProperty EditingControlValueChanged() AsBoolean _ Implements IDataGridViewEditingControl.EditingControlValueChanged Get Return valueIsChanged EndGet Set ( ByVal value AsBoolean ) valueIsChanged = value EndSet EndProperty PublicReadOnlyProperty EditingControlCursor() As Cursor _ Implements IDataGridViewEditingControl.EditingPanelCursor Get ReturnMyBase .Cursor EndGet EndProperty ProtectedOverridesSub OnValueChanged( ByVal eventargs As EventArgs) ' Notify the DataGridView that the contents of the cell have changed. valueIsChanged = True Me .EditingControlDataGridView.NotifyCurrentCellDirty( True ) MyBase .OnValueChanged(eventargs) EndSub EndClass hope this code will help you

Soft Corner · Answer

HI, check this, I found one article for Adding Datetime picker in datagrid view The code is available in VB.net but in comment section of article, author posted C# code too.

Insert Date Time Picker Control in Data Grid View

Answers (2)