Eugenio Gomes

Ola pessoal, Gostaria se me podem ajudar na proteçao de um programa A MINHA PRETENÇAO E A SEGUINTE: Lincenciar o Programa para um determinada empresa c/o respectivo Nome, Morada, Contribuinte,Etc... onde constaria a data de expiraçao do programa se o Cliente não pagar a AVENÇA de (por exemplo 3 Meses) o programa deixaria de funcionar... Nota: a AVENÇA e um contrato de Assistencia.... Abraço

1ª.TABELA loginbase.IBClientDataSet1.Close; loginbase.IBClientDataSet1.CommandText:='select * from prf_profissao order by prf_profissao'; loginbase.IBClientDataSet1.Active:=true; diver := Tdiver.Create(diver); // diver.Caption := 'Profissões'; diver.DBGrid1.Columns.Add; diver.DBGrid1.Columns.Items[0].FieldName:= 'prf_profissao'; diver.DBGrid1.Columns.Items[0].Title.caption :='Profissão'; // diver.ShowModal; Não e necessario ClientDataSet1.SaveToFile('c:\teste.xml'); ----------------------------------------------- Ate aqui tudo correcto ----------------------------------------------- 2ª.TABELA loginbase.IBClientDataSet1.Close; loginbase.IBClientDataSet1.CommandText:='select * from tit_titulo order by tit_titulo'; loginbase.IBClientDataSet1.Active:=true; diver := Tdiver.Create(diver); diver.Caption := 'Titulos'; diver.DBGrid1.Columns.Add; diver.DBGrid1.Columns.Items[0].FieldName:= 'tit_titulo'; diver.DBGrid1.Columns.Items[0].Title.caption :='Titulo'; // diver.ShowModal; Aqui esta o problema se eu escrever a seuinte linha de codigo, ClientDataSet1.SaveToFile('c:\teste.xml'); vou eliminar o conteudo ta 1ª.TABELA. Ora o que necessito e de fazer um APPENDTOFILE? para obter o conteudo da duas tabelas. Se porventura existir uma solução agradeço. Em Abraço Eugenio Gomes.

Esta a linha de codigo que me faltava ClientDataSet1.SaveToFile('c:\teste.xml'); Obrigado e um abraço, quando tiver mais duvidas voltarei a contacto-lo......

ola penso que não me soube explicar correctamente sobre este problema, o qual ainda não consegui resolver. portanto vou de novo colocar a questão de uma forma mais explicita. a base de dados e em INTERBASEcom tabelas perfeitamente construidas, e o que pretendo e o seguinte: Extrapular os dados de n tabelas para um ficheiro XML que tera de ser gravado em disco, porque aqui em Portugal as Finanças Portuguesas exigem uma copia mensal gravada em CD dos dados que estão nas tabelas a semelhança do que consigo fazer atres do INTERBASE 7 que tem uma opção Export Data. OBS: Favor não ficar duplicando tópicos que reportem o mesmo assunto ... se as dúvidas são referentes ao mesmo assunto, continue usando o mesmo tópico .... obrigado

Boa tarde, (estou a falar de Portugal) já tenho as tabelas na base de dados (Interbase) já consigo abrir um ClientDataset com a informaçao constante na tabela. Pergunta: Como consigo gravar o seu conteudo em formato XML para um ficheiro em disco? , se me pudesse fornecer um exemplo elucidativo, agradecia. Um abraço.

como posso construir um ficheiro XML com varias tabelas? obrigado