3 ADO.NET跟踪日志

3.1.1 使用Logman.exe实用工具

 

Imports System.Data.SqlClient

Public Class MyApp
    Shared Sub Main()
        Dim cnSettings As SqlConnectionStringBuilder
        Dim cn As SqlConnection
        Dim da As SqlDataAdapter
        Dim cmdBld As SqlCommandBuilder
        Dim ds As DataSet

        cnSettings = New SqlConnectionStringBuilder( _
                "Data Source=.\ sqlexpress;" _
            & "AttachDbFilename=|DataDirectory|northwnd.mdf;" _
            & "Integrated Security=true;user instance=true")
        cn = New SqlConnection(cnSettings.ConnectionString)
        da = New SqlDataAdapter("Select * from Products", cn)
        cmdBld = New SqlCommandBuilder(da)
        ds = New DataSet
        da.Fill(ds, "Products")
        For Each dr As DataRow In ds.Tables("Products").Rows
            dr("UnitPrice") = dr("UnitPrice") * 1.1
        Next
        da.Update(ds, "Products")
    End Sub
End Class