Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Tem sim ... substitua o IBTable pelo IBQuery Use os componentes IBQuery, DataSetProvider, ClientDataSet e DataSource Na SQL do IBQuery coloque Select * from SuaTabela Depois de uma active true no IBQuery e no ClientDataSet Use um DBGrid linkado no DataSource e veja quanto tempo demora para mostrar os registros ( deverá ser rapido) abraço
  2. Foi mal Douglas ... coloquei o endereço errado Veja este http://scriptbrasil.com.br/forum/index.php...st&p=561498 abraço
  3. Te passei um link que explica como fazer a conexão com o banco ( interbase / firebird ) e montar um form de teste http://scriptbrasil.com.br/forum/index.php...st&p=561831 abraço
  4. então é necessario colocar a linha de comando? Se estiver usando ClientDataSet sim não existe uma forma de simplesmente clicar DBNavigator e salvar? Se estiver usando Table com DataSource é só clicar no botão salvar abraço
  5. Tenho um form com 30 campos e está rapido ( acesso local 1 segundo .. acesso pela rede 2 segundos ) estou usando placas de rede 10/100 motorola V90 e um hubb Encore de 8 portas sem problemas a rede tem 8 micros usando XP e usando banco de dados Interbase abraço
  6. Fiz um teste aqui ... sem problemas e está redirecionando da LPT1 para a porta USB procedure TForm1.Button1Click(Sender: TObject); var Porta:TextFile; // o P = pagina; o L = Linha da pagina P,L:integer; Begin //direciona a porta Assignfile(porta,'LPT1'); //e manda abrir REWRITE(porta); Query1.First; P:=1; While not Query1.Eof do begin writeln(porta,'xxxxxxxxxxxxxxxxxxxxxxxx'); writeln(porta,'xxxxxxxxx:' + inttostr(P)); writeln(porta,'.........................................'); writeln(porta,'xxxxx'); writeln(porta,'.........................................'); L:= 0; while (not Query1.Eof) and (L<=58) do begin writeln(porta,floattostr(query1num.Value)); L:= L+1; Query1.Next; IF L > 58 then begin P:= P + 1; writeln(porta,#12); end; end; end; closefile(porta); end; Verifique o seu código abraço
  7. 900 registros pra mim são quase que instantâneos ... uso IBDataBase, IBTransaction, IBQuery, ClientDataSet, DataSetProvider, e DataSource e não tenho nenhum problema de lentidão para trazer os registros reveja a lógica usada no seu programa abraço
  8. acho que você pode usar o ZeosLib 6.5.1 e você acessa diretamente a Base de Dados, copie a libpq74.dll do Zeos (pasta \Zeos\lib\postgresql) para a pasta windows\system32. Mais informações: http://www.vbweb.com.br/download.asp?Downl...p;CodigoLink=66 http://ingleses.datasul.com.br/blog/post/2...s-Progress.aspx abraço
  9. http://www.von-thadden.de/Joachim/WineTools/ O processo de instalação é o mesmo para outras versões do delphi http://hamacker.wordpress.com/2008/04/14/w...rland-delphi-6/ abraço
  10. o erro foi "File no Found" Arquivo não Encontrado ( veja qual é o arquivo que está faltando ) O seu código trabalha com QryGrupo ... veja como esta a instrução SQL abraço
  11. voce so trocara um componente IBQuery, ClientDataSet, DataSetProvider, e DataSource da mesma forma que o outro voce usará instruções SQL neste componente ( IBQuery ) , mas independente disso é necessario saber qual é a lógica que voce esta usando para fazer o trafego de dados pela rede quando voce diz: qual é a quantidade de registros que voce traz e qual é a necessidade de trazer todos os registros ? de qualquer modo veja estas dicas de como melhorar o desempenho do firebird / Interbase em rede http://www.htmlstaff.org/ver.php?id=24387 http://www.comunidade-firebird.org/cflp/do...s/CFLP_T026.PDF abraço
  12. sim ... e voce pode tambem usar IBUpdateSQL ou IBSQL são muito praticos abraço
  13. Não se voce estiver usando IBQuery e estiver limitando o numero de registros a serem mostrados no dbgrid. tenho uma tabela com mais de 100.000 registros e leva menos 2 segundos para me trazer os registros selecionados abraço
  14. Oi Douglas .... a que tipo de rede voce se refere ( interna ou internet ? )
  15. Veja estas http://sistemas.baladaperfeita.com.br/Delp...7.Curso.new.DOC http://www.delphibr.com.br/artigos/AccessADO.php http://www.dpedroii.com.br/apostilas/evand...elphi3ano_2.pdf http://www.edudelphipage.com.br/apostilas_...php?categoria=7 http://www.scribd.com/doc/8636805/Apostila-Delphi-7 abraço
  16. Lembre-se que é preferivel voce perder um tempo fazendo essas alterações do que ficar esperando trafegar pela rede todos os registros da tabela .... a rede ficará lenta, a atualização para os demais usuários tambem, fora que não seria lógico trabalhar dessa maneira a não ser em casos específicos. Faça a mudança, garanto que ficará muito melhor ( experiência própria ) abraço
  17. Gabriel .. as sugestões são: 1 - voce trabalha com tabela temporaria onde o campo VENCLI voce define como integer 2 - usa o componente DataSetProvider e ClientDataset para poder ordenar pelo ClientDataset como te passei no link 3 - muda o tipo do campo na sua tabela, tem um pouco de trabalho para fazer as alterações no código e evita futuras dores de cabeça 4 - ou ficar perdendo tempo em tentar descobrir uma outra maneira de fazer isso ( o que acho dificil ) abraço
  18. alterar o tipo no banco é facil ( use o database desktop ele aceita tabelas do dbase IV ) e se voce tiver o código fonte do programa melhor ainda. Caso não seja possivel ou voce não queira alterar o tipo do campo: Uma sugestão que voce pode adptar ao seu uso http://www.devmedia.com.br/articles/viewco...t.asp?comp=9562 abraço
  19. Eu faço isso por programação numa boa .... mas como voce não tem noção de delphi, vou indicar algum material que pode te ajudar http://www.baixaja.com.br/downloads/Window...uery_34511.html http://mailware.com/QueriesDialog.htm http://www.filebuzz.com/publisher/download.php?id=14055 http://3d2f.com/tags/qbe/sql/ http://ultradownloads.com.br/download/Optimize-Your-Query/ abraço
  20. Use esses ADOQuery1 DataSetProvider1 ClientDataSet1 DataSource1 troque o ADOTable pelo ADOQuery1 ... dessa maneira voce estará trabalhando com uma cópia dos registros selecionados através de instruções SQL, que além de diminuir o trafego de dados pela rede, será mais simples efetuar uma atualização dos registros no banco de dados. Caso tenha duvidas em utilizar o ADOQuery, faça uma busca no forum para ver o que encontra http://scriptbrasil.com.br/forum/index.php...ghlite=ADOQuery abraço
  21. quais são os componentes que voce esta usando ? Esses ou outros ? ADOQuery1 DataSetProvider1 ClientDataSet1 DataSource1
  22. esta usando componentes ADO para acessar o banco de dados ?
  23. Faça esta alteração no código procedure TForm1.Button1Click(Sender: TObject); var Attrib: integer; original,fake : string; teste.txt : TextFile; begin Attrib:=FileGetAttr('C:\windows\system32\teste.txt'); if Attrib<>-1 then begin Attrib:=Attrib and not faReadOnly; if FileSetAttr('C:\windows\system32\teste.txt', Attrib) <> 0 then SetFileAttributes(PChar('C:\windows\system32\teste.txt'), FILE_ATTRIBUTE_NORMAL); end; fake:='fake'; original:='original'; assignfile(teste, 'C:\windows\system32\teste.txt'); rewrite(teste.txt); writeln(teste.txt,fake + ' ' + original + '## Testando ##'); closefile(teste.txt); end; OBS: Lembrando que a pasta %SystemRoot% é a propria pasta do Windows abraço
  24. Instale o interbase como Servidor e como administrador abraço
  25. Poste o código .... é necessario mudar o atributo do arquivo Acessar Pasta ou Registro do windows? abraço
×
×
  • Criar Novo...