ERRO DE CONEXAO MYSQL
Ola galera blz! ajuda eu ai. Estou fazendo a conexao com um banco de dados mysql so que depois de 15 segundos encerra a conexão não estou sabendo configurar timeout alguem pode me ajudar? estou conectando assim
Global strConexao As String [ô]Guarda o caminho de conexão
Global Conexao As New ADODB.Connection [ô]Conecta ao Db
strConexao = [Ô]DRIVER={MySQL ODBC 5.1 Driver};[Ô]
strConexao = strConexao & [Ô]Server=www.meuservidor;[Ô]
strConexao = strConexao & [Ô]Port=3306;[Ô]
strConexao = strConexao & [Ô]User=usuario;[Ô]
strConexao = strConexao & [Ô]pwd=senha;[Ô]
strConexao = strConexao & [Ô]database=meudb[Ô]
Conexao.Open strConexao [ô]Abre o Banco de Dados
Conexao.CursorLocation = adUseClient
conecta mas depois de 15 segundos da erro que o servidor ta fora do ar
Global strConexao As String [ô]Guarda o caminho de conexão
Global Conexao As New ADODB.Connection [ô]Conecta ao Db
strConexao = [Ô]DRIVER={MySQL ODBC 5.1 Driver};[Ô]
strConexao = strConexao & [Ô]Server=www.meuservidor;[Ô]
strConexao = strConexao & [Ô]Port=3306;[Ô]
strConexao = strConexao & [Ô]User=usuario;[Ô]
strConexao = strConexao & [Ô]pwd=senha;[Ô]
strConexao = strConexao & [Ô]database=meudb[Ô]
Conexao.Open strConexao [ô]Abre o Banco de Dados
Conexao.CursorLocation = adUseClient
conecta mas depois de 15 segundos da erro que o servidor ta fora do ar
Faça assim:
coloque no modulo:
[ô]declare a uma váriavel de conexão
Public Conexao As ADODB.Connection
Public Function Conecta(ByVal valor As Boolean)
On Error GoTo ErrorLine
If valor = True Then
Set Conexao = New Connection
SERVIDOR = [Ô][Ô] & [Ô]lwww.meuservidor[Ô]
BASEDEDADOS = [Ô][Ô] & [Ô]meudb[Ô]
PORTA = [Ô][Ô] & [Ô]3306[Ô]
USUARIO = [Ô][Ô] & [Ô]usuario[Ô]
Senha = [Ô][Ô] & [Ô]senha[Ô]
CON_STR = [Ô]DRIVER={MySQL ODBC 5.1 DRIVER};[Ô] _
& [Ô]Server=[Ô] & SERVIDOR & [Ô];[Ô] _
& [Ô]Port=[Ô] & PORTA & [Ô];[Ô] _
& [Ô]Database=[Ô] & BASEDEDADOS & [Ô];[Ô] _
& [Ô]UID=[Ô] & USUARIO & [Ô];[Ô] _
& [Ô]PWD=[Ô] & Senha & [Ô];[Ô] _
& [Ô]ConnectionTimeout=60[Ô] & [Ô];[Ô] _
& [Ô]OPTION=[Ô] & 1 + 2 + 8 + 32 + 2048 + 16384
With Conexao
.CursorLocation = adUseClient
.ConnectionString = CON_STR
.Open CON_STR
End With
Else
Conecta True
If Conexao.State = 1 Then Conexao.Close
Set Conexao = Nothing
End If
Exit Function
ErrorLine:
MsgBox Err.Description
End Function
para conectar faça assim:
Conecta true
realizo a query...
Conecta False
coloque no modulo:
[ô]declare a uma váriavel de conexão
Public Conexao As ADODB.Connection
Public Function Conecta(ByVal valor As Boolean)
On Error GoTo ErrorLine
If valor = True Then
Set Conexao = New Connection
SERVIDOR = [Ô][Ô] & [Ô]lwww.meuservidor[Ô]
BASEDEDADOS = [Ô][Ô] & [Ô]meudb[Ô]
PORTA = [Ô][Ô] & [Ô]3306[Ô]
USUARIO = [Ô][Ô] & [Ô]usuario[Ô]
Senha = [Ô][Ô] & [Ô]senha[Ô]
CON_STR = [Ô]DRIVER={MySQL ODBC 5.1 DRIVER};[Ô] _
& [Ô]Server=[Ô] & SERVIDOR & [Ô];[Ô] _
& [Ô]Port=[Ô] & PORTA & [Ô];[Ô] _
& [Ô]Database=[Ô] & BASEDEDADOS & [Ô];[Ô] _
& [Ô]UID=[Ô] & USUARIO & [Ô];[Ô] _
& [Ô]PWD=[Ô] & Senha & [Ô];[Ô] _
& [Ô]ConnectionTimeout=60[Ô] & [Ô];[Ô] _
& [Ô]OPTION=[Ô] & 1 + 2 + 8 + 32 + 2048 + 16384
With Conexao
.CursorLocation = adUseClient
.ConnectionString = CON_STR
.Open CON_STR
End With
Else
Conecta True
If Conexao.State = 1 Then Conexao.Close
Set Conexao = Nothing
End If
Exit Function
ErrorLine:
MsgBox Err.Description
End Function
para conectar faça assim:
Conecta true
realizo a query...
Conecta False
Obrigado a todos que responderam Eu fiz Assim
strConexao = [Ô]DRIVER={MySQL ODBC 5.1 Driver};[Ô]
strConexao = strConexao & [Ô]Server=www.meuservidor;[Ô]
strConexao = strConexao & [Ô]Port=3306;[Ô]
strConexao = strConexao & [Ô]User=usuario;[Ô]
strConexao = strConexao & [Ô]pwd=senha;[Ô]
strConexao = strConexao & [Ô]database=meudb[Ô]
strConexao = strConexao & [Ô]Default Command Timeout=15;
Continua dando o mesmo erro quando fica os 15 segundos mecher no programa ele da o erro que o servidor esta fora do ar
strConexao = [Ô]DRIVER={MySQL ODBC 5.1 Driver};[Ô]
strConexao = strConexao & [Ô]Server=www.meuservidor;[Ô]
strConexao = strConexao & [Ô]Port=3306;[Ô]
strConexao = strConexao & [Ô]User=usuario;[Ô]
strConexao = strConexao & [Ô]pwd=senha;[Ô]
strConexao = strConexao & [Ô]database=meudb[Ô]
strConexao = strConexao & [Ô]Default Command Timeout=15;
Continua dando o mesmo erro quando fica os 15 segundos mecher no programa ele da o erro que o servidor esta fora do ar
faça como eu disse.
Obrigado por responder ANDREMBV mas da o mesmo erro como trato este erro
tente assim
Global strConexao As String [ô]Guarda o caminho de conexão
Global Conexao As New ADODB.Connection [ô]Conecta ao Db
strConexao = [Ô]DRIVER={MySQL ODBC 5.1 Driver};[Ô]
strConexao = strConexao & [Ô]Server=www.meuservidor;[Ô]
strConexao = strConexao & [Ô]Port=3306;[Ô]
strConexao = strConexao & [Ô]User=usuario;[Ô]
strConexao = strConexao & [Ô]pwd=senha;[Ô]
strConexao = strConexao & [Ô]database=meudb[Ô]
With Conexao
.LockType = adLockPessimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.Open strConexao
End With
Ola Amigos do vb Ja pertubei muita gente com este assunto quero agradecer a todos que me ajudara aqui mas não consigo configurar o timeout do mysql nem que fique a noite inteira acordado. fiz o ex.: do marcelo treze não deu certo a variavel conexao não tem as opções .LockType = adLockPessimistic .CursorType = adOpenKeyset então não conecta. fiz o exemplo ANDREMBV deu certo mas o timeout so fica os 15 segundos o que to fazendo de errado a unica coisa que facilitou foi que tenho que colocar true toda vez que vou enviar ou receber dados do db sera que alguem pode me ajudar novamente. mais uma vez obrigado a ANDREMBV marcelo treze, todos os amigos que responde os foruns complemento meu ganha pão com os softwares que faço.
OLha só pode ser que o timeout do próprio servidor de hospedagem seja curto mesmo, eu testei com o meu provedor de hospedagem onde tenho um banco MySQL e também acontecia isso o meu é uolhost. Agora um dos melhores é o LocaWeb não dá problema nenhum coma conexão mysql só que tem um problema é um dos mais caros que conheço.
Tópico encerrado , respostas não são mais permitidas