Eseguire una query di comando

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("Messaggio")

  ' qui vorrei eseguire una query ( UPDATE T1 SET ....eccetera........ )

     End Sub

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

Private Sub Main()
  Dim users = New List(Of User)()
  Using connection = New SqlConnection("Server=localhost;Database=TestDb;Trusted_Connection=True;")
    connection.Open()

    Using command = New SqlCommand("SELECT UserId, FirstName, LastName FROM dbo.Users", connection)
      Using reader = command.ExecuteReader()
        While reader.Read()
          Dim user = New User()
          user.UserId = CInt(reader("UserId"))
          user.FirstName = DirectCast(reader("FirstName"), String)
          user.LastName = DirectCast(reader("LastName"), String)
          users.Add(user)
        End While
      End Using
    End Using

    connection.Close()
  End Using

  For Each user As var In users
    Console.WriteLine("UserId: {0}", user.UserId)
    Console.WriteLine("FirstName: {0}", user.FirstName)
    Console.WriteLine("LastName: {0}", user.LastName)
  Next
End Sub

Public Class User
  Public Property UserId As Integer
  Public Property FirstName As String
  Public Property LastName As String
End Class

'=======================================================
'Service provided by Telerik (www.telerik.com)
'Conversion powered by NRefactory.
'Twitter: @telerik
'Facebook: facebook.com/telerik
'=======================================================

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

' ............
Protected Sub BtnExecute_Click(sender As Object, e As EventArgs) Handles BtnExecute.Click

        connxx = New SqlConnection(".. Prendi la stringa da Web.config .... CSDFWFa")
        ' ...............

ConfigurationManager.ConnectionStrings("CSDFWFa").ConnectionString

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra