aprediz12

erra isso mesmo meu chapa, valeu!!!!

Valeu Jhonas era isso mesmo que tava precisando.

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: 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: entenderam??

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

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.

Pra salvar você tem que usar o comando post, no seu caso: ADOQuery1.post; close e clear é pra limpar mesmo

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!!!!

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...

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!

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.....

Olá Jhonas valeu pela atenção, só que não funcionou... não deu erro, mas tambem não gerou o arquivo. obrigado.

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;

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...

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!

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