Visual Basic

Public Sub SaveChanges()<br />
<br />
        'this Sub is responsible for recording changes back to the database<br />
<br />
        Dim dsUpdates As dsLibraryNewest<br />
<br />
        Try<br />
            dsUpdates = CType(DsLibraryNewest.GetChanges(), _3rdYearProject12Aug.dsLibraryNewest)<br />
<br />
            If Not (dsUpdates Is Nothing) Then<br />
                 'these are various adapter for the six various tables  <br />
                modbdaSongNewest.Update(dsUpdates)<br />
                modbdaCategoryNewest.Update(dsUpdates)<br />
                modbdaGenreNewest.Update(dsUpdates)<br />
                modbdaAlbumNewest.Update(dsUpdates)<br />
                modbdaCategorySongNewest.Update(dsUpdates)<br />
                modbdaAlbumSongNewest.Update(dsUpdates)<br />
<br />
<br />
                DsLibraryNewest.AcceptChanges()<br />
            End If<br />
<br />
        Catch ex As System.Exception<br />
<br />
            '  MessageBox.Show(ex.Message, "Error", _<br />
            'MessageBoxButtons.OK)<br />
<br />
        End Try<br />
<br />
    End Sub

Dim returnPath As String() = Directory.GetDirectories(txtDirectory.Text)

Dim returnPath As String() = System.IO.Directory.GetDirectories(txtdirectory.Text)

Abbhie wrote:

can somebody help me and show me codes on how to save changes(in information) in datagridview connected to an SQL database. I was looking for codes ever since, but it doesn't work as i expected it to be.

I'm a beginner here, so I'm having a hard time creating the codes with datagridview.

Public Table1 As DataTable<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Table1 = New DataTable("People")<br />
        Dim Row1, Row2, Row3 As DataRow<br />
<br />
        Try<br />
            Dim Id As DataColumn = New DataColumn("Id")<br />
            Id.DataType = System.Type.GetType("System.Int32")<br />
            Table1.Columns.Add(Id)<br />
<br />
            Dim FirstName As DataColumn = New DataColumn("First Name")<br />
            FirstName.DataType = System.Type.GetType("System.String")<br />
            Table1.Columns.Add(FirstName)<br />
            Dim LastName As DataColumn = New DataColumn("Last Name")<br />
            LastName.DataType = System.Type.GetType("System.String")<br />
            Table1.Columns.Add(LastName)<br />
<br />
            Row1 = Table1.NewRow()<br />
            Row1.Item("Id") = 1<br />
            Row1.Item("First Name") = "Pete"<br />
            Row1.Item("Last Name") = "Soheil"<br />
            Table1.Rows.Add(Row1)<br />
<br />
            Row2 = Table1.NewRow()<br />
            Row2.Item("Id") = 2<br />
            Row2.Item("First Name") = "Bill"<br />
            Row2.Item("Last Name") = "Gates"<br />
            Table1.Rows.Add(Row2)<br />
<br />
            Row3 = Table1.NewRow()<br />
            Row3.Item("Id") = 3<br />
            Row3.Item("First Name") = "George"<br />
            Row3.Item("Last Name") = "Washington"<br />
            Table1.Rows.Add(Row3)<br />
<br />
            DataGridView1.DataSource = Table1<br />
        Catch ex As Exception<br />
            MessageBox.Show("Error: " & ex.Message)<br />
        End Try<br />
<br />
    End Sub<br />

Private Sub btnUpdateRow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdateRow.Click<br />
        Dim SelectedRowIndex As Integer<br />
        Dim SelectedRowCount As Integer = DataGridView1.SelectedRows.Count<br />
<br />
        If DataGridView1.SelectedRows Is Nothing Then<br />
            MessageBox.Show("Please Select a Row")<br />
            Exit Sub<br />
        End If<br />
<br />
        If SelectedRowCount < 1 OrElse SelectedRowCount > 1 Then<br />
            MessageBox.Show("Invalid Row Selection.")<br />
            Exit Sub<br />
        End If<br />
<br />
        Dim SelectedRow As DataGridViewRow = DataGridView1.SelectedRows.Item(0)<br />
        SelectedRowIndex = SelectedRow.Index<br />
<br />
        Dim f As New Form2<br />
<br />
        f.txtId.Text = SelectedRow.Cells(0).Value<br />
        f.txtFirstName.Text = SelectedRow.Cells(1).Value<br />
        f.txtLastName.Text = SelectedRow.Cells(2).Value<br />
        f.ShowDialog()<br />
<br />
        DataGridView1.Rows.Item(SelectedRowIndex).Cells(0).Value = f.txtId.Text<br />
        DataGridView1.Rows.Item(SelectedRowIndex).Cells(1).Value = f.txtFirstName.Text<br />
        DataGridView1.Rows.Item(SelectedRowIndex).Cells(2).Value = f.txtLastName.Text<br />
    End Sub