Re: [delphi-br] Dados não atualizados no MySQL
Olá,
Se você estiver usando o DBx, após inserir/alterar/excluir, execute:
seuClientDataSet.ApplyUpdates(-1);
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com
Skype: paulo.prsolucoes
Consultor Certificado Bindows
Em 3 de julho de 2010 01:09, Eduardo Silva dos Santos eduardo@gmail.com
escreveu:
Eu não sei qual suite de componentes você ta usando para conexão, mais
creio
que ta faltando dar um commit ao final do processo.
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...
Em 2 de julho de 2010 17:38, Levy levypere...@yahoo.com escreveu:
Prezados amigos,
tenho algumas tabelas que quando faço inserção ou atualização funcionam
normalmente, contudo depois de encerrar o aplicativo e voltar a ele os
dados
estão inalterados no servidor.
o código está aqui só para quem sabe ver se não tem nenhuma orelha nele.
Nota: a aplicação acessa uma base de dados num servidor externo, quando
está local funciona normalmente. Acessando a base no servidor com o
Workbench também funciona normalmente.
Valeu!
-
bd.conexao.StartTransaction;
Bd.QueryDosFornecedores.Close;
bd.QueryDosFornecedores.SQL.Clear;
try
if existefornecedor.Caption = 'N' Then
Begin
Bd.QueryDosFornecedores.SQL.Add(
'insert into fornecedores ( cnpj, razaosocial, telefone, contato,'+
'email ) values ( '+A01+','+A02+','+A03+','+A04+','+A05+')');
Bd.QueryDosFornecedores.ExecSQL;
Bd.QueryDosFornecedores.SQL.Clear;
bd.fornecedores.CommitUpdates;
Bd.Fornecedores.Refresh;
MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação', 64
);
passou := True;
end
Else
Begin
bd.fornecedores.Locate( 'cnpj', e_cnpj.Text, [] );
if ( trim ( e_cnpj.Text ) trim( bd.fornecedorescnpj.Text ) ) or
( trim ( e_razaosocial.Text ) trim( bd.fornecedoresrazaosocial.Text )
)
or
( trim ( e_contato.Text ) trim( bd.fornecedorescontato.Text ) ) or
( trim ( e_telefone.Text ) trim( bd.fornecedorestelefone.Text ) ) or
( trim ( e_email.Text ) trim( bd.fornecedoresemail.Text ) ) then
begin
Bd.QueryDosFornecedores.SQL.Add(
'Update fornecedores set cnpj = '+A01+', razaosocial = '+A02+
', telefone = '+A03+', contato = '+A04+', email = '+A05+' Where Cnpj =
'+A01);
Bd.QueryDosFornecedores.ExecSQL;
Bd.QueryDosFornecedores.SQL.Clear;
bd.fornecedores.CommitUpdates;
bd.fornecedores.Refresh;
MessageBox( Handle, 'Fornecedor alterado com sucesso', 'Informação', 64
);
end;
passou := True;
bd.QueryDosFornecedores.Close;
End;
except
on E: Exception do
begin
MessageBox(Handle,PChar('Ocorreu um erro ao tentar gravar os dados.'#13+
'Informe o erro:'#13+
E.Message),'ERRO',16);
End;
-
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] TcxGrid Zebrado
No evento OnCustomDraw da coluna que você tem que verificar o valor, use o codigo mais ou menos assim: If (TcxGridDataRowViewInfo(AViewInfo.RecordViewInfo).GridRecord.Values[TableViewNomeCampo.Index] = 0) then Begin ACanvas.Font.Style := [fsBold]; ACanvas.Font.Color := clRed; ACanvas.Brush.Color := clYellow; End; Espero ter ajudado... =) Enviado do meu BlackBerry® da TIM -Original Message- From: Murilo Cunha mcscu...@yahoo.com.br Sender: delphi-br@yahoogrupos.com.br Date: Fri, 02 Jul 2010 17:12:52 To: delphi-br@yahoogrupos.com.br Reply-To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] TcxGrid Zebrado Pessoal, Como eu faço um grid zebrado neste componente da DevExpress?? Quero que: Se uma determinada coluna tem um valor negativo, a linha toda tenha a cor vermelha; se for igual a zero, a linha toda em amarelo, e; se for positivo, a cor das letras em verde. Lembrando que estou usando TcxGrid e TcxGridTableView. Obrigado, MuriloCunha [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] DbxOra para Win7
Corretissimo, escapou na ansia de tentar ajudar, imaginando alguma perda do outro lado e nem considerando a versao do sistema delphi do nosso colega. Entao, continuando: tendo a versao correta com suporte aa DLL, o sistema gerado terah acesso sem problema ao Oracle utilizando Windows 7 (x32/x64). Entretanto, eh necessario ter o cliente do banco de dados Oracle instalado na maquina cliente (por conta do OCI.DLL e outros), e o arquivo TNSNAMES.ORA contendo corretamente o 'atalho' ou 'apelido' do banco de dados configurado na tua aplicacao. Se nao estiver encontrando o arquivo, entao, o jeito serah re-instalar o Delphi na maquina. ***br*** Cláudio Duarte S. de Moraes ***br** Gerente de T. I. ***br*** Magazine Sapatos ***br** (82) 2121-0323 ***br** (82) 9101-7609 ***br** skype: claudio.dsm **br***br --- Em sex, 2/7/10, Murilo Cunha mcscu...@yahoo.com.br escreveu: De: Murilo Cunha mcscu...@yahoo.com.br Assunto: Re: [delphi-br] DbxOra para Win7 Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 2 de Julho de 2010, 15:52 Andreano, OK. Entendido. Entao, poderiam me informar se alguem conseguiu acesso ao Oracle com DBX em Win7?? Obrigado MuriloCunha On 02/07/2010 14:53, Andreano Lanusse wrote: Cláudio isso que você está propondo é PIRATARIA. Acesso dbx com Oracle está disponível nas versões Enterprise e Architect, se vocês tem uma versão legalizada irá encontrar os arquivos na pasta BIN e poderá fazer o deploy junto com sua aplicação, desde que tenha uma cópia legal do Delphi. []'s Andreano Lanusse Product Line Manager Lead Evangelist Latin America Embarcadero Technologies Blog: http://www.andreanolanusse.com Twitter: http://twitter.com/andreanolanusse -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Cláudio Duarte S. Moraes Sent: Friday, July 02, 2010 10:33 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] DbxOra para Win7 Ele eh especifico para cada versao do Delphi. Ele deve estar sempre na pasta /bin do teu Delphi. Qual a versao do delphi que voce ou o programa estah usando? Apos isto, posso te enviar a versao via pvt. Tenho a versao do Delphi 2010 no momento, mas tenho outras versoes em backup. ***br*** Cláudio Duarte S. de Moraes ***br** Gerente de T. I. ***br*** Magazine Sapatos ***br** (82) 2121-0323 ***br** (82) 9101-7609 ***br** skype: claudio.dsm **br***br --- Em sex, 2/7/10, Murilo Cunhamcscu...@yahoo.com.br escreveu: De: Murilo Cunhamcscu...@yahoo.com.br Assunto: [delphi-br] DbxOra para Win7 Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 2 de Julho de 2010, 10:30 Pessoal, Estou procurando o arquivo DBXORA.DLL para Windows7, alguem poderia me passar? Ou indicar onde posso baixar. Obrigado, MuriloCunha -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] DbxOra para Win7
E para quem usa a versão professional do Delphi e precisa de qualquer forma acessar Oracle, existe o ODAC http://www.devart.com/odac/ Uma solução da Devart que acessa diretamente o Oracle sem precisar nem do Client instalado. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 2 de julho de 2010 17:14, Cláudio Duarte S. Moraes claudio...@yahoo.comescreveu: Corretissimo, escapou na ansia de tentar ajudar, imaginando alguma perda do outro lado e nem considerando a versao do sistema delphi do nosso colega. Entao, continuando: tendo a versao correta com suporte aa DLL, o sistema gerado terah acesso sem problema ao Oracle utilizando Windows 7 (x32/x64). Entretanto, eh necessario ter o cliente do banco de dados Oracle instalado na maquina cliente (por conta do OCI.DLL e outros), e o arquivo TNSNAMES.ORA contendo corretamente o 'atalho' ou 'apelido' do banco de dados configurado na tua aplicacao. Se nao estiver encontrando o arquivo, entao, o jeito serah re-instalar o Delphi na maquina. ***br*** Cláudio Duarte S. de Moraes ***br** Gerente de T. I. ***br*** Magazine Sapatos ***br**(82) 2121-0323***br**(82) 9101-7609 ***br** skype: claudio.dsm **br***br --- Em sex, 2/7/10, Murilo Cunha mcscu...@yahoo.com.brmcscunha%40yahoo.com.br escreveu: De: Murilo Cunha mcscu...@yahoo.com.br mcscunha%40yahoo.com.br Assunto: Re: [delphi-br] DbxOra para Win7 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 2 de Julho de 2010, 15:52 Andreano, OK. Entendido. Entao, poderiam me informar se alguem conseguiu acesso ao Oracle com DBX em Win7?? Obrigado MuriloCunha On 02/07/2010 14:53, Andreano Lanusse wrote: Cláudio isso que você está propondo é PIRATARIA. Acesso dbx com Oracle está disponível nas versões Enterprise e Architect, se vocês tem uma versão legalizada irá encontrar os arquivos na pasta BIN e poderá fazer o deploy junto com sua aplicação, desde que tenha uma cópia legal do Delphi. []'s Andreano Lanusse Product Line Manager Lead Evangelist Latin America Embarcadero Technologies Blog: http://www.andreanolanusse.com Twitter: http://twitter.com/andreanolanusse -Original Message- From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Cláudio Duarte S. Moraes Sent: Friday, July 02, 2010 10:33 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] DbxOra para Win7 Ele eh especifico para cada versao do Delphi. Ele deve estar sempre na pasta /bin do teu Delphi. Qual a versao do delphi que voce ou o programa estah usando? Apos isto, posso te enviar a versao via pvt. Tenho a versao do Delphi 2010 no momento, mas tenho outras versoes em backup. ***br*** Cláudio Duarte S. de Moraes ***br** Gerente de T. I. ***br*** Magazine Sapatos ***br**(82) 2121-0323***br** (82) 9101-7609***br** skype: claudio.dsm **br***br --- Em sex, 2/7/10, Murilo Cunhamcscu...@yahoo.com.brmcscunha%40yahoo.com.br escreveu: De: Murilo Cunhamcscu...@yahoo.com.br mcscunha%40yahoo.com.br Assunto: [delphi-br] DbxOra para Win7 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 2 de Julho de 2010, 10:30 Pessoal, Estou procurando o arquivo DBXORA.DLL para Windows7, alguem poderia me passar? Ou indicar onde posso baixar. Obrigado, MuriloCunha -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz
Re: [delphi-br] DbxOra para Win7
E caso precise acessar mais bancos, tem o Unidac.. http://www.devart.com/unidac/ Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 3 de julho de 2010 20:07, Eduardo Silva dos Santos eduardo@gmail.com escreveu: E para quem usa a versão professional do Delphi e precisa de qualquer forma acessar Oracle, existe o ODAC http://www.devart.com/odac/ Uma solução da Devart que acessa diretamente o Oracle sem precisar nem do Client instalado. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 2 de julho de 2010 17:14, Cláudio Duarte S. Moraes claudio...@yahoo.com escreveu: Corretissimo, escapou na ansia de tentar ajudar, imaginando alguma perda do outro lado e nem considerando a versao do sistema delphi do nosso colega. Entao, continuando: tendo a versao correta com suporte aa DLL, o sistema gerado terah acesso sem problema ao Oracle utilizando Windows 7 (x32/x64). Entretanto, eh necessario ter o cliente do banco de dados Oracle instalado na maquina cliente (por conta do OCI.DLL e outros), e o arquivo TNSNAMES.ORA contendo corretamente o 'atalho' ou 'apelido' do banco de dados configurado na tua aplicacao. Se nao estiver encontrando o arquivo, entao, o jeito serah re-instalar o Delphi na maquina. ***br*** Cláudio Duarte S. de Moraes ***br** Gerente de T. I. ***br*** Magazine Sapatos ***br**(82) 2121-0323***br**(82) 9101-7609 ***br** skype: claudio.dsm **br***br --- Em sex, 2/7/10, Murilo Cunha mcscu...@yahoo.com.brmcscunha%40yahoo.com.br escreveu: De: Murilo Cunha mcscu...@yahoo.com.br mcscunha%40yahoo.com.br Assunto: Re: [delphi-br] DbxOra para Win7 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 2 de Julho de 2010, 15:52 Andreano, OK. Entendido. Entao, poderiam me informar se alguem conseguiu acesso ao Oracle com DBX em Win7?? Obrigado MuriloCunha On 02/07/2010 14:53, Andreano Lanusse wrote: Cláudio isso que você está propondo é PIRATARIA. Acesso dbx com Oracle está disponível nas versões Enterprise e Architect, se vocês tem uma versão legalizada irá encontrar os arquivos na pasta BIN e poderá fazer o deploy junto com sua aplicação, desde que tenha uma cópia legal do Delphi. []'s Andreano Lanusse Product Line Manager Lead Evangelist Latin America Embarcadero Technologies Blog: http://www.andreanolanusse.com Twitter: http://twitter.com/andreanolanusse -Original Message- From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Cláudio Duarte S. Moraes Sent: Friday, July 02, 2010 10:33 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] DbxOra para Win7 Ele eh especifico para cada versao do Delphi. Ele deve estar sempre na pasta /bin do teu Delphi. Qual a versao do delphi que voce ou o programa estah usando? Apos isto, posso te enviar a versao via pvt. Tenho a versao do Delphi 2010 no momento, mas tenho outras versoes em backup. ***br*** Cláudio Duarte S. de Moraes ***br** Gerente de T. I. ***br*** Magazine Sapatos ***br**(82) 2121-0323***br** (82) 9101-7609***br** skype: claudio.dsm **br***br --- Em sex, 2/7/10, Murilo Cunhamcscu...@yahoo.com.brmcscunha%40yahoo.com.br escreveu: De: Murilo Cunhamcscu...@yahoo.com.br mcscunha%40yahoo.com.br Assunto: [delphi-br] DbxOra para Win7 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 2 de Julho de 2010, 10:30 Pessoal, Estou procurando o arquivo DBXORA.DLL para Windows7, alguem poderia me passar? Ou indicar onde posso baixar. Obrigado, MuriloCunha -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER
[delphi-br] Valor Ponto de Função Delphi
Olá Colegas, Alguém sabe me informar o valor do ponto de função para programação delphi!? Ou algum site que possua esta referência!? Estou precisando para finalizar a proposta tecnológica do meu tcc Desde já, obrigada. Atenciosamente, Elaine Cristina Programadora Delphi / Webmaster Cel: (027) 8184-2656 www.crystaldesenvolvimento.com.br P Antes de imprimir, veja se realmente é necessário e pense em seu compromisso com o meio ambiente. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dados não atualizados no MySQL
Solucionado, de fato faltava a instrução commit na posição correta.
grato,
Levy
From: Eduardo Silva dos Santos eduardo@gmail.com
To: delphi-br@yahoogrupos.com.br
Sent: Sat, July 3, 2010 1:09:37 AM
Subject: Re: [delphi-br] Dados não atualizados no MySQL
Eu não sei qual suite de componentes você ta usando para conexão, mais creio
que ta faltando dar um commit ao final do processo.
Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...
Em 2 de julho de 2010 17:38, Levy levypere...@yahoo.com escreveu:
Prezados amigos,
tenho algumas tabelas que quando faço inserção ou atualização funcionam
normalmente, contudo depois de encerrar o aplicativo e voltar a ele os dados
estão inalterados no servidor.
o código está aqui só para quem sabe ver se não tem nenhuma orelha nele.
Nota: a aplicação acessa uma base de dados num servidor externo, quando
está local funciona normalmente. Acessando a base no servidor com o
Workbench também funciona normalmente.
Valeu!
-
bd.conexao.StartTransaction;
Bd.QueryDosFornecedores.Close;
bd.QueryDosFornecedores.SQL.Clear;
try
if existefornecedor.Caption = 'N' Then
Begin
Bd.QueryDosFornecedores.SQL.Add(
'insert into fornecedores ( cnpj, razaosocial, telefone, contato,'+
'email ) values ( '+A01+','+A02+','+A03+','+A04+','+A05+')');
Bd.QueryDosFornecedores.ExecSQL;
Bd.QueryDosFornecedores.SQL.Clear;
bd.fornecedores.CommitUpdates;
Bd.Fornecedores.Refresh;
MessageBox( Handle, 'Fornecedor adicionado com sucesso', 'Informação', 64
);
passou := True;
end
Else
Begin
bd.fornecedores.Locate( 'cnpj', e_cnpj.Text, [] );
if ( trim ( e_cnpj.Text ) trim( bd.fornecedorescnpj.Text ) ) or
( trim ( e_razaosocial.Text ) trim( bd.fornecedoresrazaosocial.Text ) )
or
( trim ( e_contato.Text ) trim( bd.fornecedorescontato.Text ) ) or
( trim ( e_telefone.Text ) trim( bd.fornecedorestelefone.Text ) ) or
( trim ( e_email.Text ) trim( bd.fornecedoresemail.Text ) ) then
begin
Bd.QueryDosFornecedores.SQL.Add(
'Update fornecedores set cnpj = '+A01+', razaosocial = '+A02+
', telefone = '+A03+', contato = '+A04+', email = '+A05+' Where Cnpj =
'+A01);
Bd.QueryDosFornecedores.ExecSQL;
Bd.QueryDosFornecedores.SQL.Clear;
bd.fornecedores.CommitUpdates;
bd.fornecedores.Refresh;
MessageBox( Handle, 'Fornecedor alterado com sucesso', 'Informação', 64 );
end;
passou := True;
bd.QueryDosFornecedores.Close;
End;
except
on E: Exception do
begin
MessageBox(Handle,PChar('Ocorreu um erro ao tentar gravar os dados.'#13+
'Informe o erro:'#13+
E.Message),'ERRO',16);
End;
-
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
