Ir para conteúdo
Fórum Script Brasil

Luiz Humberto

Membros
  • Total de itens

    181
  • Registro em

  • Última visita

Sobre Luiz Humberto

Luiz Humberto's Achievements

0

Reputação

  1. Não funcionou porque referenciou DAO e na verdade tem que referenciar ADO, para isso faça referencia a: Microsoft AcitveX Data Objetcs 2.8 Libray Com relação a acessar a base de dados remotamente, veja esse link: ADO
  2. Luiz Humberto

    Atualizar Campo

    Não, após o usuario digitar <enter>, ou perder o foco do mesmo. Mas não poderá acionar o submit, pois existem outros campos no formulário a ser digitado. Ele digita algo, então a partir desse dado faço a busca no BD e então preenche o proximo campo.
  3. Luiz Humberto

    Atualizar Campo

    Quando o usuario digitar no primeiro campo, vou fazer uma busca no banco de dados e de acordo com o codigo que foi digitado preencher o segundo campo. Estou com dúvida de como fazer para preencher o segundo campo. Obrigado
  4. Desmarque a opção Save Data With Report, no menu File.
  5. Leia isso: Aplicação rodando como Serviço Alguns sistemas precisam operar mesmo quando a máquina está deslogada ou antes de passar pela tela de login. A forma de fazer isto é trabalhar com serviços. Serviços permitem que o sistema operacional inicie sua aplicação mesmo antes de alguém se logar. Apesar de o VB não ser a ferramenta ideal para este tipo de solução, existe uma OCX (NTSVC.OCX), que com algumas limitações, permite a criação destes aplicativos. Coloque a NTSVC em seu form principal e cole o seguinte código em sua função Main ou no Form Load... Select case uCase(Command$) 'instala servico Case "-I", "/I" ntsvc1.Install EncerrarPrograma 'remove servico Case "-U", "/U" ntsvc1.Uninstall EncerrarPrograma 'inicia servico Case Else ntsvc1.StartService End Select Para iniciar seu serviço, execute o aplicativo passando como parametro de iniciação (pela primeira vez) "-i" ou "/i". O programa apenas instala o serviço e fecha - A função EncerrarPrograma não é foco da discussão. Abra novamente seu aplicativo - agora sem qualquer parametro - seu serviço foi iniciado. Para verificar isto, vá em Painel de Controle - Ferramentas Administrativas - Serviços, e verifique se existe um serviço novo. Note que você pode definir o nome que quer para seu serviço nas propriedades da OCx. Se tudo estiver correto, o serviço estará listado e iniciado. Se você der um "Deslogar" ou se reiniciar o micro, antes de entrar com um usuário, o programa estará em operação. Para encerrar seu serviço, rode novamente seu aplicativo passando o argumento "-u" ou "/u" Situações onde isto é aplicável: Sistemas críticos (24/7) - operações que precisam se comunicar com dispositivos externos (rede ou serial) e que não podem ser fechados. Sistemas de Log - Para log de operações é interessante também... ele pode verificar o uso de sua máquina e registrar em algum arquivo. Sistemas de Schedulling - você pode mandar o micro se logar e iniciar outro aplicativo para executar alguma operação. Observações: a) Quando um serviço é iniciado, ele roda em background e você não consegue acessá-lo diretamente - então é importante ter em mente que o serviço não tem interface gráfica - normalmente uso uma tela para colocar a OCX e configurar a operação. Esta tela nunca é acessada novamente. b) O serviço é um tipo de "usuário convidado" e por isso tem suas limitações de acesso. Não tente escrever arquivos em pastas específicas ou no registro do windows - provavelmente o sistema operacional não vai permitir está operação. c) é importante ter um tratamento de erro em TODAS as funções - se não houver muito o que ser feito para prever erros, usar "ON ERROR RESUME NEXT" é altamente recomendável. d) o uso de serviços é restríto a Sistemas Operacionais que suportam isto - ou seja - plataforma NT (NT4, 2000, XP...) e) O arquivo ntsvc.ocx pode ser encontrado para download em n sites (procurar em google por Download NTSVC.OCX) Autor: Bruno Machado
  6. Dê uma olhada neste link: Livro de Visual Basic
  7. Luiz Humberto

    Sql

    Verifique se o nome do servidor está correto, e se o usuario e senha também estão.
  8. Se não me engano, seno é Sin() e cosseno é Cos().
  9. Dê uma olhada nestes links. WebCam WebCam
  10. Dê uma olhada neste link, que vai te ajudar. Transações Bons Estudos !!
  11. Luiz Humberto

    Insert Into

    Para utilzar o INSERT INTO, com base nos dados obtidos em sua SELECT tem que fazer desta forma: SELECT Campo INTO TabelaQueVaiInserir FROM Tabela No seu caso ficaria: SELECT * INTO fimcomanda FROM cabecacomand ,comanda ,contconf Where nomedaloja LIKE '%" & txtloja.Text & "%' or Between Text1.Text And Text2.Text
  12. Faz assim: If MsgBox("Tem certeza que deseja excluir esse registro?", vbYesNo, "Apagar Registro") = vbYes Then if Recordset.RecordCount=0 then Msgbox ("Não há registros para serem excluídos") Exit Sub else Dados.Recordset.Delete Dados.Refresh end if end if Obs:Lembrando que quando fizer as operações de Delete e Update é aconselhável fazer o Update.
  13. O que pode é fazer o seguinte, passar uma sql para o crystal com isso ele só "montará" o relatorios com os registros que foram enviados para ele através da sua sql. Mas dê uma olhda neste site: Crystal Report Bons Estudos !!
  14. Este End With, fecha o With exemplo. With RSTmp MsgBox .RecordCount End With Ou seja é uma abreviação, em vez de ter que digitar o nome do componente "." a sua propriedade, utiliza o With(Tradução é Com).
  15. Poderia esclarecer melhor o que quer fazer, se está dando erro ou se quer dicas de como fazer algo, mas de antemão dê uma olhada neste link, pois contém vários artigos do Tio Macoratti sobre o DataGrid Artigos de DataGrid Bons Estudos !!
×
×
  • Criar Novo...