Ao dar um CdsProdutos.Open; jogar cadastros num txt. Como?

Question

Ol�!Como que eu poderia fazer esta rotina? Abrir um projeto para terminal de consulta de um mercado, s� que os dados todos v�o para um TXT. Ao adicionar um Novo, vai para o txt. S� que esses produtos ...

Vitor Alcantara · Answer

Amigo usa faz um la�o em sua tabela de um modo que pecorrar do primeiro a �ltimo registro e grave em um arquivo de texto utilizando WriteLn.

Aqui segue um pequeno exemplo.

var
  f:textfile;
begin
  AssignFile(f,�c:\ nome do seu arquivo de texto.txt�);//Indica o arquivo que ir� ser gravado
  Rewrite(f);//Indica que o arquivo ser� criado ou reescrito (caso j� exista)
  
  //Aqui voc� coloca o seu la�o
  SeusDados.First;
  While not SeusDados.eof do
  Begin
    Write(f, SeusDados.FieldByName(�Codigo�).AsString + �|�);//Escreve e continua na mesma linha
    Write(f, SeusDados.FieldByName(�Nome�).AsSTring + �|�);//Escreve e continua na mesma linha
    WriteLn(f,SeusDados.FieldByName(�Preco�).asString +�|�);//Esecreve e salta para a pr�xima linha
    SeusDados.Next;   
  end;
  CloseFile(f);//Esvazia o buffer e joga no arquivo de texto
end;

Lucas_spohr · Answer

e a� cara!Desculpa a demora para responder, mas muito obrigado! Era exatamente isso que eu precisava! Fiz este teste, fazendo conex�o normalmente com o banco, indo no datamodule, configurando manualmente as propriedades do sqlconnection, etc... Agora, vou ter que fazer de uma maneira diferente: Fazer a conex�o com o banco, via-c�digo, utilizando arquivo INI onde, no cliente em que estar� este sistema, eu abro o caminho.ini e altero a linha onde estar� o IP + caminho do banco...como que eu poderia fazer isto?Desde j�, agrade�o...Muito obrigado!!...

Vitor Alcantara · Answer

Olha a utiliza��o de arquivos ini � muito f�cil, utilizando-se da unit IniFiles.

Declare a unit IniFiles na uses do seu form.

o exemplo abaixo pega o valor e joga em uma v�riavel qualquer.
exemplo do arquivo teste.ini

[SERVIDOR]
IP=192.168.0.1:c:\MeuBanco.GDB

Voc� poderia fazer assim pra ler tal arquivo.

Var
  ini:tInifile;//Declara aqui a v�riavel onde ser� trabalhado o arquivo ini
  SERVIDOR:STring;
begin
  ini := tInifile.Create(�c:\teste.ini�);//Inicializa o objeto e indica qual arquivo ser� trabalhado com o mesmo.
  //Pega o valor de ip e grava na variavel servidor
  SERVIDOR := ini.ReadString(�SERVIDOR�,�IP�,��);
  
  //Passa a variavel para os parametro DataBase do SqlConnection
  DataModule.SqlConnection.Close;
  DataModule.SqlConnection.Params.Values[�Database�] := SERVIDOR;
  DataModule.SqlConnection.Open;
end;

No comando ini.ReadString voc� tem que informar trez valores.
1� a sess�o onde se encontra a propriedade no arquivo ini (SERVIDOR)
2� a propriedade no qual voc� quer obter o valor (IP)
3� um valor padr�o para ser atribuido caso n�o exista tal propriedade no arquivo ini (��)

PS. Para gravar em arquivos ini � parecido s� que em vez de ReadString utiliza-se WriteString.

Lucas_spohr · Answer

hmm... vou fazer os testes...mas eu coloco no meu frmPrincipal ou no meu DataModule, este c�digo?...

Vitor Alcantara · Answer

Eu recomendaria colocar no OnCreate do DataModule, mais temb�m funcion�ria no formPrincipal tamb�m....

Lucas_spohr · Answer

estou fazendo no oncreate do datamodule... Est� assim o OnCreate:

var
f:textfile;
ini: TIniFile;
Servidor : String;
begin
ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+(�caminho2.ini�));
Servidor := ini.ReadString(�SERVIDOR�,�IP�,��);
Dados.SdsProdutos.Close;
Dados.SdsProdutos.Params.Values[�Database�] := Servidor;
Dados.SdsProdutos.Open;

CdsProdutos.Open;
AssignFile(f,ExtractFilePath(ParamStr(0)) + �pricetab.txt�);//Indica o arquivo que ir� ser gravado
Rewrite(f);//Indica que o arquivo ser� criado ou reescrito (caso j� exista)
//Aqui voc� coloca o seu la�o
CdsProdutos.First;
While not CdsProdutos.eof do
Begin
Write(f, CdsProdutos.FieldByName(�Barra�).AsString + �|�);//Escreve e continua na mesma linha
Write(f, CdsProdutos.FieldByName(�Descricao�).AsString + �|�);//Escreve e continua na mesma linha
WriteLn(f,CdsProdutos.FieldByName(�Preco�).AsString +�|�);//Escreve e salta para a pr�xima linha
CdsProdutos.Next;
end;
CloseFile(f);//Esvazia o buffer e joga no arquivo de texto
end;

Na linha Dados.SdsProdutos.Params.Values[�Database�] := Servidor;

informa que Values n�o est� declarado...

Lucas_spohr · Answer

UP...

Vitor Alcantara · Answer

Qual seu banco e os componentes de conex�o e Banco de dados?...

Lucas_spohr · Answer

opa, perd�o... deu certo!eu estive usando o SdsProdutos (SQLDataSet) ao inv�s de usar o Banco (SQLConnection), heheMuito obrigado!Qualquer coisa, posto a�......

Lucas_spohr · Answer

Atualizar banco + TXT, ao clicar no bot�o Atualizar:

Ae pessoal! Agora, preciso do seguinte:

Para funcionar o terminal de consultas, em uma certa m�quina o programinha dever� ficar sempre aberto. Os pre�os dos produtos, s�o atualizados pelo ERP. Digamos que, para teste, eu queira atualizar um pre�o pelo IBExpert. Altero, ENTER, Commit. Produto alterado. Como o programinha do terminal ficar� sempre aberto, automaticamente, o pre�o do produto no projeto do terminal, n�o se atualizar� automaticamente, sem que algu�m clique num bot�o, para Atualizar.

Qual a rotina que eu poderia colocar no bot�o, para atualizar?

Sendo que no OnCreate do meu DataModule, est� os c�digos postados acima:

CdsProdutos.Open;
AssignFile(f,ExtractFilePath(ParamStr(0)) + �pricetab.txt�);//Indica o arquivo que ir� ser gravado
Rewrite(f);//Indica que o arquivo ser� criado ou reescrito (caso j� exista)
//Aqui voc� coloca o seu la�o
CdsProdutos.First;
While not CdsProdutos.eof do
Begin
Write(f, CdsProdutos.FieldByName(�Barra�).AsString + �|�);//Escreve e continua na mesma linha
Write(f, CdsProdutos.FieldByName(�Descricao�).AsString + �|�);//Escreve e continua na mesma linha
WriteLn(f,CdsProdutos.FieldByName(�Preco�).AsString +�|�);//Escreve e salta para a pr�xima linha
CdsProdutos.Next;
end;
CloseFile(f);//Esvazia o buffer e joga no arquivo de texto

e no bot�o atualizar? Seria, no caso... Atualizar o banco, e reescrever no TXT, os produtos novamente...

Obrigado!

Lucas_spohr · Answer

sobe...

Lucas_spohr · Answer

sobe!!...

Lvenanciol · Answer

Senhores boa tarde,Aproveitei a orienta��o do V�tor para apontar o banco informado no arquivo e ini e deu certo. O meu problema agora � que ao executar o banco localmente ele funciona 100�, quando aponto o config para o meu servidor ele informa a seguinte mensagem: �Database server error: unsupported on-disk structure for file c:banco.gdb; found 11, support 10�. J� havia lido que poderia ser algo como vers�o diferente do banco, mas n�o �.Alguma dica ?Grato,LeonardoVit�ria/ES...

F�rum Ao dar um CdsProdutos.Open; jogar cadastros num txt. Como? #348892