Jump to content
Fórum Script Brasil

aprediz12

Membros
  • Posts

    18
  • Joined

  • Last visited

Everything posted by aprediz12

  1. erra isso mesmo meu chapa, valeu!!!!
  2. Valeu Jhonas era isso mesmo que tava precisando.
  3. 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??
  4. aprediz12

    MySQLDump

    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
  5. 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.
  6. Pra salvar você tem que usar o comando post, no seu caso: ADOQuery1.post; close e clear é pra limpar mesmo
  7. 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!!!!
  8. 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...
  9. 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!
  10. 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.....
  11. Olá Jhonas valeu pela atenção, só que não funcionou... não deu erro, mas tambem não gerou o arquivo. obrigado.
  12. 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;
  13. 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...
  14. 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!
  15. fiz isso e nada, inclusive o atalho sai com o icone errado e o da outra pasta que é uma copia saiu certinho, doidera.... :lol:
  16. 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.
  17. 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.
  18. 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.
×
×
  • Create New...