Kikonanet

Neste artigo o Macoratti aborda array... Minha dúvida é como ler um dataset... Tipo... While not (dataset.EOF) campo = dataset.campo("Nome").toString end valeu pela ajuda

Como sou iniciante em asp.net.... como faço esse for para ler registro a registro do dataset? mais uma vez obrigado pela ajuda

No meu select principal não existe relacionamento, mas na tabela de comentários há referência para a tabela Blog. Para cada linha que eu leio da tabela blog eu gostaria de ler a quantidade de comentários da tabela de comentários.... Eu não sei como mostrar isso em apenas um dataset

Pessoal, Criei um Blog simples com um DataList <asp:DataList ID="DataListBlog" runat="server"> <ItemTemplate> <h1> <%# DataBinder.Eval(Container.DataItem, "Titulo") %></h1> <b><%#ctype(Eval("data"),datetime).ToLongDateString()%></b> <br /><br /> <p> <%#Server.HtmlDecode(Replace(DataBinder.Eval(Container.DataItem, "Mensagem"), vbCrLf, "<br>"))%><br /> <%#DataBinder.Eval(Container.DataItem, "Autor")%><br /> <br /> <a target="_blank" href="comentarios.aspx?IDBlog=<%#DataBinder.Eval(Container.DataItem, "IDBlog")%>">Deixe seu Comentário</a><br /> <br /> </p> </ItemTemplate> </asp:DataList> No Load da página uso o seguinte código: Dim oDadapter As OleDbDataAdapter Dim sSql As String = "SELECT * FROM Blog ORDER BY data desc" Dim oConnection As New OleDbConnection(ConfigurationManager.ConnectionStrings("bdSiteConnectionString").ToString) oDadapter = New OleDbDataAdapter(sSql, oConnection) Dim oDataSet As New DataSet() oConnection.Open() oDadapter.Fill(oDataSet, "DataListBlog") DataListBlog.DataSource = oDataSet.Tables("DataListBlog").DefaultView DataListBlog.DataBind() Na parte de Deixe seu Comentário eu queria colocar a quantidade de comentários deixados: Deixe seu Comentário (0). Porém, essa quantidade está em outra tabela... Como faço para pegar a quantidade em outra tabela e colocar no DataListBlog?? vlw

kuroi, Valeu pela ajuda... Usei o HTMLEncode para pegar os dados digitados (Server.HtmlEncode(TextBoxMensagem.Text)). Na hora de mostrar com o "enter" --> Server.HtmlDecode(Replace(DataBinder.Eval(Container.DataItem, "Mensagem"), vbCrLf, "<br>")) Valeu

Kuroi, Obrigado pela ajuda. Pensando em segurança, há um outro jeito para isso?

Pessoal, Tenho um página em asp.net que insere um texto em um BD Access... O texto é inserido ok, mas quando tenho que colocar um comando html por exemplo <img src=""></img> me dá um erro dizendo que esse comando é perigoso e não consigo salvar o texto. Como posso resolver esse problema? Exemplo de texto: <b>Meu texto bla bla bla</b> vlw

chevettemaniac.com, Copiei o seu exemplo e abri no IE e não funcionou... Ele abre os links em outra página... Não abre dentro do ax... abs.

você pode me dar um exemplo? abs.

Pessoal, Peguei na net o seguinte código que coloca em uma página html outra página. <object classid="clsid:25336920-03F9-11CF-8FD0-00AA00686F13" data="http:www.pagina.com.br" type="text/html" width="419" height="419" id="axCentro"> </object> Queria tornar isso dinâmico, ou seja, tem como alterar o campo data desse objeto?? Tipo criar uma variável para ele?? abs. Kiko

Olá, você declarou na Uses? abs.

O único problema que eu vejo é que se tiver uma string assim: 'Cód. Ref. [12] L.C.U. !' --> Ao invés de copiar o 12 irá copiar o 1... Seria interessante usar um loop usando a função pos('[',string); OBS: fico devendo o exemplo, pois estou sem Delphi :-( abs.

Não é ruim não... O meu pc só tem 256MB e roda legal... abs.

Tamires, Dê uma olhada neste link http://www.imasters.com.br/artigo/1201/del...mponentes_indy/ abs.

você pode usar o blob sim... O SQL é o mesmo... Insert into tabela (campo) values("sua mensagem aqui...etc......"); abs.

Como você está conectando?

Olá, Tenta usar o QuotedStr(EditPesquisa.Text). Ex.: Filter := 'nome LIKE '+QuotedStr(EditPesquisa.Text)+''; Para fazer esse tipo de busca, use o %. Ex.: Filter := 'nome LIKE '+QuotedStr('%' + EditPesquisa.Text + '%')+''; Abs.

Olá, Se eu não me engano quando se tem @ antes da variável, você está pegando o conteúdo de um endereço de memória. Dê uma olhada em ponteiros... Ex: var a, b: ^integer; // declarando um ponteiro c: integer; begin a:=b; // a recebe o valor de b c:=@a; // c recebe o conteudo de a; end; obs: Se tiver erro, alguém me corrija... abs.

Não acho que seja gambiarra... Eu tmb não lembro se no Delphi tem uma função dessa... O código que você fez não é nenhum absurdo... abs. e t+ Kiko

Quando você pega do Edit, como você está separando o mês e a data? Alunos.SQL.Add('WHERE MONTH(DATANASC) between :MesI and :MesF '); Alunos.SQL.Add('AND DAY(DATANASC) between :DiaI and :DiaF '); Qual são os valores de MesI, MesF, DiaI, DiaF? abs. Kiko

Olá Rodrigo, você pode fazer uma function para isso... Qual é o tamanho total da string? max - tamanho total que a string deve ser...Ex: 0000AB Acho que o exemplo pode te ajudar... function concatenar(s: string; max: integer); var max, tam: integer; begin tam:= length(s); while tam < max do begin s:= concat("0",s); tam:= tam + 1; end; concatenar:= s; end; Cara faz tempo que eu não mexo no Delphi... Não me lembro se o return da função é assim mesmo que faz (quem puder me relembrar eu agradeço...rs...rs...). abs. Kiko

Olá Rodrigo, Use a função Concat para concatenar os 0 em seu código. Exemplo: var S: string; begin S := Concat('ABC', 'DEF'); end; abs. Kiko

Vivendo&Aprendendo, Deixa eu tirar uma dúvida... O seu campo DATANASC é do tipo date? Fiz essa pergunta, pois estou achando muito estranho não ter funcionado... abs. Kiko

Olá, Estranho isso... Fiz um teste aqui no access usando a dica do Micheus e rodou normal... Retorna algum erro? abs.

Olá, O problema esta na SQL... Tente assim: Ex: Insert into itensprocessamentopedido(produtoID,quantidade) Values (1,2) sql.Add('insert into itensprocessamentopedido(produtoID, quantidade)'); sql.Add('Values (:id,:qtde)') params.ParamByName('id').Value = '2'; params.ParamByName('qtde').Value = '3'; executeSQL // se eu não me engano é isso...