
Gafanhoto
Membros-
Total de itens
494 -
Registro em
-
Última visita
Tudo que Gafanhoto postou
-
beleza, achei mais fácil trazer pronto do banco, assim eu posso definir a ordem que eu quiser às notícias. Pensei que tinha algum jeito mais fácil de fazer. Valeu
-
Dá uma olhada no link que coloquei da Globo no tópico MAIS LIDAS na direita. Está assim: 1 Título da Notícia 1 2 Título da Notícia 2 3 Título da Notícia 3 4 Título da Notícia 4 5 Título da Notícia 5 Eu quero saber como faço em uma gridView para colocar o 1 2 3 4 5 ao lado esquerdo, em uma coluna do gridView.
-
Desculpa ressuscitar o tópico mas não to conseguindo e não achei algo parecido em lugar nenhum.
-
Estou usando um Dataset tipado e pra mostrar os dados um gridView.
-
Buenas, é o seguinte. Eu tenho um sistema de notícias atualmente que passa em um marquee com direção pra cima. Quero fazer mais ou menos parecido com o G1 na parte de MAIS LIDAS na direita. http://g1.globo.com/ beleza, já fiz um TOP 5, já to puxando só o que quero. No entanto, como faço para gerar o número 1, 2, 3, 4, 5 no canto esquerdo?
-
Cara, é uma API do Google que permite usar várias fontes no site fora as fontes padrão. Mas eu consegui. Na real, eu estava colocando no nome da fonte "PTSansNarrow", mas eu sou muito amador, precisava dar um espaço "PT Sans Narrow"; Quanto a API do Google, pode acessar nesse lnk: http://code.google.com/webfonts Tutorial para usar aqui: http://code.google.com/intl/pt-BR/apis/web...ng_started.html Tem também o Cufón que eu gosto muito. Dá pra escolher a fonte que quiser usar no site, daí ele cria um JS com coordenadas que permite usar a fonte no site. Muito bom também.
-
Buenas.. é o seguinte... Estou tentando fazer com que a minha MasterPage puxe a API do Google para alterar as fontes na minha página ASPX. Mas á tentei por CSS, na mao, magia negra, e nada. Eu tenho um menu na mesma master page, em javascript, e nele funciona a fonte. No entanto, no resto da página não funciona. Nem nos simples H1, nem nas gridViews. Alguém aí já conseguiu usar a API do Google no VIsual Studio e pode me ajudar?
-
beleza... valeu mais uma vez quintelab, tu é o cara. Vou postar o código completo aqui pra quem precisar. O problema tá resolvido. É o seguinte. Toda vez que derem um UPDATE na base offline o campo status será 1. Na hora de atualizar no banco online, eu varro a tabela por linhas com status = 1 e dou um update na base online. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'define a string de conexao com provedor caminho e nome do banco de dados Dim strProvider As String = "SERVER=base;UID=sa;PASSWORD=123456;DATABASE=banco" 'define a instrução SQL Dim strSql As String = "SELECT * FROM clientes" 'cria a conexão com o banco de dados Dim con As SqlConnection = New SqlConnection(strProvider) 'cria o objeto command para executar a instruçao sql Dim cmd As SqlCommand = New SqlCommand(strSql, con) 'abre a conexao con.Open() 'define o tipo do comando cmd.CommandType = CommandType.Text 'cria um dataadapter Dim da As SqlDataAdapter = New SqlDataAdapter(cmd) 'cria um objeto datatable Dim clientes As DataTable = New DataTable 'preenche o datatable via dataadapter da.Fill(clientes) 'atribui o datatable ao datagridview para exibir o resultado DataGridView1.DataSource = clientes Dim RowCount As Integer = 0 For Each dr As DataRow In clientes.Rows RowCount = (RowCount + 1) If (dr("status").ToString = "1") Then 'AQUI VAI O UPDATE End If Next End Sub
-
Bah, sei que falei que não precisava, mas LOOP no row count do dataset seria mais ou menos assim? Dim RowCount As Integer = 0 For Each dr As DataRow In mydataset.Tables(1).Rows RowCount = (RowCount + 1) If (dr(0).ToString = "1") Then 'AQUI VAI O UPDATE End If Next Seria mais ou menos isso?
-
Com eu programei muito tempo com ASP e seus recordsets, agora no .NET eu to me quebrando. É o seguinte: Quero dar um select em uma tabela e ver o campo status. Se o campo status for igual a 1 então eu vou dar um update em outra tabela. No ASP, eu faria um recordset, daria um loop, e no meio do loop eu faria um IF e se fosse verdadeiro dava o update. Mas no .NET to me confundindo. Não sei se uso datasets, ou LINQ. Preciso na verdade dos passos, nada de código ou passo a passo. Apenas o que usar para fazer isso e quais recursos usar. Desde já agradeço a ajuda de vocês...
-
É o seguinte. Estou rodando ASP no IIS local. Já tentei de todas as maneiras resolver o problema e não consigo. Ao dar um SELECT na tabela cadastroGeral e pegar o campo NOME está acontecendo o seguinte. Digamos que o nome do cliente seja ASSOCIAÇÃO DE CAVALOS CRIOULOS. Ao invés de me retornar o nome completo, me retorna apenas a primeira palavra ASSOCIAÇÃO. Quando acha um espaço em branco se perde. Se eu dou um replace no resultado, por qualquer coisa, tipo: replace (rsSel("nome"), " ", "xx") Daí retorna tudo certinho com o xx no meio. Isso não ocorre apenas no campo nome. Acontece em todos os campos da página. O que faço? Segue o código: <!--#include file="conexao.asp"--> <% id = Trim(Request.QueryString("id")) rsSel = server.CreateObject("adodb.recordset") querySel = "select * from cadastroGeral where idCadastroGeral="&id&"" set rsSel = connPubs.execute(querySel) %> <style type="text/css"> <!-- .style2 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: medium; } .style3 {font-size: medium} .style4 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: small; } .style5 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: medium; font-weight: bold; } --> </style> </head> <body> <div align="center"> <table width="90%" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC"> <tr> <td colspan="2" bgcolor="#CCCCCC"><div align="center" class="style5">DADOS GERAIS</div></td> </tr> <tr> <td width="25%" bgcolor="#FFFFFF"><div align="right" class="style4">NOME DA EMPRESA:</div></td> <td bgcolor="#FFFFFF"><span class="style2"> <label> <input name="nomeEmpresa" type="text" id="nomeEmpresa" size="40" value=<%= rsSel("nome") %> /> </label> </span></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">NOME FANTASIA:</div></td> <td bgcolor="#FFFFFF"><input name="nomeFantasia" type="text" id="textfield7" size="40" value=<%= rsSel("fantasia") %> /></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">CONTATO:</div></td> <td bgcolor="#FFFFFF"><input name="contato" type="text" id="contato" size="20" maxlength="50" value=<%= rsSel("contato") %> /></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">ENDEREÇO:</div></td> <td bgcolor="#FFFFFF"><span class="style2"> <label> <input name="endereco" type="text" id="endereco" size="50" value=<%= rsSel("endereco") %> /> </label> </span></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">BAIRRO:</div></td> <td width="75%" bgcolor="#FFFFFF"><div align="left" class="style2"> <input name="bairro" type="text" id="bairro" size="20" maxlength="50" value=<%= rsSel("bairro") %> /> </div></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">CIDADE/ESTADO:</div></td> <td bgcolor="#FFFFFF"> <select name="jumpMenu" id="jumpMenu" onChange="MM_jumpMenu('parent',this,0)"> <option>item1</option> </select> </td> </tr> <tr> <td colspan="2" bgcolor="#CCCCCC"><div align="center" class="style5">EMAILS</div></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">EMAIL:</div></td> <td bgcolor="#FFFFFF"><input name="email" type="text" id="email" size="30" maxlength="50" value=<%= rsSel("email") %> /></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">EMAIL2:</div></td> <td bgcolor="#FFFFFF"><input name="email2" type="text" id="email2" size="30" maxlength="50" value=<%= rsSel("email2") %> /></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">EMAIL3:</div></td> <td bgcolor="#FFFFFF"><input name="email3" type="text" id="email3" size="30" maxlength="50" value=<%= rsSel("email3") %> /></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">EMAIL4:</div></td> <td bgcolor="#FFFFFF"><input name="email4" type="text" id="email4" size="30" maxlength="50" value=<%= rsSel("email4") %>/></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">EMAIL5:</div></td> <td bgcolor="#FFFFFF"><input name="email5" type="text" id="email5" size="30" maxlength="50" value=<%= rsSel("email5") %>/></td> </tr> <tr> <td colspan="2" bgcolor="#CCCCCC"><div align="center" class="style5">TELEFONES</div></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">TELEFONE:</div></td> <td bgcolor="#FFFFFF"><span class="style2"> <input name="ddd" type="text" id="ddd" size="2" maxlength="2" value=<%= rsSel("ddd") %> /> - <input name="telefone" type="text" id="telefone" size="8" maxlength="8" value=<%= rsSel("telefone") %> /> </span></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">TELEFONE2:</div></td> <td bgcolor="#FFFFFF"><span class="style2"> <input name="ddd2" type="text" id="ddd2" size="2" maxlength="2" value=<%= rsSel("ddd2") %> /> - <input name="telefone2" type="text" id="textfield16" size="8" maxlength="8" value=<%= rsSel("telefone2") %> /> </span></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">TELEFONE3:</div></td> <td bgcolor="#FFFFFF"><span class="style2"> <input name="ddd3" type="text" id="textfield17" size="2" maxlength="2" value=<%= rsSel("ddd3") %> /> - <input name="telefone3" type="text" id="textfield18" size="8" maxlength="8" value=<%= rsSel("telefone3") %> /> </span></td> </tr> <tr> <td bgcolor="#FFFFFF"><div align="right" class="style4">TELEFONE4:</div></td> <td bgcolor="#FFFFFF"><span class="style2"> <input name="ddd4" type="text" id="textfield19" size="2" maxlength="2" value=<%= rsSel("ddd4") %> /> - <input name="telefone4" type="text" id="textfield20" size="8" maxlength="8" value=<%= rsSel("telefone4") %> /> </span></td> </tr> <tr> <td colspan="2" bgcolor="#CCCCCC"><div align="center" class="style5">ANOTAÇÕES</div></td> </tr> <tr> <td colspan="2" bgcolor="#FFFFFF"><span class="style2"> <label> </label> </span> <span class="style3"> <label></label> </span> <span class="style3"> <label></label> </span> <label><div align="center" class="style2"> <br /> <textarea name="anotacoes" id="anotacoes" cols="45" rows="5"></textarea> <br /> <br /> </div></label></td> </tr> <tr> <td colspan="2" bgcolor="#FFFFFF"><span class="style3"></span></td> </tr> <tr> <td colspan="2"><div align="center" class="style2"> <label> <input type="submit" name="button" id="button" value="ALTERAR" /> </label> </div></td> </tr> </table> <p> </p> </div> </body> </html>
-
Cara, valeu pela dica. Posto aqui como ficou o código se alguém precisar: If e.Row.RowType = DataControlRowType.DataRow Then Dim hl As HyperLink = e.Row.FindControl("HyperLink1") 'MONTAR O LINK AQUI Dim consultor = Request.QueryString("consultor") Dim idConsultasPendentes = e.Row.Cells(0).Text hl.Text = idConsultasPendentes hl.NavigateUrl = "http://www.site.com.br/resposta.asp?consultor=" + consultor + "&id=" + idConsultasPendentes + "" End If
-
Era isso mesmo.. vou dar uma estudada... muito obrigado...
-
Buenas... é o seguinte... Tenho uma gridView e preciso que em um dos campos contenha um hyperlinkfield ( pode ser templatefield, enfim qualquer coisa ) que pegue dois parâmetros. Um do banco de dados e outro o conteúdo de uma label. O campo que preciso pegar do banco é o ID e a label é lblNome.Text. Como faço pra criar um hyperlink assim, por exemplo: http://www.site.com.br?id=9&nome=Guilherme ???????????????? Sendo ID o conteúdo do banco e nome o text da label.
-
Exportar dados de Access(mdb) para Word no vb 2008 ou vb 2010?
pergunta respondeu ao joanalima2010 de Gafanhoto em .NET
Cara, porque precisa ser DOC? não pode ser TXT por exemplo? Qual o motivo de ser necessário utilizar DOC ? -
Buenas... Estou querendo aprimorar a busca em um site com mais de 250 mil registros. Atualmente, ele conta com uma busca que traz os resultados em ordem alfabética ou por categoria. Eu quero fazer a busca por ordem de relevância. Apelo para a experiência de vocês, pois li muitos artigos sobre isso, mas nada que explique como fazer, não no código em si, mas a teoria mesmo. Eu li várias coisas sobre usar MATCH e AGAINST no SELECT, e tal, mas isso em MySQL. O banco é SQL Server. Por exemplo, o cliente pesquisou sobre "IPI incidente sobre a batata". Preciso que venha em primeiro lugar se contiver TODAS as palavras um atrás da outra, segundo que contenha TODAS as palavras. não importa a ordem, e por aí vai. Mas não preciso de código, preciso da experiência de vocês, por onde começar, e por aí vai. Não sei se fui bem claro, qualquer dúvida é só falar ae....
-
Ae, desculpa abrir o tópico e já responder, mas eu estava há 2 dias procurando por isso, e acabei encontrando a solução agora. O ODBC não pega por nome de variável, e sim por posição. Ou seja, no values no insert into tem que colocar um ponto de interrogação (?) Ficou assim o código: 'CONECTAR O BANCO Dim conexao As New clConexao Dim insere As String = "insert into cadastroGeral (nome) values (?)" Try Dim cmd As New OdbcCommand(insere, conexao.conexao) cmd.Parameters.Add("@empresa", OdbcType.VarChar) cmd.Parameters("@empresa").Value = Me.TextBox1.Text 'conectar, executar o insert into e desconectar conexao.Conectar() cmd.ExecuteNonQuery() conexao.Desconectar() Catch ex As Exception End Try
-
Bah, parece simples, mas to quebrando a cabeça e não tá funcionando de jeito nenhum. Tenho uma conexão em ODBC e to tentando dar um INSERT INTO simples. ´ Eu fiz um teste usando o seguinte código: Dim conexao As New clConexao Try Dim insere As String = "insert into cadastroGeral (nome) values ('guilherme')" Dim cmd As New OdbcCommand(insere, conexao.conexao) 'conectar, executar o insert into e desconectar conexao.Conectar() cmd.ExecuteNonQuery() conexao.Desconectar() Catch ex As Exception End Try Funciona perfeitamente. Mas quando eu tento passar um parâmetro, ele não insere. Por exemplo: Dim conexao As New clConexao Try Dim insere As String = "insert into cadastroGeral (nome) values (@empresa)" Dim cmd As New OdbcCommand(insere, conexao.conexao) 'Passar os parâmetros cmd.Parameters.AddWithValue("@empresa", "guilherme") 'conectar, executar o insert into e desconectar conexao.Conectar() cmd.ExecuteNonQuery() conexao.Desconectar() Catch ex As Exception End Try Já tentei fazer assim também: Dim empresa = New OdbcParameter("@empresa", "guilherme") cmd.Parameters.Add(empresa) Não dá erro nenhum, simplesmente não insere.
-
Resolvido... Valeu pela ajuda mais uma vez.
-
Tá.. consegui fazer com que o conteúdo do HTML esteja em uma label. Como eu faço pra percorrer o conteúdo da label pra achar a palavra que estou procurando?
-
Eu uso uma classe pra algo parecido, a WebClient(). Seria essa? Vou fazer o seguinte. Vou tentar colocar o que ela me retrona em uma label e ver se funciona. Assim que posso fazer uma classe pra cada uma das buscas, pois como são uns 8 ou 9 regulamentos, cada um com 20, 50, 70 arquivos, fica mais fácil de buscar. Se eu conseguir posto aqui, fico no aguardo se tu tiver alguma idéia melhor. falou
-
É possível acessar por URL. Falando nisso, obrigado pelo convite da copa, da última vez que vi tava na posição 187, rsrs... A melhor nota foi um 9 na de Visual Studio, tá feia a coisa.. rsrs Mas quanto a minha busca, dá pra acessar por URL sim.
-
Seguinte. Preciso fazer uma busca em uns 70 arquivos HTML presentes em uma pasta. Esses arquivos terão sempre o mesmo nome. Antigamente, eu usava ASP com FSO. Eu fazia um sistema de busca que encontrava dentro dos HTML. Mas em VB.net não achei nada ainda. Alguém sabe de algum componente que faça essa busca automatizada? Ou tem algum código que faça isso usando a classe streamreader? Ou tem algo que use que é diferente disso que funcione bem? :blink:
-
No IExplorer e no Firefox o FCK Editor funciona muito bem. Para fazer ele funcionar, tem que dar permissão para as pastas que ele usa pra GRAVAÇÃO. Mas tenta usar o CKEditor que é bom. Nele você também terá que dar essas permissões.
-
Apenas para constar, realmente pesquisei por tudo, e pelo que entendi o ODBC busca os parâmetros por posições, e não por nome. Ou seja, SELECT * from clientes where nome1=? and nome2=? São 2 parâmetros diferentes. Se quiser fazer uma busca em 10 telefones com 1 parâmetro só tem que igualar os 10 parâmetros ao textBox. Não tem jeito. Mas, ainda bem que tá resolvido. Ficou assim no evento textChanged no meu textbox: Dim telefone As String telefone = txtTelefone.Text Try Me.ClientesTableAdapter.FillLikeTelefone(Me.Clientes._clientes, telefone, telefone, telefone, telefone, telefone, telefone, telefone, telefone, telefone, telefone) Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) End Try