Visual Basic

com.Parameters.Add(New SqlParameter("@JoinDate", SqlDbType.DateTime))
If (dtpJoinDate.Checked) Then
	com.Parameters("@JoinDate").Value = Convert.ToDateTime(dtpJoinDate.Value)
Else
	com.Parameters("@JoinDate").Value = DBNull.Value
End If

If IsDBNull(drd("JoinDate")) Then
	'statements.......
        '....................
Else
	'statements.......
        '....................
End If

Dim MyParam As ADODB.Parameter

If ... Then
   Set MyParam = MyCom.CreateParameter("JoinDate", adDate, adParamInput, dtpMyCalendar.value)
Else
   Set MyParam = MyCom.CreateParameter("JoinDate", adDate, adParamInput, Noting)
End If

MyCom.Parameters.Append MyPara
Set MyRecordSet = MyCom.Execute

If IsNull(MyRecordSet(k).Value) Then

I are Troll

Private con As ADODB.Connection

Private Sub cmdOk_Click()
    Dim com As ADODB.Command
    Dim lngRetVal As Long
    
    On Error GoTo ErrorHandler
        'If Not Validate Then Exit Sub
        If strItemID = Empty Then
            strSql = "Insert Into tblItemList (ItemID,Item,CategoryID,Quantity,Rate,Half,HalfQuantity,HalfRate,ExpiryDate) Values ('" & _
            ReplaceQuote(txtItemID.Text) & "','" & ReplaceQuote(txtItem.Text) & "'," & SetDataCombo(cboCategory) & ",'" & _
            ReplaceQuote(txtQuantity.Text) & "'," & Val(txtRate.Text) & "," & IIf(chkHalfAvailable.Value, 1, 0) & ",'" & _
            ReplaceQuote(txtHalfQuantity.Text) & "'," & Val(txtHalfRate.Text) & ",?)"
        Else
            strSql = "Update tblItemList Set ItemID='" & ReplaceQuote(txtItemID.Text) & "',Item='" & ReplaceQuote(txtItem.Text) & "'," & _
            "CategoryID=" & SetDataCombo(cboCategory) & ",Quantity='" & ReplaceQuote(txtQuantity.Text) & "',Rate=" & _
            Val(txtRate.Text) & ",Half=" & IIf(chkHalfAvailable.Value, 1, 0) & ",HalfQuantity='" & ReplaceQuote(txtHalfQuantity.Text) & "'," & _
            "HalfRate=" & Val(txtHalfRate.Text) & ",ExpiryDate=?" & " Where ItemID='" & strItemID & "'"
        End If
        
        Set com = CreateCommand(strSql)
        com.Parameters.Append com.CreateParameter("ExpiryDate", adDate, adParamInput)
        If Not IsNull(dtpExpiry.Value) Then
            com("ExpiryDate") = CDate(dtpExpiry.Value)
        Else
            'Using Nothing instead of Null in the following line generates an error- ‘Application uses a value of the wrong type for the current operation’.
            com("ExpiryDate") = Null
        End If
        
        com.Execute lngRetVal, adCmdText, adExecuteNoRecords
        If lngRetVal = 1 Then
            Msgbox "Record saved."
            Unload Me
        End If
        CloseConnection

        strSql = Empty
    Exit Sub

ErrorHandler:
    CloseConnection
    strSql = Empty
    MsgBox "The following error has occurred:" & vbCrLf & Err.Description, vbCritical, "Error"
End Sub

Private Sub OpenConnection()
    If con Is Nothing Then
        Set con = New ADODB.Connection
        con.Open "Provider=SQLOLEDB.1;Data Source=MyServer;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TestDB"
    End If
End Sub

Private Sub CloseConnection()
    If Not con Is Nothing And con.State = adStateOpen Then
        con.Close
        Set con = Nothing
    End If
End Sub

Private Function CreateCommand(strQuery As String) As ADODB.Command
    Dim com As New ADODB.Command
    
    OpenConnection
    com.ActiveConnection = con
    com.CommandText = strQuery
    Set CreateCommand = com
End Function

"HalfRate=" & Val(txtHalfRate.Text) &
",ExpiryDate=convert(smalldatetime,?) " &
" Where ItemID='" & strItemID & "'"

"HalfRate=" & Val(txtHalfRate.Text) &
",ExpiryDate=#" & Format(CDate(dtpExpiry.Value), "mm/dd/yy") & "# " &
" Where ItemID='" & strItemID & "'"

I are Troll

TabControl1.SelectedTab(TabControl1.TabPages.Count - 1)

TabControl1.SelectTab(TabControl1.TabPages.Count - 1)

John McMahon wrote:

Property access must assign to the property or use its value

While drgetcusfile.Read()
           Dim count As Integer = fieldnostart
           Dim rowcount As Integer = 0
           grid.Columns.Add("Property", "Property")
           grid.Columns.Add("Value", "Value")
           While count <= fieldnoend
               grid.Rows.Add()
               grid.Item(0, rowcount).Value = rows(rowcount)
               grid.Item(1, rowcount).Value = drgetcusfile.Item(count)

               count += 1
               rowcount += 1
           End While

While count <= fieldnoend
  grid.Rows.Add()
  grid.Item(0, rowcount).Value = rows(rowcount)
  if drgetcustfile.Item(count).GetType.ToString = "System.DateTime" Then
    grid.Item(1, rowcount).Value = Format(drgetcusfile.Item(count),"short date")
  Else
    grid.Item(1, rowcount).Value = drgetcusfile.Item(count)
  End If
End While

While count <= fieldnoend
                grid.Rows.Add()
                grid.Item(0, rowcount).Value = rows(rowcount)
                Try
                    grid.Item(1, rowcount).Value = drgetcusfile.GetString(count)
                    grid.Item(1, rowcount).Value = DateTime.ParseExact(grid.Item(1, rowcount).Value, "yyyy-MM-dd", Nothing).ToShortDateString()
                Catch ex As Exception
                End Try
                count += 1
                rowcount += 1
            End While

grid.Columns(0).DefaultCellStyle.Format = "dd/MM/yyyy"

grid.Item(1, rowcount).Value = drgetcusfile.Item(count)
               If grid.Item(1, rowcount).Value.GetType.Equals(GetType(Date)) Then
                   grid.Item(1, rowcount).Style.Format = "dd/MM/yyyy"
               End If