ATUALIZAR BANCO

VAGGNERSF 04/07/2013 22:36:00
#425581

Olá a todos, pessoal preciso de uma ajudar no codigo abaixo. Por falta de conhecimento não consigo dar andamento no projeto.

O que tenho é um datra grid que carrega informações de um banco chamado apagar.mdb assim que clico em um botão carregar informações.

Agora criei outro botão para atualizar as informações desse banco assim que altero alguma informação no grid.

Então realmente o que preciso e que quando eu altero alguma informação no grid quero salvar essas novas informações no meu banco apagar.mdb.

Imports System.io
Imports System.Data.oledb

Public Class Form1

Private cn As OleDbConnection = New OleDbConnection
Private cm As OleDbCommand = New OleDbCommand
Private rd As OleDbDataReader
Private adp As OleDbDataAdapter

Private Property ds As Object

Private Property da As Object

Private Property dt As Object

Private Sub btnCarregaTabela_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCarregaTabela.Click

[ô]define a string de conexão apontando para o arquivo Northwind.mdb
cn.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\dados\banco.mdb[Ô]

[ô]abre a conexão
Try
cn.Open()
Catch Ex As Exception
MessageBox.Show(Ex.Message)
Exit Sub
End Try

[ô]define a instrução SQL para selecionar somente alguns dos campos da tabela
cm.Connection = cn
cm.CommandText = [Ô]select * from apagar[Ô]

[ô]preenche o dataset e o datagridview
Try
adp = New OleDbDataAdapter
Dim ds As DataSet = New DataSet
adp.SelectCommand = cm
adp.Fill(ds, [Ô]dataset[Ô])
DataGridView1.DataSource = ds
DataGridView1.DataSource = ds.Tables(0)
DataGridView1.Refresh()
Catch Ex As Exception
MessageBox.Show(Ex.Message)
Finally
cn.Close()
End Try

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dt As DataTable = ds.Tables([Ô]dataset[Ô])
Me.DataGridView1.BindingContext(dt).EndCurrentEdit()
Me.da.Update(dt)
End Sub
End Class