Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

Pesquisar na Comunidade

Mostrando resultados para as tags ''VB.NET''.



Mais opções de pesquisa

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Categorias

  • Armazenamento
  • Áudio
  • Energia
  • Entrada
  • Feiras e Eventos
  • Gabinetes
  • Memória
  • Museu
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Rádio CdH
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Blog

Categorias

  • Armazenamento
  • Áudio
  • Câmeras
  • Computadores
  • Consoles
  • Eletrônicos
  • Energia
  • Entrada
  • Gabinetes
  • Impressão
  • Jogos
  • Memória
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Livros disponíveis
  • Livros esgotados

Categorias

  • Cursos

Fóruns

  • Mensagens do Clube do Hardware
    • Regras gerais
    • Boletins do Clube do Hardware
    • Notícias da administração
  • Hardware
    • Recomendações de computadores
    • Placas de vídeo
    • Placas-mãe e chipsets
    • Processadores
    • Problemas de gargalo e desempenho
    • Memórias
    • Armazenamento
    • Refrigeração e superaquecimento
    • Fontes e energia
    • Gabinetes e casemods
    • Placas de som e áudio on-board
    • Periféricos
    • Mac
    • Overclock
    • Hardware - outros
  • Computação móvel
    • Notebooks
    • Tablets
    • Smartphones e apps
  • Redes e Internet
    • Redes e Internet
    • Hospedagem de sites e registro de domínios
  • Segurança da informação
    • Remoção de malware
    • Dúvidas sobre invasões e infecções
    • Programas de proteção
  • Programação e desenvolvimento
    • Java
    • C/C#/C++
    • Pascal/Delphi
    • .NET
    • Bancos de dados
    • Programação web
    • Programação - iniciantes
    • Programação de microcontroladores
    • Programação - outros
  • Software
    • Jogos
    • Pacotes de escritório
    • Computação distribuída (Folding@Home, Bitcoin etc.)
    • Virtualização
    • Design, animação e tratamento de imagens
    • Edição de áudio e vídeo
    • Programas
  • Sistemas Operacionais
    • Recomendação de sistemas operacionais
    • Windows
    • GNU/Linux, BSD, Unix-like e software livre
    • Mac OS
  • Eletrônicos
    • Equipamentos de som, home theaters e gravadores de mesa
    • Televisores e projetores
    • Câmeras e filmadoras
    • Players portáteis
    • Consoles (videogames)
    • GPS
    • Telefonia fixa
    • Eletrônica
    • Retrocomputação
  • Outros
    • Recomendações de serviços e lojas
    • Preços e promoções
    • Notícias
    • Bolsa de empregos, certificações e mercado de trabalho
    • "Causos"
    • Encontros de usuários
    • Feira do Rolo
  • Clube do Hardware
    • Comentários, elogios, críticas, sugestões e questões sobre o Clube do Hardware
    • Comentários de artigos
    • Fórum para testes de funcionalidades

Categorias

  • Hardware
  • Redes
  • Eletrônica
  • Sistemas operacionais

Encontrado 45 registros

  1. Boa tarde, como faço para tirar uma linha de um banco de dados e passar para um string? eu preciso das linhas nome, senha, email do banco de dados Deem uma olhada na linha do código: Private Sub login() Dim save1 As String Acess.AddNome("@nome", save1) Dim save2 As String Acess.AddPass("@senha", save2) Dim save3 As String Acess.AddEmail("@email", save3) Acess.ExecuteQuery("SELECT (NOME,SENHA,EMAIL) INTO CLIENTES VALUES (@nome,@senha,@email)") If txt_usuario.Text = save1 Or txt_usuario.Text = save3 And txt_pass.Text = (save2) Then Dim conectar As New controle Dim consulta As New frm_consulta txt_pass.Text = "" txt_usuario.Text = "" consulta.Show() ElseIf txt_usuario.TextLength = 0 Or txt_pass.TextLength = 0 Then MessageBox.Show("Senha ou usuarios em branco!", "Erro!") Else MessageBox.Show("Senha ou usuario incorreto!", "Erro!") End If End Sub
  2. Boa tarde, alguém pode me ajudar? Estou desenvolvendo um software que imprime um formulário do windows forms e estou usando a sintaxe "PrintDocument1.Print()" que imprime o que foi declarado na classe "Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage", até pouco tempo estava funcionando corretamente, mais derrepende começou apresentar o erro "System.ComponentModel.Win32Exception: 'Identificador inválido'". O compilador reconhece que a sintaxe está correta, mais na depuração a linha PrintDocument1.Print() apresenta esse erro. com informação de Exceção gerada: 'System.ComponentModel.Win32Exception' em System.Windows.Forms.dll Ocorreu uma exceção sem tratamento do tipo "System.ComponentModel.Win32Exception" em System.Windows.Forms.dll Identificador inválido. segue trecho do código: Private Sub BtnIPrint_Click(sender As Object, e As EventArgs) Handles BtnIPrint.Click If ((TxtFren.Text() <> "") And (TxtFaz.Text() <> "")) Then 'erro apresentado aqui PrintDocument1.Print() Else MessageBox.Show("Há campo vazios, por favor, preencha os campos obrigatórios") End If End Sub Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim freng1 As New Bitmap(PctFren.Width, PctFren.Height) PctFren.DrawToBitmap(freng1, New Rectangle(0, 0, freng1.Width, freng1.Height)) end sub
  3. Galera, tenho uma caixa de texto que deveria trazer o valor de um campo do registro do windows. txtSerialSistema.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductId", Nothing) Neste caso o campo "DigitalProductId" está como REG_BINARY e quando faz a importação do valor a caixa de texto fica em branco, notei que se eu buscar outra informação que seja do tipo REG_SZ ele traz a informação correta, como posso proceder para trazer a informação REG_BINARY Valeu
  4. Olá amigos, uso uma listbox no Access(vba) que tem várias propriedades, então fui tentar fazê-la no VB.Net, procurei o objeto ListBox do VB.Net (Visual Studio), e tive uma surpresa, pois vi que a ListBox oferecida pelo VB.Net é muito primitiva, não dá para vincular uma consulta (SQL) nela, muitas poucas propriedades. Não falo a DataGridView (que a gente baixa na net) do Vb.Net que da ate para atualizar/alterar os dados, mas a listbox do Vb.Net é muito fraca. Será que todos os bons objetos do VB.Net temos que baixar pela net, onde encontrar isso? Alguem ja passou por esta experiência de ver o próprio Access/Vba melhor do que o VB.Net em se tratando de seus objetos listbox dentre outros? Espero e obrigado
  5. Boa tarde. Comecei um pequeno software para coletar informações do PC. Já consegui fazer com que me retorne as seguintes informações em caixas de texto. Sistema Operaciona Serial NO momento, preciso que o mesmo me retorne mais algumas informaçoes da máquina. São elas: Processador Memória RAM Usuários cadastrados no windows Qual office a máquina contem Serial do Office instalado Nome do PC Grupo de trabalho Estas informações seriam apenas mostradas em uma caixa de texto no software. Estou usando o visual studio 2015. Grato.
  6. Boa Noite Sou novo aqui....Estou com o código abaixo e gostaria que o botão de imprimir, imprimisse igual a este arquivo em excel....separando os materiais por conta contabil...por empresa e calculando o total....na vdd saisse igual a este documento excel, conforme em anexo.... e o visual na web fosse igual o print. As funções de cadastrar, excluir e alterar estão sem problemas, mas não estou conseguindo fazer esta função de imprimir. codigo: <%option explicit%> <!--#include file="net_conexao.asp"--> <% if session("logado") <> "okodijeruljlkjkljldkjakn8nsn8nn8s3nj8en38n83j3j4in3j4cjnp4nkocniiruoiuciouiiurhihfhi3ui38fu83f3ff3f" then response.redirect "index.asp" end if %> <html> <head> <head><meta http-equiv="refresh" content="20;URL=not_exclu.asp"></head> <title>##</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); //--> </script> <script src="net_form_nr.js"></script> <link rel="stylesheet" href="net_estilo.css" type="text/css"> <% Dim rsz,sqlz,vpmz,cnmosca call conectar vpmz="not" sqlz="select * from tabusu WHERE menu like '%"&vpmz&"%' and codusu like '"&session("coduso")&"'" Set rsz=cnmosca.execute(sqlz) if rsz.eof and rsz.bof then response.Redirect("pagina.asp?mensagem=ACESSO NEGADO") response.end end if %> </head> <body> <div align="center"> <table width="1000" border="0" cellpadding="0" cellspacing="5"> <tr> <td height="45" valign="top"> <!--#include file="net_menu.asp"--> </td> </tr> <tr> <td height="300" valign="top"><table class="borda" width="100%" border="0" cellpadding="0" cellspacing="3"> <tr> <td width="100%" height="20"> <div align="left"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC"> <tr> <td width="43%" height="30"><font color="#000000" size="3" face="Verdana">ALTERAR/ EXCLUIR NOTÍCIA</font></td> <td width="57%"><div align="center"><font color="#CC0000" size="1" face="Verdana"> <%=request.querystring("mensagem")%> </font></div></td> </tr> <tr> <td height="30"><div align="right"> <form style="MARGIN:0PX" name="form1" id="form1" method="post" action="not_exclu.asp"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC"> <tr> <td width="15%" height="30"> <div align="left"><font color="#000000" size="2" face="Verdana">Mês:</font><font color="#CC0000" size="1" face="Verdana"> <select name="mes" class="form1" id="mes" > <%Dim sqlopc,rsopc call conectar sqlopc="select mes from tabnoticia group by mes" set rsopc=cnmosca.execute(sqlopc)%> <option selected="selected">Todos</option> <%do while not rsopc.eof%> <option><%=rsopc("mes")%></option> <%rsopc.movenext loop rsopc.close set rsopc=nothing %> </select> /</font><font color="#000000" size="2" face="Verdana"> Ano:</font><font color="#CC0000" size="1" face="Verdana"> <select name="ano" class="form1" id="ano" > <% call conectar sqlopc="select ano from tabnoticia group by ano" set rsopc=cnmosca.execute(sqlopc)%> <option selected="selected">Selecione</option> <option value="0">- -</option> <%do while not rsopc.eof%> <option><%=rsopc("ano")%></option> <%rsopc.movenext loop rsopc.close set rsopc=nothing %> </select> <input type="submit" name="Submit" value="OK" /> </font></div> </td> </tr> </table> </form> </div></td> <td height="30"><div align="right"><font color="#CC0000" size="2" face="Arial">Para enviar a foto, clique em "Sem Foto" - Para EXCLUIR a foto, clique na foto.</font></div></td> </tr> </table> </div></td> </tr> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#666666"> <tr> <td height="19"> <table width="100%" border="0" cellpadding="0" cellspacing="2"> <tr> <td width="0" height="30" bgcolor="#CC3300"> <div align="center"><strong><font color="#FFFFFF" size="1" face="Verdana">Excluir</font></strong></div></td> <td width="0" height="30" bordercolor="#CCCCCC" bgcolor="eeeeee"> <div align="center"><strong><font size="1" face="Verdana">CONTA SIAFEM</font></strong></div></td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> <div align="center"><strong><font size="1" face="Verdana">Título</font></strong></div></td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> <div align="center"><strong><font size="1" face="Verdana">Data</font></strong></div></td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> <div align="center"><strong><font size="1" face="Verdana">Texto</font></strong></div></td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> <div align="center"><strong><font size="1" face="Verdana">cidade</font></strong></div></td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bordercolor="#CCCCCC" bgcolor="eeeeee"> </td> <td width="0" bgcolor="#009933"> <div align="center"><strong><font color="#FFFFFF" size="1" face="Verdana">Alterar</font></strong></div></td> </tr> <%call conectar Dim listar,o,sql,conex,pagina,reg,conte,page,vnome,vultimo,vcoduso,vmes,vano vmes=request.Form("mes") vano=request.Form("ano") Set listar = Server.CreateObject("ADODB.Recordset") listar.pagesize = 50 if vmes="" or vano="" then sql="Select * from tabnoticia order by ano, mes desc" listar.open sql, cnmosca, 1,1 elseif vmes="Todos" and vano<>"Todos" then sql="Select * from tabnoticia where ano='"&vano&"' order by ano, mes desc" listar.open sql, cnmosca, 1,1 else sql="Select * from tabnoticia where mes='"&vmes&"' and ano='"&vano&"' order by ano, mes desc" listar.open sql, cnmosca, 1,1 end if If listar.eof then response.Write("NÃO EXISTEM CADASTROS") response.End() else if request("pagina") = "" then pagina = 1 else if cint(request("pagina"))<1 then pagina = 1 else if cint(request("pagina"))> listar.pagecount then pagina = listar.pagecount else pagina = request("pagina") end if end if end if end if listar.absolutepage = pagina reg = 1 conte = 0 while conte < listar.pagesize and not listar.eof %> <tr> <td height="20"><div align="center"> <a href="not_exclu_del.asp?cod=<%=listar("codnot")%>"><img src="imag/a_blo.jpg" alt="EXCLUIR" width="15" height="15" border="0"></a> </div></td> <td height="20" bordercolor="#CCCCCC"><div align="center"><font color="#000000" size="1" face="Verdana"><%=listar("mostra")%></font></div></td> <td bordercolor="#CCCCCC"><div align="left"><font color="#000000" size="1" face="Verdana"><%=listar("titulo")%></font></div></td> <td bordercolor="#CCCCCC"><div align="center"><font color="#000000" size="1" face="Verdana"><%=listar("data")%></font></div></td> <td bordercolor="#CCCCCC"><div align="left"><font color="#000000" size="1" face="Verdana"><%=left(listar("texto"),100)%>....</font></div></td> <td bordercolor="#CCCCCC"><div align="center"><font color="#000000" size="1" face="Verdana"><%=listar("sp")%></font></div></td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td bordercolor="#CCCCCC"> </td> <td><div align="center"><a href="not_altera.asp?cod=<%=listar("codnot")%>"><img src="imag/a_lib.jpg" alt="ALTERAR" width="15" height="15" border="0"></a> </div> </td> </tr> <tr> <td colspan="11" bgcolor="#CCCCCC"><img src="imag/linha.gif" width="34" height="1"></td> </tr> <% if reg = 4 then response.Write("</tr>") reg = 0 end if conte = conte +1 reg = reg + 1 listar.movenext wend %> </table></td> </tr> </table></td> </tr> <p> </p> </table> <script language="javascript"> function imprime(text){ text=document print(text) } </script> <form> <input type="button" name="imprimir" value="imprimir" onClick="imprime()"> </form> </td> </tr> <tr> <td height="19" valign="top"> <div align="center"> <!--#include file="net_inf.asp"--> </div></td> </tr> </table> </td> </tr> </div> <%call desconectar%> <tr> <td height="40"><div align="center"><font color="#666666" size="1" face="Verdana"><strong> <%If pagina > 1 then%> <a class="azul" href="not_exclu.asp?pagina=<%=pagina-1%>">[Página Anterior]</a> <% end if page = 1 while page <= listar.pagecount if listar.pagecount <> 1 then IF page = pagina+1-1 then %> <a class="azul" href="not_exclu.asp?pagina=<%=page%>"><u><%=page%></u></a> <%else%> <a class="azul" href="not_exclu.asp?pagina=<%=page%>"><%=page%></a> <% end if end if page = page+1 wend IF strcomp(pagina,listar.PageCount) <> 0 then %> <a class="azul" href="not_exclu.asp?pagina=<%=pagina+1%>">[Próxima Página]</a> <%end if%> </strong></font></div> </body> </html> Aguardo retorno e obrigado INVENTÁRIO FINAL GERAL - 09ABR18 1º CIA.xlsx
  7. Olá, sou iniciante em VB.NET e estou desenvolvendo um sistema onde preciso multiplicar 2 valores de uma linha (PrecoUnitario e Quantidade) e jogar o resultado numa terceira coluna PrecoTotal mas não estou conseguindo de forma alguma... alguém pode dar um Help? Estou adicionando as linhas através de 3 TextBox e um DomainUpDown organizado da seguinte forma: (txtBox) (domainUpDown) (txtBox) (txtBox) Código Quantidade Nome PrecoUnit Total Para adicionar os valores ao DataGridView estou usando o seguinte código: Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click Me.dgvProdutos.Rows.Add(txtCodigo.Text, updQuantidade.Text, cboNomeProduto.Text, txtPreco.Text) End Sub Agradeço qualquer ajuda desde ja...
  8. Criei um formulário de contato que pede para o usuário informar seu nome e e-mail, porém queria saber se é possível fazer um botão que ao clicar envie esses dados para meu e-mail, para que eu possa entrar em contato. O formulário é esse: O campo de nome chama-se: Txt_Nome O campo de e-mail chama-se: Txt_Email A botão enviar chama-se: Btn_Enviar
  9. Galera estou criando um programa simples que acessa a página da internet e atualiza a cada um certo tempo, onde o tempo o usuário vai colocar manualmente, ou seja não vai estar diretamente no site, vi alguns tutoriais no youtube porém nenhum que resolvesse meu problema, segue o código usado até o momento e o visual do programa Public Class Form1 Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click WebBrowser1.Navigate(TextBox1.Text) End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick WebBrowser1.Refresh() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Timer1.Start() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Timer1.Stop() End Sub End Class Valeu!!!
  10. então eu queria saber se é possivel fazer um chat com pastebin tipo todo mundo em uma conta editando o paste e todo mundo tambem em uma raw atualizando toda hora e colocando em uma textbox com um timer tambem se é possivel quanto tiver 1000 linhas ele deletar para nao lotar
  11. Boa tarde Eu tenho que criar um programa que transforme centímetros em polegadas. Alguém pode me ajudar???
  12. Bom dia galera, Tenho que fazer um programa quase igual aqueles simuladores de circuitos eletrônicos. Minha dúvida é como começar rsrsr .Como eu vou criar aquela tela de desenho, colocar as imagens, mover elas la dentro, conectar as imagens com linhas ... Alguém aí pode me ajudar ? Muito obrigado !!
  13. Alguém conseguiria me ajudar porque estava fazendo um sistema de criptografia com MD5, mais toda vez que eu gero o MD5 com mesmo texto me retorna uma coisa diferente, Tipo eu mando encripta a string escrito "Test" primeiro me retorno "asddxc2dsaf=" e depois fechei e abrir o programa com a mesma string e me retorno "kjnfigjdfnj=", como posso fazer sempre retorna um resultado...
  14. Boa Noite ! Estou com problemas ao pesquisar fotos armazenadas no banco de dados MYSQL no PHPADMIN no picturebox e no datagridview Imports System.IO Imports System.Data.Odbc Imports System.Drawing.Imaging Public Class FrmAlunos_Cadastrados Private Sub listar() filtrar("select * from aluno", "aluno") DataGridView1.DataSource = dados DataGridView1.DataMember = "aluno" olecon.Close() End Sub Private Sub btnpesquisar_Click(sender As Object, e As EventArgs) Handles btnpesquisar.Click Dim comando = "select * from aluno where cod_rm =" + txtra.Text pesquisar(comando) If guarda.Read() Then txtra.Text = guarda(1).ToString() Dim bytePicData() As Byte bytePicData = guarda.Item("foto") Dim PicMemStream As New System.IO.MemoryStream(bytePicData) PictureBox1.Image = Image.FromStream(PicMemStream) Else MsgBox("RM não localizado") txtra.Clear() PictureBox1.Image = Nothing End If guarda.Close() olecon.Close() End Sub Private Sub btnlistar_Click(sender As Object, e As EventArgs) Handles btnlistar.Click listar() olecon.Close() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnhome.Click FrmFuncionários.Show() Me.Close() End Sub Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick Dim linha = DataGridView1.CurrentCellAddress.Y txtra.Text = DataGridView1(1, linha).Value.ToString() Dim comando = "select * from aluno where cod_rm =" + txtra.Text pesquisar(comando) If guarda.Read() Then Dim bytePicData() As Byte bytePicData = guarda.Item("foto") "o erro ocorre aqui erro: "An unhandled exception of type 'System.OverflowException' occurred in System.Data.dll Additional information: Operação aritmética resultou em um estouro." Dim PicMemStream As New System.IO.MemoryStream(bytePicData) PictureBox1.Image = Image.FromStream(PicMemStream) End If olecon.Close() guarda.Close() End Sub End Class gostaria de ajuda? Obs: o banco de dados está armazenado no php admin atráves do programa vertrigo e da conexão mysql ODBC.
  15. Olá, Bom dia... Bom eu fiz uma procedure de update, porém tem alguns dados que as vezes não vão ser preenchidos na hora do update, como eu faço para executar apenas os campos preenchidos e deixar de lado os nulos? sem dar erro obrigado. EDIT1: em expecifico ele da erro de quando os " números ou datas " dos textbox estão nulos, por que ele tenta converter o " nulo em numero/date "
  16. Galera, estou com esse problema "ExecuteReader: propriedade Connection não foi inicializada" toda vez que tento consultar a base de dados para passar para meu form. Sendo que eu tenho um projeto TOTALMENTE PARECIDO/IDÊNTICO mas esse está dando problema :/
  17. Fala Galera, Estou tentando resolver um código e, por ser leigo no assunto, tenho penado esses dias. A ideia é a seguinte: Tenho uma planilha (workbook) no excel que é abastecida diariamente com centenas de lotes de produtos. Todos esses lotes tem um prazo de aprovação. Estou tentando criar uma planilha (outro workbook) para funcionar como central de avaliação de prazos por meio de macros. A planilha possui dois botões: no primeiro, seleciono o workbook o qual será avaliado de acordo com os prazos (pode ser matéria-prima, embalagem, etc). Esse botão retorna o endereço da planilha de avaliação, a qual é selecionada com um opendialog, na célula F5 da "central de avaliação". O segundo botão, a intenção é que ele faça uma varredura na coluna "datas" da planilha apresentada em "F5", copie as datas que estão próximas ao vencimento (menos de 4 dias) e cole na "central de avaliação" na unica aba existente. Deu pra entender? Até agora, o código que eu cheguei está apresentado abaixo. O primeiro botão funciona perfeitamente, já o segundo, seleciona as datas mas apenas cria um filtro na planilha de origem dos dados e não cola na planilha central. Sub copiarClick() 'teste novo Dim rawDataSht As Worksheet, filtDataSht As Worksheet Dim pasta As String Dim wbOrigem As Workbook Dim wbDestino As Workbook 'Identificação caminho pasta e conferencia do preenchimento If Range("F5").Value <> "" Then pasta = Range("F5").Value Else MsgBox "Selecionar planilha para avaliação." Exit Sub End If Set wbDestino = ThisWorkbook Workbooks.Open (pasta) Set wbOrigem = Workbooks.Open(pasta) With wbOrigem AutoFilterMode = False With Range("M2", Range("M" & Rows.Count).End(xlUp)) .AutoFilter Field:=1, Criteria1:=Array("1", "2", "3", "4") On Error Resume Next .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Copy End With wbDestino.Sheets("Liberação").Cells(2, 2).PasteSpecial xlPasteValues .AutoFilterMode = False Application.CutCopyMode = False End With wbOrigem.Close (True) End Sub Alguém tem alguma dica? Desde já agradeço. Abraço Avaliação de Prazos - Liberação CQ.zip
  18. Estou tendo esse problema um simples código no meu vb e no virus total diz que e um malware. alguem teve algum problema com algo parecido ?
  19. Executo instalador de um jogo, o mesmo aparece em processos e na barra de tarefas porém não inicia com=nforme print anexo, isso acontece com varios jogos.
  20. Gostaria de saber como se usar esses dois laços de repetição , poderia ser com um exemplo bem simples explicando a diferença entre cada um.
  21. Bom estou com a seguinte dúvida, estou criando um programa, e ele automaticamente instala um um componente, gostaria de saber como faço para meu programar ver se o programa está instalado e caso estiver ele não instalar o programa
  22. Bom dia a todos bom estava fora por que tinha esquecido a minha e não conseguia recupera-la mais a gora consegui. Bom eu estou com dois problemas mais vou falar primeiro de um. Gostaria que vocês me ajudassem Gostaria de gera combinações de a parti de uma lista eu estou usando um groupbox com dez lebal e um listiview com cinco colunas O exemplo a baixo obrigado
  23. Boa noite, galera Sou novo na programação e estou desenvolvendo um CheckBox que tem como objetivo somar valor a uma variável "sum" conforme a quantidade de Box que forem selecionados, mas não estou conseguindo por falta de conhecimento de Sintaxe, esse é o código: Private Sub btnCalcular_Click(sender As System.Object, e As System.EventArgs) Handles btnCalcular.Click Dim sum As Double = 0 If chkPizza.Checked Then If chkMussarela.Checked Then sum + 22.0 ElseIf chkAtum.Checked Then sum + 25.0 ElseIf chkBacon.Checked Then sum + 25.0 ElseIf chkCalabresa.Checked Then sum + 26.0 End If End If Já tentei adicionar Val(sum), mas não adiantou. Qual a sintaxe correta?
  24. Estou aprendendo vb.net, para eu trabalhar em casa sozinho criando pequenos programas para clientes, gostaria de saber se vale a pena continuar no vb.net, sabendo que eu quero apenas aprender a linguagem para criar programas básicos e futuramente aprender outra linguagem. Gostaria de sabe também se alguém podia me ajudar um pouco com dúvidas
  25. Ola pessoal, Eu queria saber se e possível passa todas colunas e items do ListView para o DataGridView. E se for possível como ? Agradeço se puder ajudar.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×