none
Alterar dados RRS feed

  • Pergunta

  • 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
    terça-feira, 16 de fevereiro de 2010 14:34

Respostas

  • 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..

    quinta-feira, 18 de fevereiro de 2010 11:18

Todas as Respostas

  • 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..

    quinta-feira, 18 de fevereiro de 2010 11:18
  • Muito obrigado! Vou testar!
    sábado, 3 de abril de 2010 01:27