cintiadel 0 Denunciar post Postado Novembro 24, 2008 Bom Dia! Estou precisando gerar um arquivo txt de acordo com o resultado de uma busca, e quando gerado o arquivo preciso mudar o status na tabela, será que alguém pode me ajudar como faço isso??? Mas uma vez obrigada desde já Compartilhar este post Link para o post Compartilhar em outros sites
quintelab 91 Denunciar post Postado Novembro 24, 2008 Sua dúvida esta onde? Já começou o código? Abraços... Compartilhar este post Link para o post Compartilhar em outros sites
cintiadel 0 Denunciar post Postado Novembro 24, 2008 Sua dúvida esta onde? Já começou o código? Abraços... não faço idéia de como começara pessoa pode fazer uma busca por tipo, por periodo Compartilhar este post Link para o post Compartilhar em outros sites
quintelab 91 Denunciar post Postado Novembro 24, 2008 Pra começar seu código: http://www.macoratti.net/aspn_txt1.htm Abraços... Compartilhar este post Link para o post Compartilhar em outros sites
cintiadel 0 Denunciar post Postado Novembro 24, 2008 Sua dúvida esta onde? Já começou o código? Abraços... minha dúvida começa em onde eu monto o select, e como?eu tenho dois text box onde eu posso digitar um periodo, ou seja duas datas (preciso validar isso tbm) e um outro onde digito o tipo. Com o resultado dessa busca eu gero o arquivo txt em uma pasta, e ao ser gerado esse arquivo preciso atualizar o status do banco. Compartilhar este post Link para o post Compartilhar em outros sites
cintiadel 0 Denunciar post Postado Novembro 24, 2008 Pra começar seu código: http://www.macoratti.net/aspn_txt1.htm Abraços... eu comecei a montar o código, mas como disse n sei onde colocar o select, para que ele gere o arquivo com esses dados: Default.aspx <form id="form1" runat="server"> <table align="center" cellspacing="1" class="style1"> <tr> <td style="text-align: left"> Período:</td> <td style="text-align: left" class="style2"> <asp:TextBox ID="tox_periodo_inicial" runat="server" style="text-align: left"></asp:TextBox> <cc1:MaskedEditExtender ID="tox_periodo_inicial_MaskedEditExtender" runat="server" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder="" Enabled="True" Mask="99/99/9999" MaskType="Date" TargetControlID="tox_periodo_inicial"> </cc1:MaskedEditExtender> <asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="tox_periodo_inicial" Display="Dynamic" ErrorMessage="Data Inválida." Font-Names="Verdana" Font-Size="X-Small" Operator="GreaterThan" Type="Date" ValueToCompare="01/01/1900"> </asp:CompareValidator> </td> <td style="text-align: center"> até</td> <td style="text-align: left"> <asp:TextBox ID="tox_periodo_final" runat="server"></asp:TextBox> <cc1:MaskedEditExtender ID="tox_periodo_final_MaskedEditExtender" runat="server" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder="" Enabled="True" Mask="99/99/9999" MaskType="Date" TargetControlID="tox_periodo_final"> </cc1:MaskedEditExtender> <asp:CompareValidator ID="CompareValidator2" runat="server" ControlToValidate="tox_periodo_final" Display="Dynamic" ErrorMessage="Data Inválida." Font-Names="Verdana" Font-Size="X-Small" Operator="GreaterThan" Type="Date" ValueToCompare="01/01/1900"> </asp:CompareValidator> </td> </tr> <tr> <td style="text-align: left"> Tipo:</td> <td style="text-align: left" colspan="3"> <asp:TextBox ID="tox_tipo" runat="server"></asp:TextBox> </td> </tr> <tr> <td style="text-align: center" colspan="4"> <asp:TextBox ID="TextBox1" runat="server" TextMode="MultiLine"></asp:TextBox> <asp:SqlDataSource ID="SqlDataSource1" runat="server"></asp:SqlDataSource> <asp:ScriptManager ID="ScriptManager1" runat="server"> </asp:ScriptManager> <asp:Button ID="bon_" runat="server" Text="Button" /> </td> </tr> <tr> <td style="text-align: center" colspan="4"> </td> </tr> </table> </form> Dafault.aspx.vb Imports System.IO Imports System.IO.File Partial Class _Default Inherits System.Web.UI.Page Public arquivo As String = "C:\pasta\vbnet.txt" Protected Sub bon__Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bon_.Click Try Dim strm As New StreamWriter(arquivo) Try strm.WriteLine("Este arquivo foi criado com o VB.NET") strm.WriteLine("Revista Fórum Access ") strm.WriteLine("Sempre trazendo novidades para você") Finally strm.Close() End Try Catch TextBox1.Text = Err.Description End Try TextBox1.Text = "Arquivo criado com sucesso!!!" End Sub End Class Compartilhar este post Link para o post Compartilhar em outros sites
quintelab 91 Denunciar post Postado Novembro 24, 2008 Você terá que colocar seu select no evento do seu botão. Abraços... Compartilhar este post Link para o post Compartilhar em outros sites
cintiadel 0 Denunciar post Postado Novembro 24, 2008 Você terá que colocar seu select no evento do seu botão. Abraços... mas qual é o comando pra jogar ele dentro do arquivo, ou melhor o resultado dele.pq no codigo que eu postei ele insere dentro do arquivo o seguinte texto: "Este arquivo foi criado com o VB.NET Revista Fórum Access Sempre trazendo novidades para você" através do comando strm.WriteLine("") Compartilhar este post Link para o post Compartilhar em outros sites
quintelab 91 Denunciar post Postado Novembro 24, 2008 Você pode usar um DataReader, ae faça um while no seu DataReader e dentro desse while utilize o comando strm.WriteLine. Abraços... Compartilhar este post Link para o post Compartilhar em outros sites
cintiadel 0 Denunciar post Postado Novembro 25, 2008 Você pode usar um DataReader, ae faça um while no seu DataReader e dentro desse while utilize o comando strm.WriteLine. Abraços... pode me dar um exemplo de while com DataReader e de como chamar ele dentro do strm.Writeline?O que eu chama dentro das aspas do strm.WriteLine("")? Tentei fazer dessa forma mas ele n está gravando e nem dando erro: fora do botao eu crio o arquivo com a instrução: Public arquivo As String = "C:\pasta\vbnet.txt" e no botão o codigo abaixo Dim conexao As New Data.SqlClient.SqlConnection("caminho do banco") Dim cmd As New Data.SqlClient.SqlCommand("Select nome, rg, cpf from tabela", conexao) Dim dr As Data.SqlClient.SqlDataReader Try conexao.Open() dr = cmd.ExecuteReader While dr.Read() Dim strm As New StreamWriter(arquivo) Try strm.WriteLine(dr("nome").ToString, dr("rg").ToString, dr("cpf").ToString) Finally strm.Close() End Try End While Catch Console.WriteLine("Ocorreu um Erro.") Finally 'dr.Close() conexao.Close() End Try Compartilhar este post Link para o post Compartilhar em outros sites
quintelab 91 Denunciar post Postado Novembro 25, 2008 Testei o código e funcionou, só mudei algumas coisas: Dim conexao As New Data.SqlClient.SqlConnection("caminho do banco") Dim cmd As New Data.SqlClient.SqlCommand("Select nome, rg, cpf from tabela", conexao) Dim dr As Data.SqlClient.SqlDataReader Dim strm As New StreamWriter(arquivo) Try conexao.Open() dr = cmd.ExecuteReader While dr.Read() strm.WriteLine(dr("nome").ToString & "-" & dr("rg").ToString & "-" & dr("cpf").ToString) End While Catch Console.WriteLine("Ocorreu um Erro.") Finally 'dr.Close() strm.Close() conexao.Close() End Try A sua variábel arquivo esta com caminho certo? No meu teste no lugar de arquivo coloquei: Dim strm As New StreamWriter("C:/teste.txt")E funcionou perfeitamente. Abraços... Compartilhar este post Link para o post Compartilhar em outros sites
cintiadel 0 Denunciar post Postado Novembro 25, 2008 muito obrigada pela ajuda e paciencia que você sempre tem cmg, agora funcionou. posso abusar mais um pouco? 1 - gostaria que o nome do arquivo fosse a data atual, já tentei mas n consegui. 2 - que os campos fossem separados por tab para que fique organizado. 3- tenho dois textbox onde eu coloco o periodo pra buscar no banco, mas ao inserir a session na query, ele n me traz nenhuma linha dentro do arquivo, já testei a query no banco e lá ele me retorna 10 registros, o que pode ser, só alterei isso? Dim cmd As New Data.SqlClient.SqlCommand("Select nome, email from tabela where data_hora Between '" & Session("tox_periodo_inicial") & "' and '" & Session("tox_periodo_final") & "'", conexao)será que pode me dar mais um help? Compartilhar este post Link para o post Compartilhar em outros sites
quintelab 91 Denunciar post Postado Novembro 25, 2008 No nome do seu arquivo coloque: Date.Now.ToShortDateString()Isso irá trazer a data atual. Para separar seus dados terá que usar espaços em branco, veja como que fica com tag HTML de espaço em branco. No terceiro caso você tem que ver se sua Session tem algum valor, mas se não me engano você já abriu um tópico sobre este assunto, é melhor que seja discutido la para não virar bagunça. Abraços... Compartilhar este post Link para o post Compartilhar em outros sites
cintiadel 0 Denunciar post Postado Novembro 26, 2008 No nome do seu arquivo coloque: Date.Now.ToShortDateString()Isso irá trazer a data atual. Para separar seus dados terá que usar espaços em branco, veja como que fica com tag HTML de espaço em branco. No terceiro caso você tem que ver se sua Session tem algum valor, mas se não me engano você já abriu um tópico sobre este assunto, é melhor que seja discutido la para não virar bagunça. Abraços... não funcionou não, ele n mostrou a data e sim a string q eu coloquei, o nome do arquivo ficou assim: Date.Now.ToShortDateString().txt Public arquivo As String = "C:\pasta\Date.Now.ToShortDateString().txt" tem mais uma coisa que eu já ia me esquecendo depois de gerado o arquivo preciso que ele mude o status somente dos registros selecionados, como posso fazer isso? Compartilhar este post Link para o post Compartilhar em outros sites
quintelab 91 Denunciar post Postado Novembro 26, 2008 Ta errado seu código. Public arquivo As String = "C:\pasta\" & Date.Now.ToShortDateString() & ".txt" Abraços... Compartilhar este post Link para o post Compartilhar em outros sites
cintiadel 0 Denunciar post Postado Novembro 26, 2008 Ta errado seu código. Public arquivo As String = "C:\pasta\" & Date.Now.ToShortDateString() & ".txt" Abraços... ele da erro por causa dos separadores, erro:Não foi possível localizar uma parte do caminho 'C:\pasta\26\11\2008.txt'. e tem mais uma coisa que eu já ia me esquecendo depois de gerado o arquivo preciso que ele mude o status somente dos registros selecionados, como posso fazer isso? Compartilhar este post Link para o post Compartilhar em outros sites
quintelab 91 Denunciar post Postado Novembro 26, 2008 Terá que salvar seu arquivo com outro separador, por exemplo: Public arquivo As String = "C:\pasta\" & Replace(Date.Now.ToShortDateString(), "/", "_") & ".txt" Não testei o código, mas acho que da certo. A questão de mudar o status, basta dar um update na sua tabela. Abraços... Compartilhar este post Link para o post Compartilhar em outros sites
cintiadel 0 Denunciar post Postado Novembro 26, 2008 Terá que salvar seu arquivo com outro separador, por exemplo: Public arquivo As String = "C:\pasta\" & Replace(Date.Now.ToShortDateString(), "/", "_") & ".txt" Não testei o código, mas acho que da certo. A questão de mudar o status, basta dar um update na sua tabela. Abraços... não funcionou nãoessa parte do codigo fica sublinhada em azul: Replace(Date.Now.ToShortDateString(), "/", "_") e clicando em cima aparece: Expression does not produce a value qto ao update acho q n fui clara, a minha dúvida é onde coloca-lo e como fazer para que atualize somente os registros que foram para o arquivo Compartilhar este post Link para o post Compartilhar em outros sites
cintiadel 0 Denunciar post Postado Novembro 28, 2008 consegui o replace fica assim: Public arquivo As String = "C:\pasta\" & Date.Now.ToShortDateString.Replace("/", "-") & ".txt" Compartilhar este post Link para o post Compartilhar em outros sites