Ir para conteúdo
Fórum Script Brasil

Luiz Humberto

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    181

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Luiz Humberto

  1. Ado X Rede Remota

    em Visual Basic

    Postado

    Eu dei Microsoft DAO 3.51 object library.

    Mas a referencia "Dim Conexão As ADODB.Connection" não funciona

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

    em ASP

    Postado

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

    em ASP

    Postado

    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

  5. Sistema De Vb6 Em Serviço

    em Visual Basic

    Postado

    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

  11. Insert Into

    em Visual Basic

    Postado

    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. Dúvida Com Banco De Dados (vb6)

    em Visual Basic

    Postado

    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.

  21. Consulta Em Varias Tabelas

    em Visual Basic

    Postado

    SELECT CUR.CODIGO

    ,CUR.DESC_ALUNO

    ,CUR.DT_INICIO

    ,COMP.CODIGO

    ,COMP.COD_CURSO

    FROM Cursos CUR

    ,CompCadAluno COM

    ,CadAluno ALU

    WHERE COM.CODIGO = ALU.CODIGO

    AND ALU.CODIGO = COM.CODIGO

    Obs: Na cláusula where os relacionamentos é de Filho para Pai.

    Qualquer dúvida poste...

  22. Problema Com Máscara No Cpf

    em Visual Basic

    Postado

    O que pode fazer é o seguinte utilize este campo com as devidas maskaras, e quando for passar para o função utlize a proprieade ClipText, pois ela retorna o que foi digitado no campo, mas sem a maskara.

    Ex: 999.999.999-99, utlizando a proprieadade acima irá retornar 9999999999.

    Espero ter ajudado !!

×
×
  • Criar Novo...