Public Class Form1
Dim ds As DataSet
Private Sub GetRecords()
Dim da As SqlDataAdapter
da = New SqlDataAdapter("Select " & _
"LastName, " & _
"FirstName, " & _
"Address, " & _
"City, " & _
"State, " & _
"Zip " & _
"From CustomerData", Con)
da.TableMappings.Add("Table", "Customer")
ds = New DataSet
Try
da.Fill(ds)
ds.Tables("Customer").DefaultView.AllowNew = False
DataGridView1.DataSource = ds.Tables("Customer")
Catch ex As Exception
MessageBox.Show(ex.Message, "Data Error", MessageBoxButtons.OK)
Finally
da.Dispose()
ds.Dispose()
End Try
End Sub
Private Sub SaveRecords()
If ds.HasChanges() Then
Dim da As SqlDataAdapter = Nothing
Dim cb As SqlCommandBuilder = Nothing
da = New SqlDataAdapter("Select " & _
"LastName, " & _
"FirstName, " & _
"Address, " & _
"City, " & _
"State, " & _
"Zip " & _
"From CustomerData", Con)
da.TableMappings.Add("Table", "MeInventory")
Try
cb = New SqlCommandBuilder(da)
da.Update(ds)
Catch ex As Exception
MessageBox.Show(ex.Message, "Data Error", MessageBoxButtons.OK)
Finally
cb.Dispose()
da.Dispose()
End Try
Else
Exit Sub
End If
End Sub