Visual Basic

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

private void Form1_Load(object sender, EventArgs e)

        {

            DataTable datatable = new DataTable();

            datatable.Columns.Add("col1",typeof(DateTime));

            datatable.Columns.Add("col2", typeof(DateTime));

            datatable.Rows.Add(DateTime.Parse("2007/12/31 5:00:11 PM"), DateTime.Parse("2008/01/01 6:00:12 AM"));

 

            datatable.Rows.Add(DateTime.Parse("2007/4/4 1:00:13 AM"), DateTime.Parse("2007/8/8 3:00:14 PM"));

 

            dataGridView1.DataSource = datatable;

 

            dataGridView1.Columns[0].DefaultCellStyle.Format = "dd'/'MM'/'yyyy";

            //Get 13/12/2007

            dataGridView1.Columns[1].DefaultCellStyle.Format = "dd'/'MM'/'yyyy hh:mm:ss tt";

            //Get 13/12/2007 5:00:11 PM

        }

dgv.Columns[columnNumber].DefaultCellStyle.Format="dd MMM yyyy";

If Not OpenForm Is Nothing Then
    'Do Work Here
Else
    OpenForm.Close
End If