[Resolvido]Adodb com recordset disconectdado no Access

Olá mestres do Máximo Access,
Estou tendo dificuldades de saber como faço essas conexões, quero usar o ADO com conexões de Recordset desconectados.

O que gostaria é de Abrir uma conexão e desconectar, quando conectar verificar o que se alterou e fazer a atualização e desconectar, ao inserir conectar gerar um registro novo e desconectar, alguém tem um tutorial ou códigos para me ajudar agradeço desde ontem. Abraços a todos!

Saudações!

Dennis Henrique Toriello Miranda

O método que uso para conectar:

Código:


Function GetRS(SQL As String, frm As Form)
  On Error GoTo GetRS_Error

  'ADO Lock Type:
  Const adLockReadOnly = 1
  Const adLockPessimistic = 2
  Const adLockOptimistic = 3
  Const adLockBatchOptimistic = 4
  'ADO Cursor Type:
  Const adOpenUnspecified = -1
  Const adOpenForwardOnly = 0
  Const adOpenKeyset = 1
  Const adOpenDynamic = 2
  Const adOpenStatic = 3
  'ADO Cursor Location
  Const adUseNone = 1
  Const adUseServer = 2
  Const adUseClient = 3

  Dim cn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Set cn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  Dim cnStr As String
  'Conectar ao banco
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0;"
        .ConnectionString = "Data Source=" & caminho & ";"
        .Open
    End With
  'Conectar o recordset
  With rs
      Set .ActiveConnection = cn
      .Source = SQL
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
      .CursorLocation = adUseClient
      .Open
  End With
  'Seta o recordset no formulário
  Set frm.Recordset = rs
  'Desconecta o recordset do formulário
  Set rs.ActiveConnection = Nothing
  'Fecha conexão com o banco
  cn.Close
  'Fecha conexão com o recordset
  rs.Close
  'Limpa o cache
  Set cn = Nothing
  Set rs = Nothing

  On Error GoTo 0
  Exit Function

GetRS_Error:

    msgbox "Error " & Err.Number & " (" & Err.Description & ") in procedure GetRS of Módulo MyVar"
End Function


dhtm15 boa tarde veja no site do Avelino Sampaio sobre o assunto http://www.usandoaccess.com.br/tutoriais/tuto37.asp?id=1#inicio

Não é exatamente o que procuro, gostaria de trabalhar no próprio banco do access, conectar os dados do banco e então desconectar o banco e voltar a conectar para ver as alterações feitas e assim atualizar somente as alterações!

Tudo isso usando o ADODB com Recordset desconectado, preciso da ajuda de alguém para iluminar essa bagunça no meio da escuridão...

É exatamente isto que você citou, estaria trabalhando futuramente com portátil para acessar atráves da internet, usando o MySql ou SQLServer.

Pelo que eu entendi, eu trabalhando no modo RS desconectado em ADO, não teria como eu desconectar os subformulários?

Eu fiz um teste aqui com o Ado desconectado, ele tras todos os registros e desconecta, tenho todos eles carregados mas eu altero todos eles e então como é que vou enviar uma atualização de dados em massa e saber qual dos registros que foram alterados e assim fazer alterações?

Se conseguiu carregar o formulário e desacoplar a conexao, estou bem curioso para ver isso.

Experimente apenas derrubar a conexao com o recordset.

Set .ActiveConnection = nothing


Depois das modificações, experimente reativar a conexaõ e usar a o UPdateBach

...
Set .ActiveConnection = cn
.UpdateBactch

Boa Tarde dhtm15 como disse o Avelino Sampaio sobre o link que postei foi para mostrar como se trabalha com ADO que é mais para se trabalhar em Web com outro banco de Dados, agora quanto a gravar dados em massa do Ms Access para o Mysql é possível mais temos que ter conhecimento em Procedura que fica muito mais fácil em gravar os dados em massa, mais tens que acoplar o formulário continuo em uma tabela temporária para poder trabalhar, se você tentar acoplar a tabela que está no Mysql ira sempre receber mensagem de erro que a tabela está a ser usado por outro usuário.
Veja eu uso essa técnica para gravar dado em massa no Mysql faço a importação de todos os dados que está na tabela no Mysql faço as alteração que quero depois exporto para Mysql, para outra tabela temporária que esta no Mysql criei uma rotina entre a tabela temporária e a real onde cada 1 minuto o Mysql analisa se os dados da tabela temporária é diferente que a tabela real se for diferente grava na tabela real.

Código para exportar é esse:
Private Sub CopMySQL()
Dim Con As New ADODB.Connection
Dim rstADO As New ADODB.Recordset
Dim rstDao As DAO.Record
Con.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=127.10.32.9;PORT=3306;" _
& "DATABASE=TESTE;UID=root;PASSWORD=007;OPTION=3;"
Con.Open

rstADO.Open "SELECT * FROM contatos", Con, adOpenStatic, adLockOptimistic
Set rstDao = CurrentDb.OpenRecordset("SELECT * FROM contatos")

Do Until rstDao.EOF
rstADO.AddNew
'copiar os campos, registo por registo
rstADO("empresa").Value = rstDao("empresa").Value
rstADO("cargo").Value = rstDao("cargo").Value
rstADO("nome").Value = rstDao("nome").Value
rstADO("sexo").Value = rstDao("sexo").Value
rstADO("endereco").Value = rstDao("endereco").Value
rstADO("bairro").Value = rstDao("bairro").Value
rstADO("cidade").Value = rstDao("cidade").Value
rstADO("cep").Value = rstDao("cep").Value
rstADO("estado").Value = rstDao("estado").Value

rstADO.Update
rstDao.MoveNext
Loop

Con.Close
End Sub


Código para importar é esse:
Function CopMySQL()
Dim Con As New ADODB.Connection
Dim rstADO As New ADODB.Recordset
Dim rstDao As DAO.Recordset
'Call Conexao_OpenAx(csql)
Con.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;" _
& "DATABASE=teste;UID=root;PASSWORD=007;OPTION=3;"
Con.Open

rstADO.Open "SELECT * FROM clientes", Con, adOpenStatic, adLockOptimistic
Set rstDao = CurrentDb.OpenRecordset("SELECT * FROM clientess")

Do Until rstADO.EOF
rstDao.AddNew
'copiar os campos, registo por registo
rstDao("empresa").Value = rstADO("empresa").Value
rstDao("cargo").Value = rstADO("cargo").Value
rstDao("nome").Value = rstADO("nome").Value
rstDao("sexo").Value = rstADO("sexo").Value
rstDao("endereco").Value = rstADO("endereco").Value
rstDao("bairro").Value = rstADO("bairro").Value
rstDao("cidade").Value = rstADO("cidade").Value
rstDao("cep").Value = rstADO("cep").Value
rstDao("estado").Value = rstADO("estado").Value
rstDao.Update
rstADO.MoveNext
Loop

Con.Close
End Function

Saudações Avelino e Avelino!
Antes de tudo o meu Muito Obrigado por estarem me ajudando nesse caminho cheio de obstáculos!
Não tem problemas Avelino todos nós cometemos erros e inclusivo eu estava comentendo erros ai também, você só desconectou a recordset.
Eu por outras vias desconectava e fechava a recordset e o banco de dados:

Set rs.activeconnection = Nothing
Set rs = Nothing
Set db = Nothing
rs.close
db.close

Este era o meu problema, porém existe a possibilidade também de se atualizar inserir e etc com este método que fiz, mas o problema que teria que usar um código muito mais complexo e complicado...

Mas por enquanto estou sem problemas aqui depois que você ajudou a solucionar o problema, muito obrigado e estarei fazendo testes até concretizar o tópico e marcar como resolvido!

Avelino estou com um problema nestes recordset desvinculado, sabia que iria sugir dúvidas logo em seguida...

É um seguinte, quando eu seto a recordset desconectada no formulário, quando eu altero algum registro e mudo para outro sem salva-lo antes ele da uma mensagem de que não foi salvo e então na segunda tentativa ele muda o registro mais não salva o anterior, quando coloco algo no BeforeUpdate ele da erro que não aceita comandos de salvar. O que faço para resolver isso? estava pensando em algo que quando: Enquanto o usuário estiver com a janela ativa na tela a conexão se mantem ativa quando ela muda de janela ela se desconecta para poder salvar, pois quando conectada não vem o erro e salva tranquilamente...

dhtm15 boa tarde da para postar o BD para nós analisamos o erro.

Saudações!
Avelino, consegui resolver o problema entre partes, acho que surgiu um novo problema.

Sobre o erro de você alterar o registro e mover para um outro sem salvar em um Rs desconectado, descobri que com o tempo ou sei lá por quais condições ele seta meu Adodb.connection = Nothing também, e acaba desconectando até do banco de dados, não sei se é um bug ou sei lá o que então apliquei este código:

Código:


Private Sub Form_BeforeUpdate(Cancel as Integer)
If cn = "" Then
  cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & caminho & ";User ID=Admin;Password='';"
  cn.Open
End If
rs.ActiveConnection = cn
End Sub

Private Sub Form_AfterUpdate()
rs.ActiveConnection = Nothing
End Sub


Resolvido, porém agora meu Registra histórico dá um erro que não existe um valor no Oldvalue sendo que grava normalmente o registro, isto afetaria o futuro do programa? ou é só citar lá no código Resume Next e pronto chega de problemas?

dhtm15 qual é o formulario que esta dando erro?

O erro acontece no frmPrincipal, quando você altera um registro e salva, então vem a mensagem do erro.

O meu grande problema mesmo agora que caiu a ficha é que quando o registro foi alterado, em outra conexão ou cliente, da o erro de que o registro não pode ser atualizado, estou tendo dificuldades em trabalhar com o recordset desvinculado, existe alguma tutorial bem explicada de como trabalhar com recordset desvinculada no access? não achei uma que me ensine passo a passo.

se alguém puder me ajudar ficarei grato nos erros dos códigos, acho que o grande problema é eu querer usar 1 código para todos os formulários gerando algum conflito ou sei lá o que... por favor o banco está postado logo acima fico grato na ajuda de algum parceiro!

Agradeço desde já!

Att. Dennis Henrique

dhtm15 boa noite veja aqui no site do Macoratti http://www.macoratti.net/adoman.htm

dhtm15 estou a deixar dois artigos sobre ADO e ADOX espero que te ajuda atender um pouco sobre ADO

Saudações!
Muito obrigado avelino, estarei estudando isso com certeza! parece ser uma excelente apostila, já o site do macorrati é muita informação para quem está começando a querer entender a programação então acaba fazendo o leitou ou aprendiz a desistir de ler...