Hello fellow coders. I'm asking for your help on how to insert or save empty date value or null value from datagridview column to access database. I research over the web but unfortunately not solved my problem. I'm trying to set dateret as string but it says: "String cannot be converted to date". If I set dateret as Date, then it says: "Not recognized as valid datetime" or "Datatype mismatched". How to address this problem? Following is my simple code. Thank you.
Code:Dim connstring As String connstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=retirement.accdb" Dim conn As OleDbConnection = New OleDbConnection(connstring) Dim ln, fn, mn, retiredate As String 'Dim dateret as Date 'Dim dateret as String For i As Integer = 0 To Me.DataGridView1.RowCount - 1 ln = Me.DataGridView1.Item(0, i).Value fn = Me.DataGridView1.Item(1, i).Value mn = Me.DataGridView1.Item(2, i).Value If Me.DataGridView1.Item(3, i).Value Is Nothing Or Me.DataGridView1.Item(3, i).Value = String.Empty Then 'nothing to insert or null value inserted else dateretire = Me.DataGridView1.Item(3, i).Value End If Dim Sql = "insert into emprecords(lastname, firstname, middlename, dateretire) values('" & ln & "','" & fn & "','" & mn & "','" & dateret & "')" Dim comm As New OleDb.OleDbCommand comm.CommandText = Sql comm.Connection = conn conn.Open() comm.ExecuteNonQuery() comm.Dispose() conn.Close() Next MsgBox("Imported Successfully! Click refresh button to reload data.", MsgBoxStyle.Information, "Import") Me.Close() End If




Reply With Quote
