Ir para conteúdo
Fórum Script Brasil

locorj

Membros
  • Total de itens

    67
  • Registro em

  • Última visita

Tudo que locorj postou

  1. locorj

    Sql Rave Em Runtime

    uses RvDriverDataView, RvData; var tb_rel: TRaveDriverDataView; begin frmdados.impressao.Open; tb_rel := TRaveDriverDataView(frmdados.impressao.ProjMan.FindRaveComponent('tb_produto_rel',nil)); if Assigned(tb_rel) then tb_rel.Query := sql_desejada; end;
  2. você pode fazer via o componente TadoQuery manipulando a propriedade MaxRecords nela você defini quantos registros são retornados no datasource... também tem a opção CacheSize que diz quandos registros são armazenados em memória na maquina. Em solução via query direta só encontrei o predicado top com ele você pode definir quantos registros são a query retornará... ex: SELECT TOP 25 campo1, campo2 FROM tabela1 ou você pode usar em porcentagem SELECT TOP 10 PERCENT campo1, campo2 FROM tabela1 Como não sou expert em access, não sei é possível usar um outro predicado skip(firebird) para navegar por todos os registros eliminando os já vizualizados... mas pelo que procurei não tem mesmo... O ideal mesmo é fazer via compomente vai te atender perfeitamente... Espero ter ajudado
  3. Alguém sabe como eu posso mudar a sql em runtime de um TRvDirectDataView ?
  4. Eu estou querendo programar em linux e windows ao mesmo tempo... tipo o projeto mono(C#), que tem tanto em windows como em linux, tipo um freepascal junto com o lazarus (Pascal)... porem gostaria de programar em C++ alguém saberia me informar uma ide que seja tão rica quanto as que eu citei ??
  5. valeu... rolou redondinho...
  6. Estou querendo executar um aplicativo por fora... alguém sabe como ver ver os processos que estão sendo executados no windows ??? Ou um função pra checar de um determindado executavel está na lista de processos
  7. locorj

    Delphi 2006 E Zeos

    Fala ai Graymalkin, preciso de uma solução pra win32... !! infelizmente ainda não estou desenvolvendo em .net...
  8. estava usando o delphi 2005 juntamente com o zeos... por esses dias eu consegui o 2006... estou usando o mysql 5 e o delphi 2006 não acessa... fui tentar compilar o zeos... e não está compilando... consegui pegar ele já compilado com um amigo meu, mas fica dando erro em um dos compomentes do zeos... não gostaria de ir pra um compomente pago de acesso... alguém sabe como resolver esse problema do zeos com o 2006 ?? ou sabe como fazer 0 2006 acessar o mysql 5 ?? atravez do dbexpress ??
  9. locorj

    Erro - Me Ajudemmm

    Qual banco ? Qual query ?
  10. locorj

    Dúvida Firebird

    2 soluções bem simples: 1 - baixar o DBTools Manager Professional no link abaixo... configurar a conexão para o firebird, clicar com o botão direito em cima da base de dados e mandar exportar em mdb. http://www.dbtools.com.br/PT/downloads.php 2 - só rola no delphi 2005... criar um mdb vazio configurar a conexao mdb e firebird na guia data explorer, bata clicar com o botão direito e copiar e colcar as tabelas que você quer...
  11. Resolvi... quando o form é destruido e criado novamente o dsconnection não + reconece ele... coloquei em datamodule e resolvi...
  12. Será que alguém pode me dar uma ajuda nisso ??? tenho um form... assim que abro o programa e tento imprimir o reltório ele vai na boa se eu fechar o form e abrir novamente ele não imprimi mais e fica dando esse erro de access violation...
  13. consegui... basta criar + um inner join com um alias para a tabela funcionario.... e tirar o or do inner join com a tabela funcionario
  14. Estou querendo fazer um inner join mas ele não está correto... como eu faço pra ligar 2 campos de uma table e juntar com um campo de outra ?? estou fazendo assim mas não liga corretamente apesar de retornar uma resposta... o que está acontecendo é que ele ligar o venda.idfuncinarioi corretamente e repete o nome no venda.idfuncionariov.... select venda.cadastro_venda, venda.data_venda, venda.cancelada, cliente_fisico.nome as cliente, funcionario.nome as vendedor, funcionario.nome as instalador from venda inner join funcionario on (venda.idfuncionariov = funcionario.cadastro_funcionario or venda.idfuncinarioi = funcionario.cadastro_funcionario) inner join cliente_fisico on (venda.idcliente = cliente_fisico.clientefisico_cadastro) where venda.tipodecliente in ('Fisico') and venda.cadastro_venda = 70 group by venda.cadastro_venda union select venda.cadastro_venda, venda.data_venda, venda.cancelada, cliente_juridico.fantasia, funcionario.nome, funcionario.nome from venda inner join funcionario using venda.idfuncionariov,venda.idfuncinarioi, funcionario.cadastro_funcionario inner join cliente_juridico on (venda.idcliente = cliente_juridico.clientejuridico_cadastro) where venda.tipodecliente in ('Juridico') and venda.cadastro_venda = 70 group by venda.cadastro_venda
  15. Opa já demos uma evoluida... dessa forma eu consigo criar uma categoria... mas não um botão... olhando os evento vi um additem mas não estou sabendo usa-lo...
  16. Fala galera beleza ?? estou tentando fazer colocar uns botões desse compomente em runtime mas tá dificil... como eu faço ??? descobri como faz pra destuir mas criar tá foda... o codigo pra destruir é esse agora pra criar... tá dificil... o compomente já vem criado... na verdade ele já vem criado mas eu preciso destruir dependendo da opção do usuário.. e recria-lo... menufornecedor.Categories[0].Items[2].Destroy;
  17. Da unit DateUtils YearsBetween(DateTimePicker1.Date,DateTimePicker2.Date) Pra retorna inteiros... YearSpan(DateTimePicker1.Date,DateTimePicker2.Date) Pra retornar valores fracionarios...
  18. Fiz uma tela de login... e se o usuário conseguir entar abre esse form... Estou usando esse código pra criar o form dinâmicamente... ele está criando na boa... mas não estou conseguindo dar um close no form que abre ele... como eu faço isso ???? frmprincipal:= Tfrmprincipal.Create(Self); frmprincipal.ShowModal;
  19. Ai vai a resposta galera acessodados.frmdados.sqlprocura.SQL.Text :='SELECT os_cadastro,cliente.nome,data_entrada,data_conserto,data_entrega,valor,status,pagamento,tipo FROM os, cliente WHERE cadastro_cliente = cliente_cadastro AND os_cadastro like'+#39+camlocprocura.Text+'%'+#39;
  20. estou querendo fazer uma consulta usando join mas ele está retornando todos os registros da tabela cliente.... ao invés de aparece somente um registro.. no que estou errando ? SELECT os_cadastro,cliente.nome,data_entrada,dat_conserto,data_entrega,valor,status,pagamento,tipo FROM os ,cliente WHERE os_cadastro = ...
  21. Tenho uma dbgrid de procura, que é alimentada por uma sqlquery... eu queria que no evento ondbclick dessa grid ele procurasse o registro em uma TADOTABLE... como eu faço isso ? estou tentando assim... só que não funciona... acessodados.frmdados.tabelafornecedor.FindField(gridprocurar.Columns[0].Field); tabexibicao.TabIndex:= 2 ;
  22. Valeu Graymalkin funcionou perfeito...
  23. Opa consegui... if AnsiSameText(pathBD,linha2) then Valeu DELPHI-Man32 pela ajuda...
  24. Tenho em minha aplicação um dbgrig que é alimentado com o resultado de várias querys diferentes... acontece que ele fica com o nome original que eu dou as tabelas... eu queria trocar o nome das colunas... como eu faço pra trocar o nome das colunas ?
  25. estou fazneod assim pra fazer uma comparação entre strings mas não está funcionando.... pathBD ,linha2 são strings... if pathBD = linha2 then
×
×
  • Criar Novo...