[Resolvidos]Solucionando erro com tabela vinculada no banco de dados MySQL

Quando executo a função abaixo para atualizar a tabela do o seguinte erro : Erro em tempo de execução (3146) ODBC - falha na chamada

Option Compare Database

Public Sub ComparaTabelasEatualiza()
'By JPaulo ® Maximo Access
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset

Set db = CurrentDb()
Set rs1 = db.OpenRecordset("select * from issues_redmine ORDER BY ID ASC", dbReadOnly)

rs1.MoveFirst

Do Until rs1.EOF

Set rs2 = db.OpenRecordset("select * from issues where ID=" & rs1!id)
If rs2.EOF Then
rs2.AddNew
rs2![id] = rs1![id]
'rs2![OS] = rs1![OS]
rs2![tracker_id] = rs1![tracker_id]
rs2![project_id] = rs1![project_id]
'rs2![Id_Criticidade] = rs1![Id_Criticidade]
'rs2![Cod_Solicitante] = rs1![Cod_Solicitante]
rs2![subject] = rs1![subject]
rs2![description] = rs1![description]
rs2![due_date] = rs1![due_date]
rs2![category_id] = rs1![category_id]
rs2![status_id] = rs1![status_id]
rs2![assigned_to_id] = rs1![assigned_to_id]
rs2![priority_id] = rs1![priority_id]
rs2![fixed_version_id] = rs1![fixed_version_id]
rs2![author_id] = rs1![author_id]
rs2![lock_version] = rs1![lock_version]
rs2![created_on] = rs1![created_on]
rs2![updated_on] = rs1![updated_on]
rs2![start_date] = rs1![start_date]
rs2![done_ratio] = rs1![done_ratio]
rs2![estimated_hours] = rs1![estimated_hours]
rs2![rank] = rs1![rank]
'rs2![Dt_Fechamento] = rs1![Dt_Fechamento]

rs2.Update
Else
rs2.MoveFirst
Do Until rs2.EOF

rs2.Edit
rs2![id] = rs1![id]
'rs2![OS] = rs1![OS]
rs2![tracker_id] = rs1![tracker_id]
rs2![project_id] = rs1![project_id]
'rs2![Id_Criticidade] = rs1![Id_Criticidade]
'rs2![Cod_Solicitante] = rs1![Cod_Solicitante]
rs2![subject] = rs1![subject]
rs2![description] = rs1![description]
rs2![due_date] = rs1![due_date]
rs2![category_id] = rs1![category_id]
rs2![status_id] = rs1![status_id]
rs2![assigned_to_id] = rs1![assigned_to_id]
rs2![priority_id] = rs1![priority_id]
rs2![fixed_version_id] = rs1![fixed_version_id]
rs2![author_id] = rs1![author_id]
rs2![lock_version] = rs1![lock_version]
rs2![created_on] = rs1![created_on]
rs2![updated_on] = rs1![updated_on]
rs2![start_date] = rs1![start_date]
rs2![done_ratio] = rs1![done_ratio]
rs2![estimated_hours] = rs1![estimated_hours]
rs2![rank] = rs1![rank]
'rs2![Dt_Fechamento] = rs1![Dt_Fechamento]

rs2.Update
rs2.MoveNext
Loop
End If

rs1.MoveNext

Loop
rs1.Close
rs2.Close
MsgBox "Actualizado com Sucesso...", vbInformation
End Sub

retire o dbReadOnly

Set rs1 = db.OpenRecordset("select * from issues_redmine ORDER BY ID ASC", dbReadOnly)


fica somente assim;
Set rs1 = db.OpenRecordset("select * from issues_redmine ORDER BY ID ASC")

Isso acontece apenas em tabelas vinculadas.

Prezado Ricardo. Efetuei a alteração que você me passou, mas o erro ainda continua. Esqueci de falar que estou acessando tabelas vinculadas do bando de dados Mysql. Uso para acesso a essas tabelas o ODBC for Mysql versão 5.1. Esse erro acontece toda vez que vou acessar uma tabela o qual tem muitos select ou com muitos parametros

Se puderes me ajudar agradeço

Oi Meirelles tudo jóia ?

Amigão, o dbReadOnly no primeiro RS tem de estar lá, para você poder abrir o recordset da tabela vinculada do SQL no seu banco.

Já o segundo RS não necessita, uma vez que é uma cópia da tabela vinculada.

Reveja a formatação dos campos da 2ª tabela, se estão iguaizinhos à tabela vinculada, pois apenas um campo diferente pode provocar esse erro 3146.

Ola amigão, como foi as merecidas férias, espero que tenha descansado. Creio que o forum sentiu falta da sua presença durante as férias. Eis ai meu problema.
Fiz as alterações que você descreveu, coloquei o dbReadOnly no primeiro RS e conferi os dados das 2 tabelas. Mesmo assim o problema persiste. Eu uso a tabela Issues-redmine que vem de uma base de dados Mysql e no ACCESS importei a tabela Issues-Redmine com o nome de Issues. Sendo assim ficou com a mesma estrutura. Estava funcionando, mas depois que haviam muitos registros para seres atualizados do da Tabela do Mysql para a tabela do Access com a mesma estrutura começou a dar esse problema. Instalei o Odbc Mysql 3.51 porque li que a versão 5.1.6 estava dando alguns problemas. Mas ainda persiste o erro. Nos logs do Mysql peguei o erro eis ele abaixo.
[MySQL.ODBC 5.1 Driver].[mySQLD-5.1.40-community] MySqlserver has gone away (#2006), sendo que no Access a mensagem é essa:
Erro em tempo de execução (3146) ODBC - falha na chamada

Esse problema tambem esta ocorrendo quando executo alguma consulta com muitos parametros. Pelo que percebo deve se rum problema de time-out entre o banco maysql e o Access.

Um grande abraço

Já vi que é um problema comum, veja isto;

http://bogdan.org.ua/2008/12/25/how-to-fix-mysql-server-has-gone-away-error-2006.html

Veja os bugs do MySQL, as versões e as soluções.

http://dev.mysql.com/doc/refman/5.0/en/gone-away.html

Blz, amanha irei analisar os documentos relacionados com os links que voce me enviou e te respondo se deu certo. Irei formatar o servidor que esta esse banco amanhã a noite, ele é 16 giga de memoria, usamos varios ambientes virtualizados mas irei usar o Windows 2008 R2 com isso quero ver o comportamento desse banco mysql nesse servidor..

JPaulo, conforme havia conversado, implantei o banco mysql em um novo servidor com sistema operacional Windows 2008 R2. Mudei a versão do Mysql para versão : mysql-essential-5.1.46-winx64. Além de ter ficado muito mais rápido minha aplicação que faz acesso as base de dados; que esta no Mysql parou de dar o erro:
MySQL.ODBC 5.1 Driver].[mySQLD-5.1.40-community] MySqlserver has gone away (#2006), sendo que no Access a mensagem é essa:
Erro em tempo de execução (3146) ODBC - falha na chamada.
Não alterei nenhum parâmetro do Mysql.

Valew pelo retorno amigo, concerteza irá ajudar e muito algumas feras com o mesmo problema.

Pelo que tenho lido é mesmo incompatibilidade de versões.

Sei que o tópico é antigo mas espero que minha resposta possa ajudar outras pessoas que venham enfrentar o mesmo problema.

O fato do amigo flmeirelles conseguir resolver seu problema formatando a maquina, instalando outro sistema operacional (Win Server 2008) e o mysql odbc 64 bits não quer dizer que isso irá resolver o seu problema.

Esse problema ocorre porque o "timeout" (tempo limite de conexão) do mysql está configurado para um tempo muito baixo, isso é muito comum em servidores mysql web com hospedagens nacionais.

Geralmente ele vem por padrão com 30 segundos, então devemos alterar essa propriedade global para 28800 (8 horas), ou seja o mysql não vai encerrar a sua conexão durante todo esse período, lógico que pode ocorrer outros fatores que podem levar a cair a conexão como a falta de internet, mas se for com um BD local isso não ocorre.

Sendo assim você tem que acessar essas variáveis dentro dos configs do mycnf (linux) e alterar a propriedade wait_timeout colocando 28800.

Espero que ajude.