Pesquisar na Comunidade

Olá, Bom Dia! Sou novo por aqui mas entendo uma boa parte do VB. Queria que vocês me ajudassem nessa minha duvida. Estou desenvolvendo um Sistema de Controle Patrimonial no Visual Studio 2010 Ultimate em linguagem Visual Basic que é a mais básica e por isso entendo melhor. E estou tendo problemas na hora de gerar os relatórios de todos os bens patrimoniais. Pois no meu sistema à bens que foram dados baixa (bens que não estão disponíveis para uso devido a quebras ou por serem velhos.) e também bens que foram emprestados à outras organizações ou Centros de Custos. Por isso queria saber como fazer para quando eu for gerar um relatório geral, não aparecer nele os bens que não estão mais disponíveis (baixas, doações e emprestados), e só aparecer os que estão ativos ainda, sabe. Se poderem me ajudar eu agradeço! E se tiver alguém que entende bem de Visual Basic ou Visual Studio e poder me ajudar, favor entre em contato, pois como sou novo nessa linguagem eu não entendo muito. Obrigado e Até mais!

É uma página própria para listar postagens de uma determinada categoria. Há uma tabela post e outra categoria No começo da página eu chamo no nome da categoria. O código: <?php $id = $_GET["id"]; //Quando clico na origem (http://localhost/cftv/single-categoria.php?id=2) $sql = "SELECT cat_nome FROM categoria WHERE cat_id = ".$id; // Então, requisito o nome da categoria com base no id vindo do GET $qry = @mysqli_query($conexao, $sql); $linha = mysqli_fetch_array($qry); echo "<h1>".$linha["cat_nome"]."</h1>"; // Até aqui, tudo certo. Aparece sempre o nome da categoria que eu cliquei. Se fosse na outra categoria (Ex: 3), outro nome apareceria. ?> Agora, eu pretendo lista apenas postagens desta categoria. Aí, deu um branco e eu não estou conseguindo raciocinar sobre a solução: <?php $id = $_GET["id"]; $sql = "SELECT * FROM post p, categoria c WHERE p.cat_id = ".$id; $qry = @mysqli_query($conexao, $sql); while ($linha = @mysqli_fetch_array($qry)) { ?> <a href='single-post.php?post_id=<?php echo $linha["post_id"] ?>'><h2><?php echo $linha["post_title"] ?></h2></a> <br> <img src='<?php echo $linha["post_img"];?>' class="img-responsive" style="height: 200px;" > <br> <p> <?php $text = $linha["post_msg"]; echo substr($text, 0, 300) . '...'; ?> </p> <p> <span class="fa fa-clock-o" style="color: #0098da;"></span><strong> <?php echo $linha["post_data"] ?></strong> <br> <span class="fa fa-file-text-o" style="color: #0098da;"></span><strong> <?php echo $linha["post_tags"] ?></strong> <br> <span class="fa fa-list-ul" style="color: #0098da;"></span><strong> <?php echo $linha["cat_nome"] ?></strong> </p> <p><a href="single-post.php?post_id=<?php echo $linha["post_id"] ?>" class="btn btn-default default-custom">LER MAIS</a></p> <br> <?php } ?> <?php echo $paginacao; ?> Do jeito que está o segundo código (parei aí...), aparece uma postagem dessa categoria. O problema é que a postagem aparece infinitamente .... Agradeço desde já qualquer ajuda...

Boa tarde, Estou com dificuldades em montar um Report com as seguintes informações; Usando Crystal Report 13 no Visual Studio 2012 - Visual Basic; Tenho três tabelas; Tab1 : RefCod, DataPed, NomeCliente, ValorVenda, ValorDesconto Tab2 : RefCod, FormaPagto, ValorPagto Tab3 : RefCod, ProRef, ProDescr, ProVrUnit, ProTotal Sei que preciso usar um ou mais SubReport, o que não estou conseguindo é fazer com que o SubReport me mostre os dados relacionados a cada registro do Tab1: RefCod automático, sem precisar o usuário informar.

Olá, bom dia Gostaria de obter uma solução com o método filter para agilizar a consulta, evitando utilizar uma instrução select pois tornaria o sistema lento com o crescimento da base de dados. Estou utilizando o evento change de um textbox e a cada alteração o recordset é filtrado e o resultado é apresentado em um datagrid. Com tipo de dado texto funciona normal mas com número, não. Segue parte do código para análise dos caros colegas: Private Sub txLOCA_Change() Dim strText As String Dim strRetorno As String Dim strVal As String Dim lngSelStart As Long Dim strPro On Error Resume Next strRetorno = txLOCA.Text lngSelStart = txLOCA.SelStart strText = "*" & txLOCA.Text & "*" strVal = txLOCA.Text (aqui está o problema: não sei qual caractere coringa devo usar, já tentei *, % e # - não deu certo) If IsNumeric(txLOCA.Text) Then strPro = strVal Else strPro = strText End If If Me.txLOCA.Text <> Nulo Then vrLOCA.Filter = "" & CampoProcura & " like " & strPro & "" (CampoProcura é uma variável setada em outro procedimento) dgLOCA.Columns(0).Visible = False lbTOTA.Caption = "Total de Registros: " lbTOTA.Caption = lbTOTA.Caption & " " & vrLOCA.RecordCount Me.txLOCA = strRetorno Me.txLOCA.SelStart = lngSelStart Else vrLOCA.Filter = "" vrLOCA.Requery dgLOCA.Columns(0).Visible = False lbTOTA.Caption = "Total de Registros: " lbTOTA.Caption = lbTOTA.Caption & " " & vrLOCA.RecordCount Me.txLOCA = strRetorno Me.txLOCA.SelStart = lngSelStart End If End Sub Lembrando que eu estou usando VB6, banco de dados access e ADO Eu já tentei: vrLOCA.Filter = "CStr(campo) like ' *11* ' " Não dá certo