Visual Basic Concepts

Format Objects Tutorial

See Also

The following procedure gives you a brief overview of using format objects with bound controls attached to the ADO Data Control. The example uses the Nwind.mdb sample database provided with Visual Basic.

Note that although this example uses the ADO Data Control, format objects can be used with any data source.

Using the ADO Data Control with Format Objects

  1. Create an OLEDB Data Source for the Northwind database, named "Northwind".

    If a data source has not been created, follow the steps in Creating the Northwind OLEDB Data Source.

  2. From the Project menu, set references to the Microsoft Data Formatting Object Library and the Microsoft Data Binding Collection.

  3. On the Project menu click Components, and check the ADO Data Control.

  4. Add the ADO Data control and three TextBox controls to a form.

  5. Set property values as shown in the following table.
    Object Property Setting
    ADO control ConnectionString
    (Use Data Link File)
    northwind.udl
    ADO control RecordSource select * from Employees
    Text1 control DataSource ADODC1
    Text1 control DataField LastName
    Text2 control DataSource ADODC1
    Text2 control DataField HireDate
    Text3 control DataSource ADODC1
    Text3 control DataField Extension

  6. Add the following declarations to the form.
    ' Binds textboxes to the ADO control.
    Dim bc As New BindingCollection
    
    ' We'll add code to the Format event on this object.
    Dim WithEvents f1 as StdDataFormat
    Dim WithEvents f2 As StdDataFormat
    

    Declaring f2 with the WithEvents statement exposes the object's events. Step 8 shows code using the Format event to work on data as it is passed back and forth between the database and bound object.

  7. Add the following code to the form's Load event.
    ' Connect the BindingCollection object to the datasource.
    Set bc.DataSource = ADODC1
    
    'set a long date format string
    Set f1 = New StdDataFormat
    f1.Type = fmtCustom
    f1.Format = "long date"
    ' Use the BindingCollection object to bind the 2nd text box.
    bc.Add Text2, "text", "hiredate", f1
    
    'set a currency format string
    Set f2 = New StdDataFormat
    f2.Type = fmtCustom
    f2.Format = "$0.00"
    ' Use the BindingCollection object to bind the 3rd text box.
    Set bc.DataSource = ADODC1
    bc.Add Text3, "text", "extension", f2
    
  8. Add the following code to the f2 object's Format event.
    If DataValue.Value < 3000 Then
        Text3.ForeColor = vbRed
    Else
        Text3.ForeColor = vbBlack
    End If
    
  9. Run the project and experiment with the ADO Data control.