Mysql

[raphael.sx]

como acessar o banco MySQL na rede... uso o Zeos...

[Vivendo&Aprendendo]

você usa ODBC

V&A

[raphael.sx]

não... não uso o ODBC.

tem como usar o ODBC com o componente Zeos???

[raphael.sx]

AJUDA!!!!!!!!!!!!!!!!!!!!!!!!!!!

como acessar o banco na rede usando o ZEOS?

[deivis]

Faça um arquivo de configuração do tipo ini

OBS.: o nome do arquivo ini tem de ser o mesmo nome do projeto no Delphi.

O arquivo pode ser feito no bloco de notas.

Exemplo: aplicativo.ini

[Mysql]
Hostname=localhost
Bd=Teste
User=Joao
password=123456

Onde Hostname é o nome do computador ou endereço IP de onde está a base de dados. Bd é o nome da base de dados, User é o usuário, e password é a senha. Depois crie uma procedure do tipo: (crie esta procedure em uma unit de funções)

procedure ConectaMysql(Conexao : TZConnection);
{ Será usada para que seja feita a configuração e conexao com
                  o banco de dados.                                            }
var
  //variaveis de arquivo INI.
  vNomeIni : string;
  vArquivoIni : TIniFile;

  vHostName, vBd, vUser, vPassword : string; //parametros de conexao.
begin
  // abre arquivo INI para carregar os parametros ...
  vNomeIni := ChangeFileExt(ParamStr(0), '.INI');
  vArquivoIni := TIniFile.Create(vNomeIni);

  //carrega os parametros de conexao.
  vHostName := vArquivoIni.ReadString('Mysql','Hostname','NO_DATA');
  vBd       := vArquivoIni.ReadString('Mysql','Bd','NO_DATA');
  vUser     := vArquivoIni.ReadString('Mysql','User','NO_DATA');
  vPassword := vArquivoIni.ReadString('Mysql','Password','NO_DATA');

  if vPassword = 'NO_DATA' then vPassword := '';

  //carrega componente de conexao.
  Conexao.HostName := vHostName;
  Conexao.Database := vBd;
  Conexao.User     := vUser;
  Conexao.Password := vPassword;
  Conexao.Connect;   //conecta com o banco de dados.
end;

Agora no Source do aplicativo (Project->View Source), após ser criado o Data Module (suponho que estenha usando um Data Module) chame a função da seguinte forma:

ConectaMysql(NomeDoDataModule.NomeDoZeosConnection);

Agora supondo que a base de dados esteja no computador com IP 192.168.0.1, no arquivo ini dos outros computadores é só você deixar este número em Hostname.

Espero ter ajudado.

[raphael.sx]

não estou conseguindo trabalhar com arquivos INI.

vNomeIni := ChangeFileExt(ParamStr(0), '.INI');

vArquivoIni := TIniFile.Create(vNomeIni);

o que devo fazer?

[Guest Guest]

você não consegue ler ini, gravar no ini ou as duas ?