sql >> Databasteknik >  >> RDS >> Sqlserver

VB 2008 - SQL Server 2005 - DataGridView - uppdateringsknapp - skriv ändringar i databasen

Ämnet är brett. Nedan är ett exempel med hjälp av DataTable och DataAdapter. DataTable används för att hålla data från databasen och spåra ändringar som görs av användaren till specifika rader när de är bundna till rutnätet. Adaptern genererar den sql som krävs för att utföra kommandon för uppdatering och borttagning förutsatt att ett giltigt SQL SELECT är. Det finns många olika sätt att åstadkomma det du vill, men detta är ett exempel på vad du kan göra. Efter att ha tittat på koden nedan kanske du vill gräva djupare i specifika klasser för att lära dig mer om dem och anpassa dem efter dina behov.

Obs! Din anslutningssträng och variabelnamn i ditt fall kan skilja sig från vad som visas i denna lista:

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

Anpassad från källa:http://vb.net-informations.com /dataadapter/dataadapter-datagridview-sqlserver.htm




  1. SQL-satser till ROLLBACK men Audit infogar till COMMIT

  2. Sök i Json-kolumnen med Laravel

  3. Oracle avrundar nedåt

  4. Databas:Bästa sättet att fråga efter geografisk platsdata?