VB/ACCESS > VB/MYSQL

[tiagoborges.net 0]

To tentando migrar os sistemas VB / ACCESS para VB / MYSQL, instalei o servidor fiz teste com MySQL-Front no servidor e funcionou ok.

 

Instalei o MySQL-Front na estação de desenvolvimento e importei o bd access - OK.

 

Agora ao utilizar oVB ele da erro de conexão. Olha como to fazendo:

 

Conex.Open "Database=sisteste;Driver={Mysql};Server=192.168.85.249;UID=admteste;PWD=teste"

Estes mesmos dados uso no MySQL-Front e funciona.

 

Não queria ter de configurar DSN, pq não pede no Front, se eu tiver de confirar em todas as estações da lascou-se.

 

Alguem sabe como me ajudar?

 

:]

[jolienai 0]

você precisa instalar tb o Mysql OBDC verifique se você já tem.. olhando lá no ODBC se não pode ser baixado no site do Mysql..

[Veber 0]

Seguinte Cara,

tem uma DLL que vem junto com o VB que o pessoal quase nao usa, boa pra caramba

ela tem funcoes de criacao, listagem do conteudo ODBC / DSN

o que facilita muito quando voce roda o sistema numa maquina nova, pq o seu proprio codigo cria a conexao ODBC

 

e melhor, se já existir o ODBC ele substitui pelo novo que voce mandar

 

chama ODBCTool

( ODBC Driver & Data Source Name Functions )

 

se voce nao tiver, me manda um email que eu te mando

 

veberiano@yahoo.com.br

 

 

Exemplo de Uso do ODBC-Tool

 

Dim myDSN As ODBCTool.DsnSet myDSN = New ODBCTool.DsnWith myDSN    '== CRIANDO ODBC =='    .CreateDSN "cnTeste", "Microsoft Access Driver (*.mdb)", "", "", "Admin", "Password", "", True, ""    '== LISTANDO ODBC =='    Dim odbcList() As String    Dim showList As String        .GetDataSourceList odbcList()        showList = ""    For i = LBound(odbcList) To UBound(odbcList)        showList = showList & odbcList(i) & vbCrLf    Next        MsgBox showList    End With

[tiagoborges.net 0]

Vou ver e te respondo.Valeu