Notifications
Clear all

Editar dados no banco de dados Access no format (accdb)

2 Posts
1 Usuários
0 Reactions
1,709 Visualizações
(@victorsam)
Posts: 110
Estimable Member
Topic starter
 

Não consigo resolver o erro rsr
Mas como não tenho muito conhecimento não estou conseguindo e estou precisando urgente... tem como dar uma olhada e ver o que ta faltando.
Já consegui adaptar para: pesquisa, adicionar, carregar combobox... só falta pra editar os dados no banco....

    Global rst As ADODB.Recordset
    Global cnn As ADODB.Connection
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    
        Dim id As Integer
        id = txtcodEstoq

cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:BDadosJU.accdb"   
   
rst.Open "Select * Código From [tabela_clientes] WHERE [código] = " & id & ";", cnn, adOpenKeyset, adLockOptimistic

            rst.Edit
            rst("Quant") = Me.txtResSoma ' quandidade somada
            rst.Update
rst.Close
cnn.Close

Onde esta o erro?

 
Postado : 29/10/2014 6:46 am
(@victorsam)
Posts: 110
Estimable Member
Topic starter
 

Depois de muita pesquisa e não encontrava ou não entendia rsrs os códigos das pesquisa, em site nenhum conseguia uma solução
então peguei os dois códigos e comecei a fazer comparações e cheguei a uma conclusão entre as conexões (DAO) e (ADO)
E assim consegui EDITAR o banco de dados access.

aqui vai os códigos:
Código 1 (DAO)

    
Global banco As Database
Global consulta As Recordset

Dim ComandoSQL As String
    Dim id As Integer
    id = txtcodEstoq

    ComandoSQL = "select * from tabela_clientes where Código like '" & id & "' "

       Set banco = OpenDatabase("C:UsersVictor SamDropboxJu Pro salvoBdadosCadastro_clientes.mdb")
    Set consulta = banco.OpenRecordset(ComandoSQL)

    consulta.Edit    
            consulta("campo") = Me.txtResSoma 
            consulta.Update

    Set banco = Nothing
    Set consulta = Nothing

Código 2 (ADO)

    Dim ComandoSQL As String
    Dim id As Integer
    id = txtcodEstoq

    Set cnn = New ADODB.Connection

    ComandoSQL = "select * from [tabela_clientes] where [Código] like '" & id & "' "
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:endereço.accdb"

        Set rst = New ADODB.Recordset
        rst.Open ComandoSQL, cnn, adOpenKeyset, adLockOptimistic
    
        rst.Fields("campo") = Me.txtResSoma
        rst.Update
      
        rst.Close
        cnn.Close
        
        Set rst = Nothing
        Set cnn = Nothing

Pra quem tiver enteressado ta ai.

O código ADO foi eu que montei, se alguém tiver mais alguma dica é só postar, aqui ta funcionando :)

 
Postado : 29/10/2014 6:02 pm