Jump to content
Fórum Script Brasil

lramos7

Membros
  • Content Count

    18
  • Joined

  • Last visited

Community Reputation

0 Neutro

About lramos7

  • Birthday 12/04/1980

Contatos

Perfil

  • Gender
    Male
  • Location
    são Paulo
  • Interests
    Visual Studio - vb.net<br />Crystal Reports<br />Visual Studio - VB6<br />
  1. 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
  2. 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 mom
  3. 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 é
  4. 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
  5. matheus mandei pro seu e-mail a correção beleza... depois finaliza aqui o assunto abraços qualquer coisa grita ai
  6. 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 & "')")
  7. 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
  8. esqueci de colocar a função que insere... olhe novamente no meu post no final. abraços
  9. 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.J
  10. 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 W
  11. 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.
  12. Realmente estava com a opção marcada. Desmarquei salvei e rodou normalmente. Valeu pela força Abraços Leandro
  13. 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
  14. 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
  15. lramos7

    Enviar e-mails

    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="[email protected]"][email protected][/email]" CDO.To = [email="[email protected]"][email protected][/email] CDO.Subject = "Assunto"
×
×
  • Create New...