|
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
ht
As
Hashtable = cnn.RetrieveStatistics()
Dim
msg
As
String
=
""
' display values in Label
control
For
Each
oKey
As
String
In
ht.Keys
msg &=
""
& oKey &
" = "
& ht(oKey) & vbCrLf
Next
MsgBox(msg)
End
Sub
End
Class
|
