URGENTE: SERVIDOR COM ACESS

Driver={MySQL ODBC 3.51 Driver};Server=data.domain.com;Port=3306;Database=myDataBase;User=myUsername;Password=myPassword;Option=3;

Dim CONEXAO, RS
Set CONEXAO = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")

CONEXAO.open "Driver={MySQL ODBC 3.51 Driver};Server=200.189.82.82;Port=3306;Database=base_de_dados;User=root;Password=123456;Option=3;"

RS.Open "SELECT * FROM cidades WHERE codigo_cidade='" & lblCod.caption & "'", CONEXAO

'e para fazer a leitura normal, assim:
Msgbox(RS("codigo_cidade"))

'Exemplo para não brir diversas conexões e deixar o programa ou servidor MySQL lento:
'ANTES Acesse a opção Projects->References e selecione a opção "Microsoft ActiveX Data Objects 2.1" para adicionar a Referencia ADO ao projeto

Public CONEXAO as New ADODB.Connection
Public RS as New ADODB.Recordset

Public Function CONECTA()

    On error goto ERRO
    CONEXAO.open "Driver={MySQL ODBC 3.51 Driver};Server=200.189.82.82;Port=3306;Database=base_de_dados;User=root;Password=123456;Option=3;"
    exit function

'Caso ocorra erro venha para cá
ERRO:
    MsgBox("Ocorreu um erro na conexão. Erro número " & err.number & " descrição: " & err.Description),vbcritical, "Erro na conexão"
    End

End Function

Citação:

EMERSON_TADEU escreveu:
Esley, fii ... Ela usa DAO ... laskou tudo !

Honestamente isto de fato acontece com alguns programas, escolhemos uma tecnologia e vamos esticando até onde é possivel.

Sugiro que inclusive antes de disponibilizar o sistema pela WEB substitua a tecnologia de acesso a dados de DAO para ADO.
Isto por si só vai permitir uma escolha mais ampla pois TODOS BDs aceitam ADO e os que eventualmnte também aceitarem DAO não tem recebido otimizações e nem atualizações neste tipo de conexão.

Sei que é dureza ter uma dúvida sair com mais 3 ou 4, mas quando fizer isto e estiver mais atualizada vai ficar mais fácil te ajudar.

Citação:

LINY_FF escreveu:
mas agora achu que vou ganhar um dinheirinho...depois quem sabe eu mudo.

hehe..

pois se nao vou levar muito tempo para publicar!!