Test Insert NULL data ke field Date Time

Form1.vb

Imports System.Data.SqlServerCe

Public Class Form1

    Private Sub RefreshGrid()
        MyTableTableAdapter1.ClearBeforeFill = True
        MyTableTableAdapter1.Fill(DsDatabase11.MyTable)
    End Sub

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        RefreshGrid()
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ' variable declaration
        Dim cn As New SqlCeConnection(My.MySettings.Default.Database1ConnectionString)
        Dim cmd As SqlCeCommand = cn.CreateCommand()
        ' sql command preparation
        cmd.CommandText = "INSERT INTO MyTable (TanggalLahir) VALUES (@p1)"
        cmd.CommandType = CommandType.Text
        cmd.Parameters.AddWithValue("@p1", System.DBNull.Value)
        ' execute sql command
        cn.Open()
        cmd.ExecuteNonQuery()
        cn.Close()
        ' refresh grid
        RefreshGrid()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        ' variable declaration
        Dim cn As New SqlCeConnection(My.MySettings.Default.Database1ConnectionString)
        Dim cmd As SqlCeCommand = cn.CreateCommand()
        ' sql command preparation
        cmd.CommandText = "INSERT INTO MyTable (TanggalLahir) VALUES (@p1)"
        cmd.CommandType = CommandType.Text
        cmd.Parameters.AddWithValue("@p1", DateAndTime.Now)
        ' execute sql command
        cn.Open()
        cmd.ExecuteNonQuery()
        cn.Close()
        ' refresh grid
        RefreshGrid()
    End Sub
End Class