aprediz12

Outubro 5, 2011

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
   arquivo : TStringList;
begin
   arquivo := TStringList.Create;

   try
      //Carregar o arquivo
      arquivo.LoadFromFile('c:\backup.txt');

      //Adicionar dados no arquivo
      arquivo.insert(0,'##LANÇADO');

      //Salvar o arquivo
      arquivo.SaveToFile('c:\backup.txt');
   finally
      arquivo.Free;
   end;
end;

abraço

erra isso mesmo meu chapa,

valeu!!!!

Setembro 30, 2011

Valeu Jhonas era isso mesmo que tava precisando.

Setembro 30, 2011

vê se alguém pode me ajudar nisso:

meu programa gera um arquivo texto (backup.txt), e gostaria de abrir ele novamente (depois de criado) e inserir uma informação na primeira linha.

por exemplo:

o arquivo é gerado dessa forma:

INSERT INTO tt_coleta_detalhe (coleta_id,cdpredio,cdsala,cdresponsavel,obs,dtcoleta,novasala,geral_id,usuario) VALUES ("1","35","1128","9725",Null,"27/09/2011",Null,Null,"TESTE00")
INSERT INTO tt_coleta_detalhe (coleta_id,cdpredio,cdsala,cdresponsavel,obs,dtcoleta,novasala,geral_id,usuario) VALUES ("2","183",Null,"1834",Null,"27/09/2011","SALA DE TESTE",Null,"TESTE00")
INSERT INTO tt_coleta_detalhe (coleta_id,cdpredio,cdsala,cdresponsavel,obs,dtcoleta,novasala,geral_id,usuario) VALUES ("3","17","191","1511",Null,"27/09/2011",Null,Null,"TESTE00")

isso já ta fazendo..

ae queria abrir esse arquivo backup.txt e editar ele via código inserindo uma informação na primeira linha, ficando assim:

##LANÇADO
INSERT INTO tt_coleta_detalhe (coleta_id,cdpredio,cdsala,cdresponsavel,obs,dtcoleta,novasala,geral_id,usuario) VALUES ("1","35","1128","9725",Null,"27/09/2011",Null,Null,"TESTE00")
INSERT INTO tt_coleta_detalhe (coleta_id,cdpredio,cdsala,cdresponsavel,obs,dtcoleta,novasala,geral_id,usuario) VALUES ("2","183",Null,"1834",Null,"27/09/2011","SALA DE TESTE",Null,"TESTE00")
INSERT INTO tt_coleta_detalhe (coleta_id,cdpredio,cdsala,cdresponsavel,obs,dtcoleta,novasala,geral_id,usuario) VALUES ("3","17","191","1511",Null,"27/09/2011",Null,Null,"TESTE00")

entenderam??

Setembro 29, 2011

Pessoal,

é posivel criar um dump do banco somente com os insert das tabelas, na verdade de duas tabelas somente,

eu já utilizo o dump que carrega somente duas tabelas do banco, só que eu queria que vinhesse somente os insert dos dados, sem o create e aquele monte de comentarios.

Valeu

Setembro 29, 2011

Uhmm... Ok, mas o problema na verdade está na hora da Query... No FormCreate eu dou a seguinte query:
ADOQuery1.SQL.Add('select Nome, CPF, Endereço from Clientes');
Assim ele preenche a DBGrid, aí na hora de salvar os dados eu to fazendo assim:
ADOQuery1.SQL.Add('insert into Clientes(Endereço) VALUES (:a)');
ADOQuery1.Parameters.ParamByName('a').Value:= DBEdit1.Text;
Só que pra isso eu preciso dar um .clear, pra fazer a nova query... Como que eu vou ficar trabalhando com novas queries e deixando as antigas lá??

você não precisa fazer isso basta usar o select, e usar o adoquery1.post pra salvar o registro,

o insert vai inserir um novo registro e pelo que eu entendi você quer alterar um registro que ta na tela.

Setembro 29, 2011

Pra salvar você tem que usar o comando post,

no seu caso: ADOQuery1.post;

close e clear é pra limpar mesmo

Setembro 29, 2011

Olá

tenho um script que na verdade é um arquivo.sql, que é um backup de duas tabelas de um banco do MySQL, na qual faço utilizando o MySQLDump, e queria saber se tem como rodar esse script via comando do Delphi, pra atualizar o banco.

tipo assim: execulto o mysqldump que gera um arquivo c:\Teste\Bakup01.sql (isso já faço, tudo ok)

depois pelo delphi eu execulto esse arquivo c:\Teste\Bakup01.sql, pra atualizar outro banco.

no momento to utilizando o Zeos, mas nada que impede de usar outro componente.

alguém sabe como fazer isso?

Valeu!!!!

Setembro 2, 2011

valeu Samara,

deu certo so que da seguinte forma: o AddChild em vez de Add.

NodeGrupo := TreeView.Items.AddChild(nil, 'Item do tipo Grupo');

NodeFilho := TreeView.Items.AddChild(NodeGrupo, 'Item do tipo SubGrupo');

agora me diz uma coisa,

como eu faço pra jogar no label1 e label2, o grupo e o subgrupo que ta selecionado.

por exemplo, se eu clicar somente no grupo, não faz nada, e se eu clicar no subgrupo, ae joga no label1 o valor do grupo e label =2 o valor do subgrupo,

é possível isso?

valeu...

Setembro 1, 2011

Pessoal como faço pra adicionar itens e subitens em um Treeview, sendo dados de duas tabelas da seguinte forma:

é um cadastro de produtos, que tem as tabelas de Grupo e Subgrupo

então o ITEM do treeview seria o Grupo e o SUBITEM seria o Subgrupo

estrutura das tabelas:

GRUPO

cdgrupo | degrupo
    1   | Cama Box
    2   | Estofados
    3   | Colchão

SUBGRUPO

cdgrupo | cdsubgupo| desubgrupo
    1   |     1    | Cama Box 1.38
    1   |     2    | Cama Box 1.58
    1   |     3    | Cama Box 1.98
    2   |     4    | Sofá 2 e 3 lugares
    2   |     5    | Sofá 5 lugares
    3   |     6    | Colchão casal D23
    3   |     7    | Colchão casal D33
    3   |     8    | Colchão solteiro D23

ae o treeview ficaria assim:

»1-Cama Box
   »1-Cama Box 1.38
   »2-Cama Box 1.58
   »3-Cama Box 1.98
»2-Estofados
   »4-Sofá 2 e 3 lugares
   »5-Sofá 5 lugares
»3-Colchão
   »6-Colchão casal D23
   »7-Colchão casal D33
   »8-Colchão solteiro D23

seria tipo o programa do imposto de rende. que tem algo desse tipo. no caso teria os selects: SELECT * FROM GRUPO na qryGrupo e SELECT * FROM SUBGRUPO NA qrySubgrupo o DataSource do qrysubgrupo estaria ligado ao DataSource da qryGrupo no caso seria algo assim:

begin
   qryGrupo.Close;
   qryGrupo.Open;
   while not qryGrupo.Eof do begin
        //aqui adicionada os items
       qrySubgrupo.Close;
       qrySubgrupo.Open;
       while not qrySubgrupo.Eof do begin
          //aqui adicionada os sub-items dentro de cada item
          qrySubgrupo.Next;
       end;
       qryGrupo.Next;
   end;
end;

bom.... a minha ideia era essa mas não consegui nada, num sei se to viajando na forma de fazer

valeu!

Agosto 11, 2011

resolvi dessa forma:

var origem, destino : string;
begin
  WinExec('cmd /c mysqldump -u root -p --password=minhasenha -c -e --databases dados > C:\dir_qualquer\bkp001.sql',SW_HIDE);
  origem := 'C:\dir_qualquer\bkp0001.sql';
  if SaveDialog1.execute then begin
     destino := SaveDialog1.FileName;
     MoveFile(PChar(origem),PChar(destino));
  end else DeleteFile('C:\dir_qualquer\bkp001.sql');

o arquivo é gerado numa pasta que eu defini no caso (C:\dir_qualquer\)

ae o arquivo é movida pra onde quizer atravez do SaveDialog.

Valeu.....

Agosto 11, 2011

o correto é :

procedure TForm1.Button1Click(Sender: TObject);
var vFile : PAnsiChar; s : string;
begin
  if SaveDialog1.execute then begin
     S := 'C:\Arquivos de programas\MySQL\MySQL Server 5.1\bin'; // caminho para o MYSQL ( pasta bin )
     ChDir(s);
     vFile := PAnsiChar('cmd /c mysqldump -u root -p --password=minhasenha -c -e --databases dados >'+PAnsiChar(SaveDialog1.Filename));
     WinExec(vFile ,SW_HIDE);
  end;
end;

OBS: se voce não colocar o caminho para o executavel ( mysqldump.exe ) não funciona

abraço

Olá Jhonas valeu pela atenção, só que não funcionou...

não deu erro, mas tambem não gerou o arquivo.

obrigado.

Agosto 10, 2011

outra coisa que não deu certo,

quero usar um TSaveDialog pra salvar esse arquivo de backup, e to usando um parametro mas ta dando erro

var vFile : string;
begin
  if SaveDialog1.execute then begin
     vFile := OpenDialog1.Filename;
     WinExec('cmd /c mysqldump -u root -p --password=minhasenha -c -e --databases dados >'+vFile ,SW_HIDE);
  end;
end;

já tentei usar tipo: '...dados >'+pChar(vFile),SW_HIDE); tentei tambem: pAnsiChar... mas nem compila, da erro: Incopatible types: 'string' and 'PAnsiChar' tentei assim tambem, desse forma compila, executa mas não cria o arquivo:

var comando : string; // variant;
begin
  if SaveDialog1.execute then begin
     comando := 'cmd /c mysqldump -u root -p --password=minhasenha -c -e --databases dados >'+SaveDialog1.FileName;
     Winexec(PAnsiChar(comando),SW_HIDE);
  end;

Agosto 9, 2011

Deu certinho, valeu Jhonas,

mas deixa eu abusar um pouco....

sei que da pra fazer isso mas não sei como:

criar o backup zipado, pode ser qualquer extensão.

é que vou criar uma rotina pra fazer esse backup automatico num horario programado, todo dia será criado um arquivo, só que esse arquivo na extensão *.sql, tem 21 MB, e zipado (manualmente) ficou com 1.97 MB

Valeu...

Agosto 8, 2011

Oi gente, tenho o seguinte comando que eu executo direto no cmd do windows: mysqldump -u root -psenha -x -e -A > c:\Pasta1\backupTeste.sql

isso gera um backup do meu banco MySQL, só que eu queria uma forma de fazer isso via linha de comando diretamento no delphi

já tentei algumas coisas tipo usar o WinExec, mas sem sucesso.

se alguém puder da um help, ficarei muito grato.

há, eu to usando Delphi 2010 com Windows 7

Valeu!

Junho 21, 2011

experimente atualizar a pasta, clicando com o botão direito do mouse dentro da pasta e clicando em Atualizar
abraço

fiz isso e nada, inclusive o atalho sai com o icone errado e o da outra pasta que é uma copia saiu certinho, doidera.... :lol:

Junho 21, 2011

Resolvido....

de uma forma estranta, mas resolvido.

eu fiz uma copia da pasta inteira do fonte, porque eu ia fazer umas loucuras pra tentar resolver isso, então fiz essa cópia pra não bagunçar o projeto original e quando fui ver nessa nova pasta, o icone tava correto.

Detalhe: o projeto da pasta original continua errado mostrando o icone errado.

Teria explicação isso?

Obrigado.

Junho 21, 2011

se voce fez a instalação do programa via install shield, voce deve atualizar novamente a instalação via install shield, senão ficara com esse problema. Não basta trocar somente o executavel.
abraço

Obrigado por responder,

mas num to usando install shield não.

Eu compilo meu Programa, e na pasta onde fica meu fonte o exe compilado fica desse jeito, quando visualizo em modo icone médio, grande ou extra-grande mostra o icone antigo (que já foi substituido). já se visualizar em modo Detalhe, lista ou icone pequeno ai sim mostra o novo icone que coloquei.

Obrigado.

Junho 21, 2011

Bom galeta sou novo aqui no forum, e to com um probleminha bobo que ta me enchendo o saco.

no Delphi7 isso não acontecia, e agora to usando o Delphi 2010 e agora me deparei com esse probleminha.

Tenho um programa onde tinha colocado um icone tal, e o meu cliente pediu pra eu mudar o icone, ate ai tudo tranquilo, é só mudar e pronto!

mas ai é que ta o bicho, eu mudei o icone, compilei beleza, só que quando eu vou la na pasta pra ver o arquivo exe (no explorer) no modo Detalhe(Exibir>Detalhe ou Exibir>Icones Pequeno) ele mostra o icone novo que coloquei e quando eu peço pra mostar o Exibir>Icones Médio ou Grande ele mostra o icone anterior. Até mesmo o atalho no Desktop não ta mostrando o novo.

alguém já viu isso?

Uso o Delphi2010 com Windows 7 32b

já verifiquei no XP tambem aconcete a mesma coisa.

teria como retornar pro icone original do delphi?

Obrigado.

Entrar

aprediz12

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por aprediz12

(Resolvido) Editar arquivo texto

(Resolvido) Executar Script SQL via Delphi

(Resolvido) Editar arquivo texto

MySQLDump

Problema com ADOQuery

Problema com ADOQuery

(Resolvido) Executar Script SQL via Delphi

Duvidas com Treeview

Duvidas com Treeview

(Resolvido) Dump em MySQL via Programação

(Resolvido) Dump em MySQL via Programação

(Resolvido) Dump em MySQL via Programação

(Resolvido) Dump em MySQL via Programação

(Resolvido) Dump em MySQL via Programação

(Resolvido) Icone da Aplicação

(Resolvido) Icone da Aplicação

(Resolvido) Icone da Aplicação

(Resolvido) Icone da Aplicação

Navegação

Atividades