CommandBuilder CommandBuilderSample

Imports System
Imports System.Data
Imports System.Data.SqlClient

Module CommandBuilderSample

Sub Main()
Dim MyDS As DataSet = New DataSet()
Dim Connection As SqlConnection = New SqlConnection( _
"Data Source=(local); Initial Catalog=Northwind; " _
& "Integrated Security=SSPI;")
Connection.Open()

Dim MyDA As SqlDataAdapter = New SqlDataAdapter( _
"SELECT * FROM [Order Details] OD", Connection)
Dim myBuilder As SqlCommandBuilder = New SqlCommandBuilder(MyDA)

Console.WriteLine(myBuilder.GetUpdateCommand().CommandText)
Console.ReadLine()

' visualizza "UPDATE [Order Details] SET [OrderID] = @p1, [ProductID] = @p2, [UnitPrice] = @p3,

' [Quantity] = @p4, [Discount] = @p5 WHERE (([OrderID] = @p6) And ([ProductID] = @p7) And

' ([UnitPrice] = @p8) And ([Quantity] = @p9) And ([Discount] = @p10))




End Sub

End Module