LENTIDAO NA AVERTURA DOS ARQUIVOS
Bom dia pessoal,
Após ter implementado o meu sistema, notei uma grande lentidão na abertura dos meus bancos de dados MYSQL 6.0, abaixo até a função que utilizo para abertura.
Public Sub Abre_Config()
Set Conexao98 = New ADODB.Connection
Conexao98.ConnectionTimeout = 60
Conexao98.CommandTimeout = 400
Conexao98.CursorLocation = adUseClient
Conexao98.Open [Ô]DRIVER={MySQL ODBC 5.1 Driver};[Ô] _
& [Ô]user ID=[Ô] & USUARI _
& [Ô];database=[Ô] & ARQBAS _
& [Ô];password=[Ô] & SENHOS _
& [Ô];server=[Ô] & IPSMAQ _
& [Ô];option=[Ô] & 3
MdConfig.Open [Ô]SELECT * FROM AQ_CONF[Ô], Conexao98, adOpenDynamic, adLockOptimistic
End Sub
Onde:
USUARI = Usuário -> root
ARQBAS = arquivo principal do MYSQL -> aecminas
SENHOS = Senha -> está em branco
IPSMAQ = IP do Servidor
Alguém pode me dar uma ajudinha para ver o que estou fazendo de errado nesta abertura???
Obrigado,
Após ter implementado o meu sistema, notei uma grande lentidão na abertura dos meus bancos de dados MYSQL 6.0, abaixo até a função que utilizo para abertura.
Public Sub Abre_Config()
Set Conexao98 = New ADODB.Connection
Conexao98.ConnectionTimeout = 60
Conexao98.CommandTimeout = 400
Conexao98.CursorLocation = adUseClient
Conexao98.Open [Ô]DRIVER={MySQL ODBC 5.1 Driver};[Ô] _
& [Ô]user ID=[Ô] & USUARI _
& [Ô];database=[Ô] & ARQBAS _
& [Ô];password=[Ô] & SENHOS _
& [Ô];server=[Ô] & IPSMAQ _
& [Ô];option=[Ô] & 3
MdConfig.Open [Ô]SELECT * FROM AQ_CONF[Ô], Conexao98, adOpenDynamic, adLockOptimistic
End Sub
Onde:
USUARI = Usuário -> root
ARQBAS = arquivo principal do MYSQL -> aecminas
SENHOS = Senha -> está em branco
IPSMAQ = IP do Servidor
Alguém pode me dar uma ajudinha para ver o que estou fazendo de errado nesta abertura???
Obrigado,
Não sei se ajudaria, mas já tente mudar essas linhas:
Conexao98.ConnectionTimeout = 15
Conexao98.CommandTimeout = 15
Conexao98.CursorLocation = adUseClient
para
Conexao98.CursorLocation = adUseServer
Trocar o adOpenDynamic para adOpenKeyset
Conexao98.ConnectionTimeout = 15
Conexao98.CommandTimeout = 15
Conexao98.CursorLocation = adUseClient
para
Conexao98.CursorLocation = adUseServer
Trocar o adOpenDynamic para adOpenKeyset
Você está tentando conectar-se ao banco REMOTAMENTE ou LOCAL?
Você reclama da abertura do banco. E o acesso nas tabelas está normal?
Você reclama da abertura do banco. E o acesso nas tabelas está normal?
Minha string de conexao com mysql, nao tenho problemas de lentidao não.. lembrando que, utilizo arquivo INI para buscar as informaçoes das strings, dentro dos forms para abria a conexao so coloco, CONECTA TRUE, e para fechar a conxao, CONECTA FALSE.
Public Function Conecta(ByVal Valor As Boolean)
Dim SERVIDOR, USUARIO, SENHA, PORTA, basededados As String
If Valor = True Then
Set Conexao = New Connection
SERVIDOR = ReadINI([Ô]Conexao[Ô], [Ô]SERVIDOR[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
basededados = [Ô]techsizecrm[Ô]
PORTA = ReadINI([Ô]Conexao[Ô], [Ô]PORTA[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
USUARIO = ReadINI([Ô]Conexao[Ô], [Ô]USUARIO[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
SENHA = [Ô]master4lj@[Ô]
CON_STR = [Ô]DRIVER={MySQL ODBC 5.1 DRIVER};[Ô] _
& [Ô]Server=[Ô] & SERVIDOR & [Ô];[Ô] _
& [Ô]Port=[Ô] & PORTA & [Ô];[Ô] _
& [Ô]Database=[Ô] & basededados & [Ô];[Ô] _
& [Ô]UID=[Ô] & USUARIO & [Ô];[Ô] _
& [Ô]PWD=[Ô] & SENHA & [Ô];[Ô] _
& [Ô]Option=3;[Ô]
With Conexao
.CursorLocation = adUseClient
.ConnectionString = CON_STR
.Open CON_STR
End With
Else
Conexao.Close
Set Conexao = Nothing
End If
End Function
Public Function Conecta(ByVal Valor As Boolean)
Dim SERVIDOR, USUARIO, SENHA, PORTA, basededados As String
If Valor = True Then
Set Conexao = New Connection
SERVIDOR = ReadINI([Ô]Conexao[Ô], [Ô]SERVIDOR[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
basededados = [Ô]techsizecrm[Ô]
PORTA = ReadINI([Ô]Conexao[Ô], [Ô]PORTA[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
USUARIO = ReadINI([Ô]Conexao[Ô], [Ô]USUARIO[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
SENHA = [Ô]master4lj@[Ô]
CON_STR = [Ô]DRIVER={MySQL ODBC 5.1 DRIVER};[Ô] _
& [Ô]Server=[Ô] & SERVIDOR & [Ô];[Ô] _
& [Ô]Port=[Ô] & PORTA & [Ô];[Ô] _
& [Ô]Database=[Ô] & basededados & [Ô];[Ô] _
& [Ô]UID=[Ô] & USUARIO & [Ô];[Ô] _
& [Ô]PWD=[Ô] & SENHA & [Ô];[Ô] _
& [Ô]Option=3;[Ô]
With Conexao
.CursorLocation = adUseClient
.ConnectionString = CON_STR
.Open CON_STR
End With
Else
Conexao.Close
Set Conexao = Nothing
End If
End Function
Pessoal - Muito obrigado por ter respondido a minha questão.
MSMJUDAS - Tentei a sua sugestão, pareçe que melhorou um pouco mais ainda continha lento.
EDERMIR - Estou conectando do meu computador ao servidor através do ODBC, por isto tenho a variável IPSMAQ que contém o nº do IP do Servidor entre outros dados pedidos.
XXXANGELSXXX - também utilizo um arquivo INI para guardar as configurações iniciais do sistema, mas não utilizo como vc descreveu, utilizo de seguinte modo:
1 - criei um Form de abertura onde informo qual usuário está utilizando, qual o nº do IP utilizado, qual o status de conexão, qual o IP do Servidor utilizado.
2 - neste form, abro o arquivo de inicialização ( INI ) onde contém o Host,Usuário,Senha,nome do Bando de Dados principal,Porta a ser aberta e o nº Ip do Servidor e guardo em variáveis públicas.
Assim, na hora de abrir outros arquivos neste banco de dados, fica mais fácil.
Mas se alguém tiver mais sugestões, poste para mim, ficarei agradecido.
Obrigado,
MSMJUDAS - Tentei a sua sugestão, pareçe que melhorou um pouco mais ainda continha lento.
EDERMIR - Estou conectando do meu computador ao servidor através do ODBC, por isto tenho a variável IPSMAQ que contém o nº do IP do Servidor entre outros dados pedidos.
XXXANGELSXXX - também utilizo um arquivo INI para guardar as configurações iniciais do sistema, mas não utilizo como vc descreveu, utilizo de seguinte modo:
1 - criei um Form de abertura onde informo qual usuário está utilizando, qual o nº do IP utilizado, qual o status de conexão, qual o IP do Servidor utilizado.
2 - neste form, abro o arquivo de inicialização ( INI ) onde contém o Host,Usuário,Senha,nome do Bando de Dados principal,Porta a ser aberta e o nº Ip do Servidor e guardo em variáveis públicas.
Assim, na hora de abrir outros arquivos neste banco de dados, fica mais fácil.
Mas se alguém tiver mais sugestões, poste para mim, ficarei agradecido.
Obrigado,
Como não uso MySql não sei te responder claramente, mas já tentou configurar alguma coisa no driver ODBC pra ver se melhora.
As vezes pode ser a sua rede que está com problemas, já tentou conectar localmente? Se não, instala o MySql e faça a conexão local.
As vezes pode ser a sua rede que está com problemas, já tentou conectar localmente? Se não, instala o MySql e faça a conexão local.
MSMJUDAS - vou tentar a sua sugestão
Quando perguntei sobre conexão REMOTA ou LOCAL referia-me em NA MESMA REDE ou POR ACESSO EXTERNO.
E o acesso aos dados após a conexão? Está lento também?
E o acesso aos dados após a conexão? Está lento também?
EDERMIR - faço a conexão na mesma rede.
E o acesso aos dados após a conexão? Está lento também?
elmo bom dia...
não sei se vai ajudar mas aqui segue... faz o seguinte va na maquina
entre em Prompt de Comando e de um ping no servidor onde voce esta vendo que o sistema ta lento
ex:
PING 192.168.254.001 -T
aà comeca a contagem do tempo entre ping e ve se tem perda... depois posta aà pois talvez o switch esta com problema, ou cabeamento feito de modo errado. aconteceu aqui comigo...
não sei se vai ajudar mas aqui segue... faz o seguinte va na maquina
entre em Prompt de Comando e de um ping no servidor onde voce esta vendo que o sistema ta lento
ex:
PING 192.168.254.001 -T
aà comeca a contagem do tempo entre ping e ve se tem perda... depois posta aà pois talvez o switch esta com problema, ou cabeamento feito de modo errado. aconteceu aqui comigo...
Tópico encerrado , respostas não são mais permitidas