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, autoração e gravação de áudio e vídeo
    • Programas
  • Sistemas Operacionais
  • Eletrônicos
  • Outros
  • Clube do Hardware

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


Encontrado 61 registros

  1. Public Sub PEntradaSaidaProdutos() Dim intEntradaSaida As Integer Using Con As SqlConnection = getconnectionSqlServer() Try Con.Open() Dim sql As String = "UPDATE EntradaSaida SET Qtd Minimo? WHERE Codigo" & TxtCodigo.Text 'Dim cmd As SqlCommand = New SqlCommand(sql, Con) intEntradaSaida = Val(TxtEstoqueMinimo.Text) + Val(TxtEntradaSaidaProdutos.Text) cmd.Parameters.Add(SqlDataReader("@Qtd Minimo", intEntradaSaida)) cmd.ExecuteNonQuery() Catch ex As Exception Finally Con.Close() End Try End Using End Sub Boa Noite! Estou aprendendo VB.NET e criei uma tabela no SQL, e estou adaptando o código abaixo para modificar apenas os dados da coluna Qtd Minimo, porém não sei como passar o parâmetro no exemplo do código abaixo, alguém pode ajudar. O código abaixo é adaptação de uma vídeo aula da internet. Public Sub PEntradaSaidaProdutos() Dim intEntradaSaida As Integer Using Con As SqlConnection = getconnectionSqlServer() Try Con.Open() Dim sql As String = "UPDATE EntradaSaida SET Qtd Minimo? WHERE Codigo" & TxtCodigo.Text 'Dim cmd As SqlCommand = New SqlCommand(sql, Con) intEntradaSaida = Val(TxtEstoqueMinimo.Text) + Val(TxtEntradaSaidaProdutos.Text) cmd.Parameters.Add(Sq("@Qtd Minimo", intEntradaSaida)) cmd.ExecuteNonQuery() Catch ex As Exception Finally Con.Close() End Try End Using End Sub A solução foi enviada pelo Carlos Henrique autor da aula, porém agora apresenta o seguinte erro: Erro BC30057 Muitos argumentos para "Public Overloads ReadOnly Default Property Chars(index As Integer) As Char".
  2. grazipeach

    VB.NET Net Framework 3.5 não instala

    Bem, eu já habilitei no windows features e coloco ele pra instalar e ele não instala de forma alguma. Tanto pelo windows update quanto baixando diretamente do site do windows tanto online quanto a versão offline do instalador. Ele dá o erro 0x80080005, mas quando eu clico em "me diga como resolvo esse problema" não encontro nenhuma solução. Uso o windows 10 e preciso dessa versão pra jogar alguns jogos que tenho na steam. Agradeço antecipadamente!
  3. BOM DIA ,agradecido desde ja gotaria se saber como faço um projeto basico no visual basic Pra ligar outro pc remotamente via make on lan (obs:ja tenho um server de lan house que estou criando e a versao cliente com uma form oculta so enviando a conexao pra server)não sei por onde começar nesta parte ,sou iniciante desde ja obigado
  4. É correto afirmar que quando estamos desenvolvendo um aplicativo, um programa de computador, em uma IDE quaisquer os códigos são transformados em códigos hexadecimal e não em binário, e esses códigos hexadecimal são lidos pelos processadores e transformados em binário e assim o computador vai entender quais comando executar
  5. Bom dia a todos. Tenho um datagridview com 4 colunas valor unidades subtotal excluir esta ultima do tipo button column gostaria de saber como faço pra por ação delete nessa ultima coluna. Desde já obrigado
  6. maiconph

    VB.NET Multiplicar Colunas no VB

    Olá bom dia todos. Tenho uma datagridview com 3 colunas Valor Unidade Subtotal gostaria de multiplicar a coluna valor pela unidade, mas como não entendo praticamente nada em vb pois estou começando agora, não consegui nem tem logica pra tentar pelo menos algo.Minha tabela foi criada pelo modo design. Alguém pode me dar uma luz ou indicar algum artigo pra eu ler q eu possa entender? desde já obrigado.
  7. Bem, a uns dois dias tentei executar um instalador no meu PC e me deparei com um erro. ao pesquisar sobre erro vi que era relacionado ao Net FW. fui direto ao site pra baixar alguma atualização ou a versão que está faltando. mas ao começou um caos. eu não consigo instalar versão alguma nem atualização também. as versões anteriores dizem que já possui uma versão igual ou posterior instalada. outras mostram o erro 0x800f080c. 0xc0000135. já tentei de tudo e não sei o que fazer, já revirei a internet toda e não acho problema similar. a versão que esta instalada é a 4.8... o que eu já tentei... ativar ou desativar recursos do win. lá mostra a ".NET Extensibility 4.8" desmarcada, caso eu marque ela carrega, não da erro e dizer q foi feito com sucesso... ao abrir novamente ou reiniciar está do mesmo jeito. instalar todas as versões manualmente, baixei exatamente TODAS as versões disponíveis na internet e não consigo instalar nenhuma dela. exceto a 1.1 ( não sei o motivo) pensei em desinstalar a versão 4.8 e ir instalando todas gradativamente... porém não consigo desinstalar a atual por não aparecer no "desinstalar e instalar programas" la so aparece a versão 1.1.
  8. Olá, estou tentando fazer uma comparação de duas textBox no VBA, queria colocar uma margem de erro de R$5,00, para se caso o valor real ultrapassasse o valor estimado em até 5 reais, continuasse na cor preta, caso ultrapassasse o teto, a cor muda para vermelho. quando fiz o teste usando somente o valor estimado, deu tudo certo, más quando coloquei "+ 5", o texto fica sempre vermelho. queria enteder o que está acontecendo ValorReal e ValorEst são ambos TextBox. Private Sub ValorReal_Change() Dim Teto Teto = ValorEst.Value + 5 '(se o ValorReal estiver vazio, os tipos se tornam incompatíveis, por que o ValorReal.Value passa a ser do tipo string) If Not ValorReal.Value = "" Then If ValorReal.Value > Teto Then ValorReal.ForeColor = &HFF& Else ValorReal.ForeColor = &H0& End If End If End Sub
  9. Olá. Estou desenvolvendo um programa de cadastro de cliente em VB.Net pelo Visual Studio. Estou seguindo um curso em vídeo, porém, acredito que no curso ele esteja usando o VS 2012 e eu estou utilizando o VS 2017. Não sei se isso pode ser o problema, mas vamos ao ocorrido: Na vídeo aula o professor seleciona o "Local Database", que cria um .sdf, porém, meu VS não tem essa opção, somente tendo como criar um Database completo em .mdf Alguém pode me explicar como conseguir adicionar um .sdf? Ou alguma solução em que eu possa criar um banco de dados local de forma prática? Pois o intuito é eu liberar esse programa para pequenas empresas da comunidade, e sendo assim ele precisa ser o mais fácil possível de utilizar. Onde a pessoa apenas abra ele e utilize, sem a necessidade de instalar um SQL server ou qualquer outra coisa do tipo.
  10. Oi pessoal, sou novo aqui no fórum. Gostei bastante da sintaxe do VB.Net, e gostaria de saber se vale a pena estudá-la em 2019. Pretendo criar aplicativos desktop e para Android e trabalhar em uma compania, e também trabalhar como freelance por conta própria. Obrigado a todos.
  11. Sou novato no assunto, na vdd antigo mas nunca me aprofundei, parei no VB 5 ou 6, sei lá rs. Uma curiosidade, para desenvolver uma aplicação que permita conexão com uma dessas opções: API para Streaming para TCP/IP API para Websocket Streaming com Web Feeder API para REST com entrega em JSON ou XML Minhas dúvidas são: Posso utilizar qualquer uma das opções de conexão para transmissão de dados em Visual Basic ou teria alguma linguagem específica para alguma? Qual dessas 3 modalidades seria mais fácil para um iniciante aprender e manusear? E tem alguma diferença de uma para outra API em relação a velocidade e estabilidade? Obrigado!
  12. vb.net windows forms galera nao to achando solução pra isso , tenha uma sub no form que carrega uma listview normalmente porém se coloca essa sub em um modulo e fazendo as modificaçoes necessarias ainda assim ele nao carrega o listview.... alguem sabe explicar o problema
  13. Eai pessoal! estou com um problema no meu projeto no VB.NET Express: O valor '12' não é válido para 'Value'. 'Value' deve estar entre 'minimum' e 'maximum'. Nome do parâmetro: Value no meu projeto tem varia "ProgressBar" que estão dando esse erro, sempre que o valor da "ProgressBar" é ultrapassada. Ex: 10/12. Serio preciso muito da ajuda de vocês. Desde Já, Agradeço.
  14. kaio_111

    VB.NET Criar simulador de circuito

    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 !!
  15. 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.
  16. 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.
  17. 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.
  18. 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
  19. 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
  20. 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
  21. 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
  22. 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
  23. 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.
  24. 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...
  25. 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

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

×
×
  • Criar novo...

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!