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:Calibrisans-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.