Ir ao conteúdo
  • Cadastre-se

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

  • 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

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

Encontrar resultados em...

Encontrar resultados que...


Data de criação

  • Iniciar

    FIM


Última atualização

  • Iniciar

    FIM


Filtrar pelo número de...

Data de registro

  • Iniciar

    FIM


Grupo


Caixas de som

Encontrado 48 registros

  1. Gente estou com dificuldades de achar como desabilitar pagina do TablePaje via código e nem nas configurações dele eu achei como fazer isso. Ex. tenho cinco páginas e preciso restringir uma delas via código mas não estou conseguindo.
  2. Alguém sabe como proceder para conseguir inserir os nomes de arquivos executáveis em um checkboxList? Criei uma tela e quero criar um instalador automático de programas, que instala tudo automaticamente, buscando de uma pasta na rede. Fiz a tela usando o designer do Visual Studio colocando valores manualmente. O que acontece é que, quando vou inserir buscando os nomes de arquivos usando um for, ele diz que se o designer não aceita valores vindos de outra função.. algo assim.
  3. Olá pessoas. Sou novo aqui. Já procurei em vários fóruns mas não obtive sucesso Estou tendo dificuldades em gerar uma rotina que subtraia datas em um datagridview e a partir dai colocar condições em outra colunas: como "dias para vencer" e "status" Seria uma tela de consulta, onde a datagridview é alimentada por um bd. As informações estão carregando corretamente, mas não sei a melhor forma para fazer essa subtração e condições nas outras colunas: "SELECT CASE", "IFs" ou "FOR NEXT" Consegui fazer em apenas uma linha com o CURRENTROW, mas queria que atualiza-se todas as linhas no meu GridView modelo exemplo No caso da Data Lançamento será ignorada e utilizada a DATE.TODAY para que seja sempre a data de hoje para que as condições funcionem diariamente. Não sei se fui muito claro...poderiam me ajudar? Desde já agradeço.
  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, 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
  6. 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
  7. 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
  8. Olá amigos, gostaria de saber qual o melhor forum, curso ou espaço na net para aprender VB.NET HiperAvançado? uso muito o Access(vba) e gostaria de já faver no VB.NET o que faço no Access-Vba. Fui ver a listview do Visual Studio comparando com a listview do Access, achei a do Access bem melhor com mais estrutura, ai me falaram que temos que baixar a datagridview (dll) na net e vi que muitos objetos bons mesmo do visual estão na net para baixarmos ou comprarmos... então fico na dúvida de como achar tudo do VB.NET, todas os objetos e bons objetos, em qual livro, em qual site, em qual forum, se alguem puder dar uma ideia ja ajuda espero e obrigado
  9. 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.
  10. 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...
  11. 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
  12. 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
  13. 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!!!
  14. 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
  15. Boa tarde Eu tenho que criar um programa que transforme centímetros em polegadas. Alguém pode me ajudar???
  16. 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...
  17. 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 !!
  18. 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.
  19. 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 "
  20. 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 :/
  21. 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
  22. 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 ?
  23. 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.
  24. 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.
  25. 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

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

×