Array
(
)

MySQL + Internet + Delphi

Weberley Guelsi
   - 01 dez 2010




olá pessoal
 
a empresa onde trabalho tem um site e um banco de dados em MySQL
que uma outra empresa entra com o login e senha e consulta nesse
banco de dados, o problema é que eu tenho que alimentar esse banco
de um programa local feito em Delphi, como eu acesso o banco MySQL
e como eu insiro os registros la nesse banco e quais componentes usar?
 
agradeço qualquer ajuda
se quizerem me adicionar no msn ai esta
weberley28@hotmail.com

Weberley Guelsi
   - 01 dez 2010

será que ninguem nunca fez isso?

MARCELO CASTRO DINIZ
   - 01 dez 2010

Exemplo abaixo utilizando os componente da ZEOS.
Criando a conexão com a base de dados remota pelo TZCONNECTION.
[tagcod]var Conexao ]
Coletando dados da tabela via consulta SQL utilizando o TZQUERY.
[tagcod]
function DadosUsuario (CliCodigo ]
Visualizando os registros por um CLIENTDATASET.
[tagcod]  CdsDadosUsuario.Close;  CdsDadosUsuario.XMLData ]



 

MARCELO CASTRO DINIZ
   - 01 dez 2010



  Inserindo um registro:
function ControleDownloads(IdProg, IdCliente,IPCliente: string): boolean;var
  ZQryDownloads: TZQuery;  DataDownload : string;begin
  try  conexaobanco(1);  DataDownload :=  formatdatetime('DD/MM/YYYY',DATE) + ' ' + formatdatetime('HH:MM:SS',TIME);  ZQryDownloads := TZQuery.Create(Application);
  with ZQryDownloads do  begin    Connection := Conexao;    SQL.Add('Insert downloads set id_prog = ' + QuotedStr(IdProg) + ',');    SQL.Add('id_cli = ' + QuotedStr(IdCliente ) + ',');    SQL.Add('ip_dow = '+ QuotedStr(IPCliente) + ',');    SQL.Add('data_down = ' + QuotedStr(DataDownload));    ExecSQL;    Result := RowsAffected;  end;
  except     Result := false;
  end;  FreeAndNil(ZQryDownloads);  conexaobanco(0);
end;

Weberley Guelsi
   - 02 dez 2010

obrigado por tentar
 
mas é o seguinte, o terra me passou
 
 
Nome do Banco: setamt
Nome do Servidor: mysql-g13a.mysqldbserver.com
Porta: 3306
 
coloquei isso no componente ZConnection, mas não funcionou

MARCELO CASTRO DINIZ
   - 02 dez 2010




Citação:
obrigado por tentar

 

mas é o seguinte, o terra me passou