lramos7

Prezados amigos, boa tarde! Criei um programa em VB.Net do tipo Console Aplication, gostaria de saber como faço para instalar este programa como um Serviço do Windows sem precisar criar um projeto do tipo Windows service. Conto com ajuda de todos. Abraços Leandro

Bom dia meus amigo! Sou experiente em VB6 e de alguns meses pra cá venho me familiarizando com o vb.net, eu tenho uma aplicação no VB6 para fazer FTP(Conexão;Download;Uploads) de arquivos. Com a necessidade preciso criar a mesma aplicação no vb.net e venho tendo algumas dificuldades. Eu estou utilizando sytem.net (Webrequest e Webresponse) funciona muito bem, mais preciso de uma ajuda para criar um botão que apenas fizesse a conexão no FTP e me mostrasse o status e depois de conectado e outro botão para enviar e receber arquivos. Tem como separar isso, pois vejo nos forums que todos no momento de enviar ou receber faz todo o processo novamente, cria conexão e envia ou recebe o arquivo... Outra coisa é, não tem como se conectar no FTP sem informar o arquivo? Public localFile As String = "C:\EXIT\teste.txt" Public remoteFile As String = "/teste.txt" Public host As String = ftp://ftp.xxx.com Public URI As String = host & remoteFile '***************SE NÃO INFORMAR O ARQUIVO DA ERRO************* Public request As WebRequest Public response As WebResponse Já estou perdendo alguns dias com isso, Se alguém tiver alguns exemplos do que estou falando, agradeço desde já a ajuda de todos. Meu MSN é : nanoenana@hotmail.com Abraços Leandro

Galera, muito boa tarde a todos! Desenvolvi uma ferramente utilizando o componente Winsock para baixar e-mails de um provedor. 1) Necessito saber como faço para alterar o status de leitura do e-mail depois que eu baixei ele. Tipo recebo um novo e-mail, baixo o e-mail por winsock, processo o conteudo e depois preciso mudar o status para e-mail lido. 2)Como Baixar apenas e-mails não lidos. Atualmente, depois de processar um e-mail, eu estou enviando o comando para deleta-lo (Winsock1.SendData "DELE " & intCurrentMessage & vbCrLf) , porém, as vezes ocorre deste e-mail não apagar e ele é processado novamente na proxima pesquisa. Se alguém puder ajudar agradeço toda colaboração possivel. Necessito urgente de uma solução. Já estou há quase uma semana com esse problema e tenho certeza de que deve ser algo simples de se resolver. Forte abraço, :unsure: Leandro Ramosmsn: nanoenana@hotmail.com

Srs, Boa Tarde a todos. Gostaria da ajuda de todos, estou criando um relatorio no Crystal onde seleciono o Periodo Inicio e Fim de pesquisa. Exemplo: dtInicio = '2009-10-01 00:00:00' dtFim = '2010-11-12 23:59:59' Eu preciso que me retorne isso: 1 Ano, 1 Mês, 11 Dias, 23 Horas, 59 Min e 59 Seg Eu tenho este periodo em segundos, existe alguma função que converta os segundos para este formato? Agradeço desde já ajuda de todos. Abraços

matheus mandei pro seu e-mail a correção beleza... depois finaliza aqui o assunto abraços qualquer coisa grita ai

o seu ta errado insere("insert into Alunos (Nome,Idade) values ('txtNome.text','txtIdade.text')") tenta assim: insere ("insert into Alunos (Nome,Idade) values ('" & txtNome.text & "','" & txtIdade.text & "')")

como você precisa Inserir, Deletar e Atualiza, mudei o nome da rotina... de uma olhada. --Num Modulo --Crie um modulo mdlVariaveis (ou nome de sua preferencia) Global g_mdb_Conex As New ADODB.Connection Global f_cla_ConexaoMDB As New cls_ConexaoMDB -- Numa Classe --Crie uma classe chamada cls_ConexaoMDB(ou nome de sua preferencia) Public Function ConexMDB(ByVal l_str_CaminhoMDB As String) On Error GoTo Erro: ConexMDB = True If g_mdb_Conex.State = 1 Then g_mdb_Conex.Close g_mdb_Conex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & l_str_CaminhoMDB & ";" Exit Function Erro: ConexMDB = False MsgBox "ERROR DE ACESSO COM MDB", vbCritical End End Function --Rotina para inserir public function ExecutaComando(byval strComando as string) as boolean on error goto err ExecutaComando= false g_mdb_Conex.execute strComando ExecutaComando= true exit function err: msgbox "erro para inserir" end function --em qualquer luhar do programa --chama a funcao para executar comando (insere,deleta,atualiza) ExecutaComando("insert into tabela (campo1,campo2) values ('" & <VALOR1> & "','" <VALOR2> & "')") --ou ExecutaComando("Delete from tabela where Campo ='" & <VALOR> & "'") --ou ExecutaComando("update from tabela set Campo ='" & <VALOR> & "' where campo ='" & <VALOR> & "')" )

esqueci de colocar a função que insere... olhe novamente no meu post no final. abraços

crie sua conexão numa CLASSE e crie uma instancia da classe, eu utilizo ADODB.... faz um teste ai.... qualquer coisa da um grito Abraços --Num Modulo --Crie um modulo mdlVariaveis (ou nome de sua preferencia) Global g_mdb_Conex As New ADODB.Connection Global f_cla_ConexaoMDB As New cls_ConexaoMDB -- Numa Classe --Crie uma classe chamada cls_ConexaoMDB(ou nome de sua preferencia) Public Function ConexMDB(ByVal l_str_CaminhoMDB As String) On Error GoTo Erro: ConexMDB = True If g_mdb_Conex.State = 1 Then g_mdb_Conex.Close g_mdb_Conex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & l_str_CaminhoMDB & ";" Exit Function Erro: ConexMDB = False MsgBox "ERROR DE ACESSO COM MDB", vbCritical End End Function --Rotina para inserir public function ExecutaComando(byval strComando as string) as boolean on error goto err ExecutaComando= false g_mdb_Conex.execute strComando ExecutaComando= true exit function err: msgbox "erro para inserir" end function --em qualquer luhar do programa --chama a funcao para executar comando (insere,deleta,atualiza) ExecutaComando("insert into tabela (campo1,campo2) values ('1','2')) --ou ExecutaComando("Delete from tabela where Campo =" & <VALOR>) --ou ExecutaComando("update from tabela set Campo =" & <VALOR> & " where campo =" & <VALOR) )

você ta querendo somar um campo repetido porem que retorne em uma unica linha? Me de mais detalhe sobre os campo e valores desejados para retornar... Mais segue uma visão do que imaginei: ao invém de utilizar o sum() no select do distinct, some o campo num select separado como segue o exemplo abaixo. SELECT DISTINCT(cv.data) ,a.name, 'total'=(select SUM(c.pedidos) from tab3 where c.startDate BETWEEN "2010-08-01" AND "2010-08-15") FROM tab1 as cv LEFT JOIN tab2 as a ON a.controle_Id=cv.id LEFT JOIN tab2_has_tab3 AS b ON b.Campaign_id = a.id LEFT JOIN tab3 AS c ON c.id = b.CampaignStats_id WHERE a.name="Nome de pesquisa" and c.startDate BETWEEN "2010-08-01" AND "2010-08-15" GROUP BY a.name ORDER BY c.startDate abraços Leandro

Nas máquinas onde não tem o aplicativo, funciona corretamente? Jé tentou reinstalar o aplicativo nestas máquinas onde já estão instaladas? Aconteceu isso uma vez comigo, e por incrivel que pareça, tive que rodar o instalador do crystal na máquina. para poder registrar alguns componentes, pois o instalador do VB não estava conseguindo registrar os componentes.

Realmente estava com a opção marcada. Desmarquei salvei e rodou normalmente. Valeu pela força Abraços Leandro

Srs, boa tarde! Alguns relatórios que desenvolvo funcionam outros dão problemas. Quando monto um relatório e visualizo o mesmo no preview funciona corretamente. Mais ao modificar algum dado no banco de dados e chamar o RPT no VB o mesmo esta trazendo a informação antiga antes da altereção, traz a mesma informação de quando estou visualizando pelo preview do crystall. Como faço para resolver isso? sei que preciso desativar o preview, fiz isso uma vez mais não estou conseguindo mais fazer isso. Agradeço toda ajuda Abraços

olá boa tarde! Você já tentou utilizar formulas binarias para chegar neste resultados? eu trabalho com memórias de micro-controladores e para atender meus resultados eu utilizo funcções binarias para alocar numeros grandes no qual não caberia neste tipo de memoria. Mais acredito que se for continuar tentando esse tipo de aplicação no VB começaria a pensar nisso que falei. Abraços Leandro

olá! Você poderia utilizar também a referencia "Microsoft CDO for windows 2000 Library" Muito bom, eu utilizazo para enviar e-mails, pratico e fácil. Private Sub cmdEnviar_Click() Dim CDO As CDO.Message Set CDO = New CDO.Message caminho = "[url="http://schemas.microsoft.com/cdo/configuration/"]http://schemas.microsoft.com/cdo/configuration/[/url]" CDO.From = "[email="emailorigem@origem.com.br"]emailorigem@origem.com.br[/email]" CDO.To = [email="emaildestino@destino.com.br"]emaildestino@destino.com.br[/email] CDO.Subject = "Assunto" CDO.TextBody = "Texto do email" CDO.Configuration.Fields.Item(caminho & "smtpauthenticate") = 1 CDO.Configuration.Fields.Item(caminho & "smtpserverport") = 25 CDO.Configuration.Fields.Item(caminho & "sendusing") = 2 CDO.Configuration.Fields.Item(caminho & "smtpserver") = "smtpserver" CDO.Configuration.Fields.Item(caminho & "sendusername") = "contadeemail" CDO.Configuration.Fields.Item(caminho & "sendpassword") = "senha" CDO.Configuration.Fields.Update CDO.Send Set CDO = Nothing End Sub Abraços Leandro

Kuroi, bom dia! Cara, valeu pela ajuda fiz exatamente esse procedimento e funcioinou corretamente. Muito obrigado pela ajuda. Como faço para colocar o assunto como resolvido agora? eu sou novo neste forum e ainda não me acostumei. Abraços Leandro Ramos

Meu caro, boa tarde! Eu utilizo uma dll para fazer isso que você quer. Resize.dll Muito funcional e prático. Boa sorte!!!

Boa tarde! Estou criando um relatório no Crystal, onde o mesmo tem 2 Grupos. Grupo 1 = nmMaquina Grupo 2 = Operador exemplo do erro ================================================ Maquina1 Operador(leandro) Atendimentos(10) Tipo(Ativação) Atendimentos(10) Tipo(Liberação) Atendimentos(10) Tipo(Avaliação) Atendimentos(10) Tipo(Desativação) Operador(Julio) Atendimentos(5) Tipo(Ativação) Atendimentos(5) Tipo(Liberação) Atendimentos(5) Tipo(Avaliação) ================================================ Toral de Atendimentos = 55 Maquina2 Operador(Ana) Atendimentos(10) Tipo(Ativação) Atendimentos(10) Tipo(Liberação) Atendimentos(10) Tipo(Avaliação) Atendimentos(10) Tipo(Desativação) Operador(Rafael) Atendimentos(10) Tipo(Ativação) Atendimentos(10) Tipo(Liberação) Atendimentos(10) Tipo(Avaliação) ================================================ Toral de Atendimentos = 70 Minha soma de atendimenos esta retornando errado, Ta somando os resultados de Atendimentos duplicados. Pois o correto deveria aparecer como o exemplo Abaixo: exemplo esperado ================================================ Maquina1 Operador(leandro) Atendimentos(10) Tipo(Ativação) Atendimentos(10) Tipo(Liberação) Atendimentos(10) Tipo(Avaliação) Atendimentos(10) Tipo(Desativação) Operador(Julio) Atendimentos(5) Tipo(Ativação) Atendimentos(5) Tipo(Liberação) Atendimentos(5) Tipo(Avaliação) ================================================ Toral de Atendimentos = 15 Maquina2 Operador(Ana) Atendimentos(10) Tipo(Ativação) Atendimentos(10) Tipo(Liberação) Atendimentos(10) Tipo(Avaliação) Atendimentos(10) Tipo(Desativação) Operador(Rafael) Atendimentos(10) Tipo(Ativação) Atendimentos(10) Tipo(Liberação) Atendimentos(10) Tipo(Avaliação) ================================================ Toral de Atendimentos = 20 estou utilizando essa formula: numbervar Total:= Sum ({@Atendimento},{spr_Rel_Detalhede;1.Operador}) Se alguém puder dar uma força, agradeço desde já. Abraços Leandro