3.1.1 使用Logman.exe实用工具
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
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
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