Luiz Humberto

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

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.

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

Desmarque a opção Save Data With Report, no menu File.

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

Dê uma olhada neste link: Livro de Visual Basic

Verifique se o nome do servidor está correto, e se o usuario e senha também estão.

Se não me engano, seno é Sin() e cosseno é Cos().

Dê uma olhada nestes links. WebCam WebCam

Dê uma olhada neste link, que vai te ajudar. Transações Bons Estudos !!

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

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.

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 !!

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).

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 !!

Utilize a Função BetWeen, para maiores detalhes aqui no forum tem alguns posts relacionados a esta função. Bons Estudos !!

Acesse este link: Descompilação Bons Estudos !!

Dead-Drunk, Tenho bons exemplos de passagem de parametros do Visual Basic para o Crystal caso queira me avise que lhe envio por e-mail.

Esquenta não, as vezes confudimos as coisas...

Tem sim, mas é importante que crie os relacionamentos para que sua base de dados tenha integridade.

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

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 !!

Exatemente foi esta a solução encontrada, juntamente com o auxlio de um código do planetSource, utilizado para definr qual dominio que será efetuada a busca. Podem Encerar este Tópico.

Explicando melhor: RsTmp .Fields.Append "Codigo", adNumeric, 4, adFldKeyColumn Gostaria de saber como fazer este campo que estou criando ser AutoIncremento Obrigao!

Estou criando um RecordSet temporário, mas não sei como acrescentar um campo auto incremento, quem puder ajudar. Valews