Alterar dados

Question

Olá! Li as respostas e vi que vocês sabem muito disso.

Bem.. eu ja sei gravar dados do Excel no Banco de dados Access e sei consultar dados do DB Acess no Excel, mas não consigo alterar registro do acces pelo Excel.

Sabe como eu faço?

obrigado

Answer 1

Olá...Faça assim

Private Sub cmdConexaoBD()

Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer

'define a conexão com o banco de dados Northwind.mdb
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SeuBanco.mdb"
cn.Open

'define um novo objeto recordset
Set rs = New ADODB.Recordset

'define a instrução sql
sql = "UPDATE [SuaTabela] Set [nome] = 'Novo Valor' WHERE [id] = 1"

'gera o recordset para o sql sobre a conexao definida
rs.Open sql, cn
'fecha conexão
cn.Close

End Sub

Nessa instrução sql ele atualiza o campo nome para 'Novo valor' cujo id do registro seja igual a 1
Até...
Se solucionar marque como resposta..

Answer 2

Muito obrigado! Vou testar!