[Resolvido]Conectar mysql via .INI

Bom dia,

Estou trabalhando em uma aplicação para operar em rede, sempre uso o MYSQL para armazenar os dados, e vinculo os tabelas no access, como que eu crio um arquivo .INI para fazer a conexão com o bd?


Obrigado.

Pode fornecer mais detalhes por gentileza? Ficou meio vago a questão.

Por exemplo eu vinculo as tabelas do access em um banco MYSQL que esta em rede, para configurar o caminho do MYSQL tem que ser no próprio access. Eu queria algo que fosse configurado em um arquivo TXT, que nesse arquivo o access iria ler o caminho do MYSQL sem a necessidade de configurar no próprio access.

Procure na ajuda do Access pelo termo Open e veja como funciona para abrir um arquivo em modo leitura, ler uma linha específica desse arquivo e fechar o arquivo em seguida. Mas eu prefiro deixar esse caminho armazenado no próprio Access, assim o aplicativo não fica dependente de arquivos externos, arquivo que por algum motivo pode se tornar inacessível e dar erro no programa.

cara faz isso usando o odbc do mysql, instala ele na maquina ai voce faz o mdb ou um software instalador criar as entradas no registro do windows e pronto....se precisar da um toque.

um abraço luiz

Boa tarde, Luiz

Como que eu poderia criar essas entradas?

Abraços.

cara pelo que entendi voce vai distribuir sua aplicação pela rede certo e voce nao quer configurar o odbc maquina a maquina. se for isso faz o seguite use um gerador de instalação tipo o createinstall free, ele tem opção de ao instalar registrar as ocx e incluir entradas no registro do windows, se voce verificar no registre do windows em [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI"seu odbc"]
"Driver"="C:\\Program Files\\MySQL\\Connector ODBC 5.1\\myodbc5.dll"
"SERVER"="endereço do banco"
"UID"="usuario mysql"
"PWD"="senha mysql"
"DATABASE"="nome da tabela"
"PORT"="3306"
estas entradas que o odbc cria crei voce pelo createinstall e pronto a distribuição fica automatizada.... espero que seja isso que voce precisa senão me explica melhor pra eu tentar ajudar ok

um abraço
luiz

Olá Luiz,

Olha adorei sua ajuda, mas teria como por exemplo o cliente mesmo configurar o caminho tipo cadastrar o endereço do servidor em uma tabela no proprio access e ele iria ler o endereço do servidor?

Abraço

Boa tarde, estou querendo criar uma função para vincular as tabelas sempre que o banco for aberto. Encontrei a função abaixo.

Private Function LinkMySQLTables() As Boolean
'DAO 3.x Required
'Declare Variables...
Dim ConnectStrg As String, rst As Recordset, _
db As Database, Strg As String

'The Connection String required to connect to MySQL.
'You will need to fill in the proper information within
'this string.
ConnectStrg = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"Server=myServerName;" & _
"Port=3306;" & _
"Option=16384;" & _
"Stmt=;" & _
"Database=mydatabaseName;" & _
"Uid=myUsername;" & _
"Pwd=myPassword"

'Trap any Errors...
On Error GoTo Error_LinkMySQLTables

'Open a recordset from the table the conatains
'all the table names we want to Link from the
'MySQL Database.
Set db = CurrentDb
Set rst = db.OpenRecordset("NickSeenStatus", dbOpenSnapshot)
With rst
'Fill the Recordset...
.MoveLast
.MoveFirst
'Enumerate through the Records...
Do Until rst.EOF
'Place the Table Name into the Strg string variable.
' FieldName (below) would be the Field name in your Access
' Table which holds the name of the MySQL Tables to Link.
Strg = !FieldName
'Make sure we are not dealing will an empty string..
If Len(Strg) > 0 Then
'Link the MySQL Table to this Database.
DoCmd.TransferDatabase acLink, "ODBC Database", ConnectStrg, _
acTable, Strg, Strg
End If
'move to the next record...
.MoveNext
Loop
End With
'We're done...

Exit_LinkMySQLTables:
'Clear Variables and close the db connection.
Set rst = Nothing
If Not db Is Nothing Then db.Close
Set db = Nothing
Exit Function

Error_LinkMySQLTables:
'If there was an error then display the Error Msg.
MsgBox "Link Tables Error:" & vbCr & vbCr & _
Err.Number & " - " & Err.Description, _
vbExclamation, "Table Link Error"
Err.Clear
Resume Exit_LinkMySQLTables
End Function

quando chamo a função com o comando

Call LinkMySQLTables

aparece o seguinte erro:

"Sub" ou "Function" não definida

Já procurei bastante e não consegui resolver o erro. Alguem pode me ajudar?

Obrigado

Altere a função de Privada para Publica

De:
Private Function LinkMySQLTables() As Boolean

Para:
Public Function LinkMySQLTables() As Boolean

Agora está aparecendo outro erro:

2507 - O tipo ODBC Database não é um tipo de banco de dados instalado ou não suporta a operação escolhida.

Sabes qual erro seria esse? Você teria algum outro módulo que seja mais fácil de configurar?


Obrigado

Eu utilizo um sistema muito simples, fiável e funfa o tempo todo a 99,9%.

Chamo ao backend de Servidor, mantenho sempre este nome por uma questão de compatibilidade. O resto é um módulo no front, um formulário com um botão que só aparece se for necessário. DEpois de ter as tabelas ligadas, é só necessário clicar nesse form uma vez. Já experimentei alterar o caminho do back, de C: para ambiente de trabalho e o front não o perdeu de vista. Se for útil...

http://dl.dropbox.com/u/8157744/vincular.rar