Pesquisar na Comunidade
Mostrando resultados para as tags ''clientdataset''.
Encontrado 3 registros
-
Problema com campo Lookup entre ClientDataSet e ADODataSet
uma questão postou danielrgoes Delphi, Kylix
Boa tarde! Tenho um banco de dados Firebird e um banco de dados Progress 11.7 que precisam ser acessados por um mesmo programa. Consegui fazer as conexões corretamente e ambos os bancos são acessados. Porém, preciso criar um campo Lookup no meu ClientDataSet buscando dados do meu ADODataSet e isto está me causando problemas. Por exemplo: Tenho a tabela COMPUTADOR no meu banco Firebird que contém a chave estrangeira COD_FUNCIONARIO e tenho a tabela FUNCIONARIO no meu banco Progress 11.7 que contém a chave primária COD_FUNCIONARIO e o campo NOME. Preciso criar um campo Lookup com o NOME do funcionário no ClientDataSet da tabela COMPUTADOR. Porém, o que acontece é que em alguns registros o nome é mostrado corretamente no campo Lookup, mas em outros registros não mostra. Acredito que seja algum tipo de incompatibilidade entre os componentes ADO e CDS. Alguém já viu isso acontecer? Pode me ajudar, por favor? Obrigado. -
Gostaria de saber se consigo salvar direto em xml iso-8859-1 com um clientdataset, ou converter de UTF-8? Com o código abaixo salvo em UTF-8 normal mas queria salvar no outro formato citado, sou iniciante e estou fazendo um trabalho para a faculdade, desde já agradeço, muito obrigado. if not (DmDados.SpExportaVenda.IsEmpty) then begin DmDados.SpExportaVenda.First; DmDados.CDSVenda.Open; while not DmDados.SpExportaVenda.Eof do begin DmDados.CDSVenda.Insert; DmDados.CDSVendaCodigoProduto.AsInteger := DmDados.SpExportaVendaid_Produto.AsInteger; DmDados.CDSVendaCodigoVenda.AsInteger := DmDados.SpExportaVendaid_Venda.AsInteger; DmDados.CDSVendaDescricao.AsString := DmDados.SpExportaVendaDs_Produto.AsString; DmDados.CDSVendaApresentacao.AsString := DmDados.SpExportaVendaDs_Apresentacao.AsString; DmDados.CDSVendaGrupo.AsString := DmDados.SpExportaVendaDs_Grupo.AsString; DmDados.CDSVendaQuantidade.AsInteger := DmDados.SpExportaVendaNr_QTD.AsInteger; DmDados.CDSVendaLote.AsString := DmDados.SpExportaVendaDs_Lote.AsString; DmDados.CDSVendaEmissor.AsString := DmDados.SpExportaVendaEmissor.AsString; DmDados.CDSVenda.Post; DmDados.SpExportaVenda.Next; end; DmDados.CDSVenda.SaveToFile( 'C:\sgf\XML\vendacontrolados.xml', dfXMLUTF8); DmDados.CDSVenda.EmptyDataSet; DmDados.CDSVenda.Close;
- 8 respostas
-
Estou utilizando um relacionamento Master-Detail de Vendas (Master) com Serviços e Pagamentos (tabelas Details), utilizo o TClientDataSet configurado para o commandType = ctQuery, tenho aproximadamente 20K de Vendas, sendo que cada Venda tem vários produtos e pagamentos. Trabalho da seguinte forma: Eu tenho Querys prontas parametrizadas e apenas utilizo elas quando necessário, ex: clientDataSet.close; clientDataSet.commandText := FIND_BY_COD_VENDA; clientDataSet.Params.paramByName('cod_venda').AsInteger := 134; clientDataSet.open; Ocorre que como estou trabalhando com Master-Detail, além de carregar os dados da VEnda, ele carrega os dados dos Serviços e Pagamentos, deixando a consulta um pouco mais lenta do que eu esperava. Gostaria de saber se tem como dizer de alguma forma: "Não carregue os details, apenas quando eu for editar um registro eu carrego os details".
- 1 resposta
-
- delphi
- clientdataset
-
(e %d mais)
Tags: