El Bruno

Imports System.Data

Imports System.Data.SqlClient

Public Class frmCnnStatistics

    ‘ Conexiones

    Dim cnnString As String = "Data Source=.;Initial Catalog=Northwind;Integrated Security=True"

    Dim cnn As New SqlConnection(cnnString)

    Dim cmd As New SqlCommand()

    Dim da As New SqlDataAdapter

    Dim ds As New DataSet

    Private Sub btnGetData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetData.Click

        ‘ crea el comando

        cmd.CommandType = CommandType.Text

        cmd.CommandText = "SELECT * FROM CATEGORIES"

        cmd.Connection = cnn

        da.SelectCommand = cmd

        da.Fill(ds)

        ‘ muestra los datos

        DataGridView1.AutoGenerateColumns = True

        DataGridView1.DataSource = ds.Tables(0)

    End Sub

    Private Sub frmCnnStatistics_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

          ‘ habilita las estadisticas y abre la conexion

        cnn.StatisticsEnabled = True

        cnn.Open()

      End Sub

      Private Sub btnDisplayStatistics_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplayStatistics.Click

        ‘ retrieve Dictionary containing statistics

        Dim htStats As Hashtable = cnn.RetrieveStatistics()

        Dim msg As String = ""

          ‘ display values in Label control

        For Each oKey As String In htStats.Keys

            msg &= "" & oKey & " = " & htStats(oKey) & vbCrLf

        Next

          MsgBox(msg)

      End Sub

End Class