RMI@
|
CAMPO BELO
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 21/07/2005 13:35 hs
Desabilitei o Firewall do XP e a mensagem de erro mudou... [MySQL] [ODBC 3.51 Driver]# HY000 HOST "DESK.mshome.net" allowed to connect to this MySQL Server. E agora? Acho que o problema anterior era relacionando ao Firewall, mas e neste caso?
 RMI
|
|
|
|
|
|
RMI@
|
CAMPO BELO
MG - BRASIL
|
|
Postada em 21/07/2005 20:11 hs
Alguém usa MySQL??? Pode dizer como fez pra rodar no micro cliente? Tem pouca informação sobre conexão deste tipo... Estou na seguinte posição: 1) Já instalei o driver ODBC no micro cliente (a rede está ok inclusive abrindo o meu programa) 2) Desabilitei o firewall do Win XP (que é o servidor) 3) O winmysqladmin está com sinal verde. Mas ainda sim, persiste a mensagem citada no tópico que postei anteriormente.
RMI
|
|
|
|
|
|
|
|
|
Postada em 22/07/2005 08:48 hs
RMI@ O primeiro erro que vc citou: "Mysql can't connect...", ocorre porque o driver do mysql não esta encontrando o servidor que você especificou no ip!!! Nestas condições, veja se você consegue rodar sua aplicação na máquina onde está instalado o servidor. Outra coisa!!! Mostre-me a string de conexão que você está utilizando no ADO, talvez tenha algo faltando ou errado!!! Outra coisa!!! Não é preciso desabilitar o firewall do Windows XP para que sua aplicação cliente acesse o servidor (eu estou utilizando um XP como servidor e consigo conectar normalmente de outro micro)
† DarkNeo †
|
|
|
|
RMI@
|
CAMPO BELO
MG - BRASIL
|
|
Postada em 22/07/2005 09:01 hs
Alfterra
Atualizei o MDAC_TYP no micro cliente e deu certo!!! Valeu... †DarkNeo†
Essa notícia do firewall é muito boa. Não posso desabilitar na máquina do cliente. Estou postando a string de conexão para ver se está correta: Dim db_CARUA As ADODB.Connection
Set db_CARUA = New ADODB.Connection
db_CARUA.ConnectionTimeout = 15
db_CARUA.CommandTimeout = 15
db_CARUA.CursorLocation = adUseServer
db_CARUA.Open "DRIVER={MySQL ODBC 3.51 Driver};" & "user=" & rmiUSUDB & ";password=" & rmiPSSDB & ";database=" & "cadaruas" & ";server=" & rmiHOSDB & ";option=" & (1 + 2 + 8 + 32 + 2048 + 16384)
Dim rstCARUA As ADODB.Recordset
Set rstCARUA = New ADODB.Recordset
rstCARUA.CursorLocation = adUseClient
rstCARUA.Open "select * from cadaruas where codigrua='" & vapCORUA & "'order by codigrua", db_CARUA, adOpenStatic, adLockOptimistic, adCmdText
Obrigado a todos vcs pela ajuda. Valeu mesmo!!!
RMI
|
|
|
|
|
|
Postada em 22/07/2005 09:39 hs
Tudo correto!!! Até mais!!! 
† DarkNeo †
|
|
|
|
