VB 2008 - SQL Server 2005 - DataGridView - кнопка обновления - запись изменений в базу данных

Question

Я новичок в vb.

В настоящее время я заполняю DataGridView1 данными из таблицы в базе данных SQL Server 2005. Мне нужно уметь записывать все изменения, сделанные простым щелчком btnupdate

Связанные темы на этом сайте обрабатывают определенные случаи, а не весь код принимается VS в моем случае, поэтому они не очень полезны.

Итак:

Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click 
    'This needs to save the changes to the database' 
End Sub 

Есть простой кусок кода, который я могу вставить?

спасибо.

Answer 1

Тема широкая. Ниже приведен пример с использованием DataTable и DataAdapter. DataTable используется для хранения данных из базы данных и отслеживания изменений, сделанных пользователем для определенных строк при привязке к сетке. Адаптер генерирует sql, необходимый для выполнения команд обновления и удаления, при условии действительного SQL SELECT. Есть много разных способов выполнить то, что вы хотите, однако, это образец того, что вы можете сделать. После ознакомления с приведенным ниже кодом, вы можете захотеть углубиться в конкретные классы, чтобы узнать больше о них и адаптировать их к вашим потребностям.

Примечание: Ваша строка соединения и имена переменных в вашем случае может варьироваться в зависимости от того, что показано в этом перечислении:

Imports System.Data.SqlClient 
Public Class Form1 
    Dim connetionString As String 
    Dim connection As SqlConnection 
    Dim adapter As SqlDataAdapter 
    Dim cmdBuilder As SqlCommandBuilder 
    Dim ds As New DataSet 
    Dim changes As DataSet 
    Dim sql As String 
    Dim i As Int32 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password" 
     connection = New SqlConnection(connetionString) 
     sql = "select * from Product" 
     Try 
      connection.Open() 
      adapter = New SqlDataAdapter(sql, connection) 
      adapter.Fill(ds) 
      connection.Close() 
      DataGridView1.DataSource = ds.Tables(0) 
     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 
    End Sub 

    Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
     '*** Process updates as made by the user in the datagridview control. 
     Try 
      cmdBuilder = New SqlCommandBuilder(adapter) 
      changes = ds.GetChanges() 
      If changes IsNot Nothing Then 
       adapter.Update(changes) 
      End If 
      MsgBox("Changes Done") 
     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 
    End Sub 
End Class 

Адаптировано из источника: http://vb.net-informations.com/dataadapter/dataadapter-datagridview-sqlserver.htm