hpires24

O erro já esta resolvido o que eu fiz foi o seguinte no codigo aspx estava: <asp:ButtonColumn ButtonType= "PushButton" Text="Excluir" HeaderText="Excluir" CommandName="Delete"></asp:ButtonColumn> então eu akterei para: <asp:ButtonColumn ButtonType= "LinkButton" Text="Excluir" HeaderText="Excluir" CommandName="Delete"></asp:ButtonColumn> agora tem um Link e não um PushButton o metodo que estava associado era o referido: Public Sub DataGridTecnologias_ItemDataBound(ByVal sender As Object, ByVal e As DataGridItemEventArgs) If e.Item.ItemType <> ListItemType.Header And e.Item.ItemType <> ListItemType.Footer Then 'Referencie o controle LinkButton Dim deleteButton As LinkButton = e.Item.Cells(7).Controls(0) 'incluimos o gerenciador de evento onclick deleteButton.Attributes("onclick") = "java script:return confirm('Tem certeza que deseja excluir a tecnologia de código #" & DataBinder.Eval(e.Item.DataItem, "ID_TECNOLOGIAS") & "?')" End If End Sub so que eu pretendia mesmo ter o Botao e não o Link alguém sabe como alterar isso? Por favor me ajudem

Bao tarde a todos, não sei se me poderiam ajudar estou a tentar excluir um registo de uma base de dados dentro duma datagrid mas estou com um erro se eu colocar no codigo aspx o seguinte comando OnItemDataBound="DataGridTecnologias_ItemDataBound" que vai executar este metodo: Public Sub DataGridTecnologias_ItemDataBound(ByVal sender As Object, ByVal e As DataGridItemEventArgs) If e.Item.ItemType <> ListItemType.Header And e.Item.ItemType <> ListItemType.Footer Then 'Referencie o controle LinkButton Dim deleteButton As LinkButton = e.Item.Cells(0).Controls(0) 'incluimos o gerenciador de evento onclick deleteButton.Attributes("onclick") = "java script:return confirm('Tem certeza que deseja excluir o produto de código #" & DataBinder.Eval(e.Item.DataItem, "ID_TECNOLOGIAS") & "?')" End If End Sub se eu fizer o excluir sem executar este metodo ele exclui correcto da base de dados mas eu gostaria de executar este java script de confirmação mas da este erro: System.InvalidCastException: Specified cast is not valid. at gaapi.tecnologias.DataGridTecnologias_ItemDataBound(Object sender, DataGridItemEventArgs e) in c:\inetpub\wwwroot\gaapi\tecnologias.aspx.vb:line 304 at System.Web.UI.WebControls.DataGrid.OnItemDataBound(DataGridItemEventArgs e) at System.Web.UI.WebControls.DataGrid.CreateItem(Int32 itemIndex, Int32 dataSourceIndex, ListItemType itemType, Boolean dataBind, Object dataItem, DataGridColumn[] columns, TableRowCollection rows, PagedDataSource pagedDataSource) at System.Web.UI.WebControls.DataGrid.CreateControlHierarchy(Boolean useDataSource) at System.Web.UI.WebControls.BaseDataList.OnDataBinding(EventArgs e) at System.Web.UI.WebControls.BaseDataList.DataBind() at gaapi.tecnologias.BinData() in c:\inetpub\wwwroot\gaapi\tecnologias.aspx.vb:line 249 os dois erros que são mencionados são no metodo acima mencionado e no seguinte: Public Sub BinData() Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand Dim dr As SqlDataReader Dim oDadapter As SqlDataAdapter Dim oDataSet As DataSet sqlString = "usp_exibirTenologias" Try conn.Open() cmd = New SqlCommand(sqlString, conn) cmd.CommandType = CommandType.StoredProcedure 'Cria um novo objeto OleDbDataAdapter oDadapter = New SqlDataAdapter(sqlString, conn) 'Preenche o DataSet com o conteúdo selecionado da tabela oDataSet = New DataSet oDadapter.Fill(oDataSet, "TECNOLOGIAS") dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) oDadapter = Nothing 'exibe uma visão customizada da tabela inserida no dataset DataGridTecnologias.DataSource = oDataSet.Tables("TECNOLOGIAS").DefaultView DataGridTecnologias.DataBind() Catch ex As Exception 'Response.Redirect("../perfil/errordb.aspx") Response.Write(ex.ToString) Finally If Not dr Is Nothing Then dr.Close() End If End Try End Sub

Este problema esta resolvido de inserir num formulario com uma listbox nesse mesmo formulario agora a minha duvida prende-se com o facto de eu querer por exemplo ao estar a inserir os dados no formulario por vezes não seleccionar nada no campo que comtem a listbox ou seja por exemplo a listbox tem seleciona opção e eu queria deixar ficar assim e não selecionar nenhuma opção e na base dados claro inserir-me null não consigo fazer isso alguém me podia dar uma ajuda obrigado a todos desde já

Obrigado Graymalkin mas relamente eu estava a passar mal o prametro, eu vou colocar o novo codigo que alterei para a resolução do problema em causa pois o mesmo problema poderá surgir a mais alguém e fica a dica:) conn.Open() cmd = New SqlCommand(sqlString, conn) cmd.CommandType = CommandType.StoredProcedure <b> cmd.Parameters.Add(New SqlParameter("@projetos", CInt(ListboxProjectos.SelectedValue))) cmd.Parameters.Add(New SqlParameter("@unidade", CInt(ListBoxUnidades.SelectedValue))) </b> cmd.Parameters.Add(New SqlParameter("@nome", TextBoxNomeTecnologia.Text)) cmd.Parameters.Add(New SqlParameter("@descricao", TextBoxDescricaoTecnologia.Text)) cmd.Parameters.Add(New SqlParameter("@eventores", TextboxEventoresTecnologia.Text))

Boa noite a todos, O que eu pretendo épreencher um formulario mas esse formulário contem uma ListBox como segue no codigo abaixo: <%@ Register TagPrefix="uc1" TagName="topo" Src="topo.ascx" %> <%@ Page Language="vb" AutoEventWireup="false" Codebehind="tecnologias.aspx.vb" Inherits="gaapi.tecnologias"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <title>proj</title> <meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR"> <meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE"> <meta content="JavaScript" name="vs_defaultClientScript"> <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema"> </HEAD> <body MS_POSITIONING="GridLayout"> <form id="Form1" method="post" runat="server"> <uc1:topo id="Topo1" runat="server" DESIGNTIMEDRAGDROP="94"></uc1:topo> <table height="500" cellSpacing="1" cellPadding="0" width="100%" align="center" border="0"> <tr vAlign="top"> <td> <table height="300" cellSpacing="1" cellPadding="0" width="100%" align="center" border="1"> <tr> <td vAlign="top" align="center" bgColor="#ffffff"><br> <span class="verdana10"> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="1"> <tr align="center"> <td bgColor="#f9e3a2" height="20">Tecnologias</td> </tr> </table> <br> </span> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="1"> <tr align="center"> <td align="left" width="150" bgColor="#c4d8ea" height="20">&nbsp;&nbsp;Dados das tecnologias</td> </tr> <tr align="center"> <td bgColor="#ffffff" height="20"> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="0"> <tr> <td align="right">&nbsp;</td> <td>&nbsp;</td> </tr> <td align="right" width="150" height="20"><asp:label id="LabelProjectos" runat="server">Projectos:</asp:label></td> <td height="20"><asp:listbox id="ListboxProjectos" runat="server" Width="192px" Height="64px" AutoPostBack="True"></asp:listbox></td> </tr> <tr> <td align="right" width="150" height="20"><asp:label id="LabelIdUnidade" runat="server">Unidade:</asp:label></td> <td height="20"><asp:listbox id="ListBoxUnidades" runat="server" Width="192px" Height="64px"></asp:listbox></td> </tr> <tr> <td style="HEIGHT: 24px" align="right" height="24"><asp:label id="LabelNomeTecnologia" runat="server"> Nome:</asp:label></td> <td style="HEIGHT: 24px" height="24"><asp:textbox id="TextBoxNomeTecnologia" runat="server" Width="320px"></asp:textbox></td> </tr> <tr> <td align="right" height="20"><asp:label id="LabeldescricaoTecnologia" runat="server">Descrição:</asp:label></td> <td height="20"><asp:textbox id="TextBoxDescricaoTecnologia" runat="server" Width="320px"></asp:textbox>&nbsp; </td> </tr> <tr> <td align="right" height="20"><asp:label id="LabelEventoresTecnologia" runat="server"> Eventores:</asp:label></td> <td height="20"><asp:textbox id="TextboxEventoresTecnologia" runat="server" Width="256px"></asp:textbox>&nbsp; </td> </tr> </table> </td> </tr> </table> <P><asp:button id="ButtonEnviarTecnologia" runat="server" Text="Enviar"></asp:button>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <asp:button id="ButtonCancelar" runat="server" Text="Cancelar"></asp:button>&nbsp; </P> </td> </tr> <tr align="center"> <td> <P>&nbsp;</P> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="1"> <tr align="center"> <td bgColor="#f9e3a2" height="20">Actualizar Tecnologias</td> </tr> </table> <br> </SPAN> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="1"> <tr align="center"> <td align="left" width="150" bgColor="#c4d8ea" height="20">&nbsp;&nbsp;Dados das Técnoligias </td> </tr> <tr align="center"> <td bgColor="#ffffff" height="20"> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="0"> </table> <asp:datagrid id="DataGridTecnologias" runat="server" Width="100%" Height="100%" AutoGenerateColumns="False" Font-Names="Verdana" BackColor="#ffffff" BorderColor="DeepSkyBlue" CellPadding="3" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" MaintainState="false" DataKeyField="ID_TECNOLOGIAS" OnEditCommand="DataGridTecnologias_Editar" OnCancelCommand="DataGridTecnologias_Cancelar" OnUpdateCommand="DataGridTecnologias_Actualizar"> <HeaderStyle BackColor="#f9e3a2"></HeaderStyle> <Columns> <asp:EditCommandColumn ButtonType="PushButton" EditText="Editar" UpdateText="Actualizar" CancelText="Cancelar" ItemStyle-Height="100%"></asp:EditCommandColumn> <asp:BoundColumn DataField="ID_TECNOLOGIAS" HeaderText="Codigo" ReadOnly="True"></asp:BoundColumn> <asp:BoundColumn DataField="ID_PROJECTOS" HeaderText="Projecto"></asp:BoundColumn> <asp:BoundColumn DataField="ID_UNIDADE" HeaderText="Unidade"></asp:BoundColumn> <asp:BoundColumn DataField="NOME_TECNOLOGIA" HeaderText="Nome"></asp:BoundColumn> <asp:BoundColumn DataField="DESCRICAO_TECNOLOGIA" HeaderText="Descrição"></asp:BoundColumn> <asp:BoundColumn DataField="EVENTORES_TECNOLOGIA" HeaderText="Eventor"></asp:BoundColumn> </Columns> </asp:datagrid></td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </form> </body> </HTML> e os dados dessa lisbox estao numa tabela que se chama unidades e eu pretendo inserir os dados numa tabela que se chama tecnologia e tem como chave estrangeira o id_unidades da tabela unidades então eu consigo ver os dados na listbox com o seguinte codigo: Imports System.Data Imports System.Data.OleDb Imports System.Data.SqlClient Imports System.Data.OleDb.OleDbParameterCollection Public Class tecnologias Inherits System.Web.UI.Page #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Protected WithEvents ButtonCancelar As System.Web.UI.WebControls.Button Protected WithEvents LabelIdUnidade As System.Web.UI.WebControls.Label Protected WithEvents LabelNomeTecnologia As System.Web.UI.WebControls.Label Protected WithEvents TextBoxNomeTecnologia As System.Web.UI.WebControls.TextBox Protected WithEvents LabeldescricaoTecnologia As System.Web.UI.WebControls.Label Protected WithEvents TextBoxDescricaoTecnologia As System.Web.UI.WebControls.TextBox Protected WithEvents LabelEventoresTecnologia As System.Web.UI.WebControls.Label Protected WithEvents TextboxEventoresTecnologia As System.Web.UI.WebControls.TextBox Protected WithEvents ListBoxUnidades As System.Web.UI.WebControls.ListBox Protected WithEvents DataGridTecnologias As System.Web.UI.WebControls.DataGrid Protected WithEvents ButtonEnviarTecnologia As System.Web.UI.WebControls.Button Protected WithEvents LabelProjectos As System.Web.UI.WebControls.Label Protected WithEvents ListboxProjectos As System.Web.UI.WebControls.ListBox 'NOTE: The following placeholder declaration is required by the Web Form Designer. 'Do not delete or move it. Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not Page.IsPostBack Then carrega_lista() carrega_lista_Projectos() ListBoxUnidades.SelectedIndex = 0 ListboxProjectos.SelectedIndex = 0 BinData() End If End Sub Private Sub ButtonEnviarTecnologia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEnviarTecnologia.Click If Page.IsValid Then Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand Dim dr As SqlDataReader sqlString = "usp_inserirTecnologia" 'Response.Write(sqlString) Try conn.Open() cmd = New SqlCommand(sqlString, conn) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add(New SqlParameter("@projetos", ListboxProjectos)) 'cmd.Parameters.Add("@projetos", SqlDbType.Int) 'cmd.Parameters("@projetos").Value = ListboxProjectos cmd.Parameters.Add(New SqlParameter("@unidade", ListBoxUnidades)) 'cmd.Parameters.Add("@unidade", SqlDbType.Int) 'cmd.Parameters("@unidade").Value = ListBoxUnidades cmd.Parameters.Add(New SqlParameter("@nome", TextBoxNomeTecnologia.Text)) cmd.Parameters.Add(New SqlParameter("@descricao", TextBoxDescricaoTecnologia.Text)) cmd.Parameters.Add(New SqlParameter("@eventores", TextboxEventoresTecnologia.Text)) dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) TextBoxNomeTecnologia.Text() = "" TextBoxDescricaoTecnologia.Text() = "" TextboxEventoresTecnologia.Text() = "" 'dgInscritos.DataSource = dr 'dgInscritos.DataBind() Catch ex As Exception 'Response.Redirect("../perfil/errordb.aspx") Response.Write(ex.ToString) Finally If Not dr Is Nothing Then dr.Close() End If End Try BinData() 'carrega_lista() 'carrega_lista_Projectos() End If End Sub Public Sub carrega_lista() Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand Dim dr As SqlDataReader Dim idunidade As Integer sqlString = "select * From gaapi.UNIDADES" 'Response.Write(sqlString) Try conn.Open() cmd = New SqlCommand(sqlString, conn) 'cmd.CommandType = CommandType.StoredProcedure cmd.CommandType = CommandType.Text dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) ListBoxUnidades.DataValueField = "ID_UNIDADE" ListBoxUnidades.DataTextField = "DESCRICAO_UNIDADE" ListBoxUnidades.DataSource = dr ListBoxUnidades.DataBind() dr.Close() Catch ex As Exception 'Response.Redirect("../perfil/errordb.aspx") Response.Write(ex.ToString) Finally If Not dr Is Nothing Then dr.Close() End If End Try 'BinData() End Sub Private Sub ListBoxUnidades_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBoxUnidades.SelectedIndexChanged Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand Dim dr As SqlDataReader Dim txtproj As Char Dim txtIdunid As Integer Dim txtnome As Char Dim txtdescr As Char Dim txtevent As Char sqlString = "insert into gaapi.Tecnologias (ID_PROJECTOS, ID_UNIDADE, NOME_TECNOLOGIA, DESCRICAO_TECNOLOGIA, EVENTORES_TECNOLOGIA) values (@projetos, @unidade, @nome, @descricao, @eventores)" 'Response.Write(sqlString) Try conn.Open() cmd = New SqlCommand(sqlString, conn) 'cmd.CommandType = CommandType.StoredProcedure cmd.CommandType = CommandType.Text dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) While dr.Read() With dr txtproj = .Item("ID_PROJECTOS") txtIdunid = .Item("ID_UNIDADE") txtnome = .Item("NOME_TECNOLOGIA") txtdescr = .Item("DESCRICAO_TECNOLOGIA") txtevent = .Item("EVENTORES_TECNOLOGIA") End With End While Catch ex As Exception 'Response.Redirect("../perfil/errordb.aspx") Response.Write(ex.ToString) Finally If Not dr Is Nothing Then dr.Close() End If End Try 'BinData() End Sub Public Sub carrega_lista_Projectos() Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand Dim dr As SqlDataReader Dim idunidade As Integer sqlString = "select * From gaapi.PROJECTOS" 'Response.Write(sqlString) Try conn.Open() cmd = New SqlCommand(sqlString, conn) 'cmd.CommandType = CommandType.StoredProcedure cmd.CommandType = CommandType.Text dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) ListboxProjectos.DataValueField = "ID_PROJECTOS" ListboxProjectos.DataTextField = "TITULO_PROJECTO" ListboxProjectos.DataSource = dr ListboxProjectos.DataBind() dr.Close() Catch ex As Exception 'Response.Redirect("../perfil/errordb.aspx") Response.Write(ex.ToString) Finally If Not dr Is Nothing Then dr.Close() End If End Try 'BinData() End Sub Private Sub ListboxProjectos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListboxProjectos.SelectedIndexChanged Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand Dim dr As SqlDataReader Dim txtproj As Char Dim txtIdunid As Integer Dim txtnome As Char Dim txtdescr As Char Dim txtevent As Char sqlString = "insert into gaapi.Tecnologias (ID_PROJECTOS, ID_UNIDADE, NOME_TECNOLOGIA, DESCRICAO_TECNOLOGIA, EVENTORES_TECNOLOGIA) values (@projetos, @unidade, @nome, @descricao, @eventores)" 'Response.Write(sqlString) Try conn.Open() cmd = New SqlCommand(sqlString, conn) 'cmd.CommandType = CommandType.StoredProcedure cmd.CommandType = CommandType.Text dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) While dr.Read() With dr txtproj = .Item("ID_PROJECTOS") txtIdunid = .Item("ID_UNIDADE") txtnome = .Item("NOME_TECNOLOGIA") txtdescr = .Item("DESCRICAO_TECNOLOGIA") txtevent = .Item("EVENTORES_TECNOLOGIA") End With End While Catch ex As Exception 'Response.Redirect("../perfil/errordb.aspx") Response.Write(ex.ToString) Finally If Not dr Is Nothing Then dr.Close() End If End Try 'BinData() End Sub 'DATA GRID TECNOLOGIAS Public Sub BinData() Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand Dim dr As SqlDataReader Dim oDadapter As SqlDataAdapter Dim oDataSet As DataSet sqlString = "usp_exibirTenologias" Try conn.Open() cmd = New SqlCommand(sqlString, conn) cmd.CommandType = CommandType.StoredProcedure 'Cria um novo objeto OleDbDataAdapter oDadapter = New SqlDataAdapter(sqlString, conn) 'Preenche o DataSet com o conteúdo selecionado da tabela oDataSet = New DataSet oDadapter.Fill(oDataSet, "Tecnologias") dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) oDadapter = Nothing 'exibe uma visão customizada da tabela produtos inserida no dataset DataGridTecnologias.DataSource = oDataSet.Tables("TECNOLOGIAS").DefaultView DataGridTecnologias.DataBind() Catch ex As Exception 'Response.Redirect("../perfil/errordb.aspx") Response.Write(ex.ToString) Finally If Not dr Is Nothing Then dr.Close() End If End Try End Sub Public Sub DataGridTecnologias_Editar(ByVal Source As Object, ByVal E As DataGridCommandEventArgs) DataGridTecnologias.EditItemIndex = E.Item.ItemIndex BinData() End Sub Public Sub DataGridTecnologias_Cancelar(ByVal Source As Object, ByVal E As DataGridCommandEventArgs) DataGridTecnologias.EditItemIndex = -1 BinData() End Sub Public Sub DataGridTecnologias_Actualizar(ByVal Source As Object, ByVal E As DataGridCommandEventArgs) Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand Dim dr As SqlDataReader Dim idtecnologia As Integer idtecnologia = DataGridTecnologias.DataKeys(E.Item.ItemIndex) Dim txtproj As TextBox = E.Item.Cells(2).Controls(0) Dim txtunid As TextBox = E.Item.Cells(3).Controls(0) Dim txtnome As TextBox = E.Item.Cells(4).Controls(0) Dim txtdescric As TextBox = E.Item.Cells(5).Controls(0) Dim txtevent As TextBox = E.Item.Cells(6).Controls(0) sqlString = "usp_UpdateTecnologias" Try conn.Open() cmd = New SqlCommand(sqlString, conn) cmd.CommandType = CommandType.StoredProcedure 'cmd.CommandType = CommandType.Text cmd.Parameters.Add("@idtecnolo", SqlDbType.Int) cmd.Parameters("@idtecnolo").Value = idtecnologia cmd.Parameters.Add("@idproj", SqlDbType.Int) cmd.Parameters("@idproj").Value = txtproj.Text cmd.Parameters.Add("@idunid", SqlDbType.Int) cmd.Parameters("@idunid").Value = txtunid.Text cmd.Parameters.Add("@nometecnolo", SqlDbType.Text) cmd.Parameters("@nometecnolo").Value = txtnome.Text cmd.Parameters.Add("@desctecnolo", SqlDbType.Text) cmd.Parameters("@desctecnolo").Value = txtdescric.Text cmd.Parameters.Add("@eventotecnolo", SqlDbType.Text) cmd.Parameters("@eventotecnolo").Value = txtevent.Text cmd.ExecuteNonQuery() Catch ex As Exception Response.Write(ex.ToString) Finally conn.Close() End Try DataGridTecnologias.EditItemIndex = -1 BinData() End Sub End Class Só que quando eu faço para enviar or dados da um erro que é o seguinte: System.FormatException: Index (zero based) must be greater than or equal to zero and less than the size of the argument list. at System.Text.StringBuilder.AppendFormat(IFormatProvider provider, String format, Object[] args) at System.String.Format(IFormatProvider provider, String format, Object[] args) at System.Data.Res.GetString(CultureInfo culture, String name, Object[] args) at System.Data.Common.ADP.UnknownDataType(Type dataType) at System.Data.SqlClient.MetaType.GetMetaType(Object value) at System.Data.SqlClient.SqlParameter.SetTypeInfoFromComType(Object value) at System.Data.SqlClient.SqlParameter.set_Value(Object value) at System.Data.SqlClient.SqlParameter..ctor(String parameterName, Object value) at gaapi.tecnologias.ButtonEnviarTecnologia_Click(Object sender, EventArgs e) in o que eu penso é que ao estar a enviar os dados existe alguma coisa que eu estou a fazer de errado ao inserir no formulario os dados da listbox não será? penso ser neste trecho de codigo: Private Sub ButtonEnviarTecnologia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEnviarTecnologia.Click If Page.IsValid Then Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand Dim dr As SqlDataReader sqlString = "usp_inserirTecnologia" 'Response.Write(sqlString) Try conn.Open() cmd = New SqlCommand(sqlString, conn) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add(New SqlParameter("@projetos", ListboxProjectos)) 'cmd.Parameters.Add("@projetos", SqlDbType.Int) 'cmd.Parameters("@projetos").Value = ListboxProjectos cmd.Parameters.Add(New SqlParameter("@unidade", ListBoxUnidades)) 'cmd.Parameters.Add("@unidade", SqlDbType.Int) 'cmd.Parameters("@unidade").Value = ListBoxUnidades cmd.Parameters.Add(New SqlParameter("@nome", TextBoxNomeTecnologia.Text)) cmd.Parameters.Add(New SqlParameter("@descricao", TextBoxDescricaoTecnologia.Text)) cmd.Parameters.Add(New SqlParameter("@eventores", TextboxEventoresTecnologia.Text)) dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) TextBoxNomeTecnologia.Text() = "" TextBoxDescricaoTecnologia.Text() = "" TextboxEventoresTecnologia.Text() = "" 'dgInscritos.DataSource = dr 'dgInscritos.DataBind() Catch ex As Exception 'Response.Redirect("../perfil/errordb.aspx") Response.Write(ex.ToString) Finally If Not dr Is Nothing Then dr.Close() End If End Try BinData() 'carrega_lista() 'carrega_lista_Projectos() End If End Sub Será qnao é detste modo que eu passo os dados que estao carregados na listbox: cmd.Parameters.Add(New SqlParameter("@projetos", ListboxProjectos))??? Agradecia uma ajuda

Eu penso que a melhor forma seria meter uma mensgem de erro no seu projecto do genero: Response.Write(ex.ToString)

erro resolvido eu estava a chamr o command como stored procedure e como text e claro não pdoeria ser obrigado a todos

Boas tardes amigos poderiam ajudar-me no seguinte? vou esclarecer minha duvida: Eu estou tentando fazer a actualizados de dados de uma Datagrid os dados são exibidos no browser mas quando eu faço actualizar os dados da o seguinte erro: System.InvalidCastException: Object must implement IConvertible. at System.Data.SqlClient.SqlCommand.ExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream) at System.Data.SqlClient.SqlCommand.ExecuteNonQuery() at gaapi.unidades.DataGridUnidades_Actualizar(Object Source, DataGridCommandEventArgs E) in c:\inetpub\wwwroot\gaapi\unidades.aspx.vb:line 245 o codigo que eu estou a utilizar para fazer o update da datagrid é: Public Sub DataGridUnidades_Actualizar(ByVal Source As Object, ByVal E As DataGridCommandEventArgs) Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand 'Dim txtUidade As TextBox = E.Item.Cells(1).Controls(0) Dim idunidade As Integer idunidade = DataGridUnidades.DataKeys(E.Item.ItemIndex) Dim txtdescricao As TextBox = E.Item.Cells(2).Controls(0) Dim txttelefone As TextBox = E.Item.Cells(3).Controls(0) Dim txtmail As TextBox = E.Item.Cells(4).Controls(0) Dim txtmissao As TextBox = E.Item.Cells(5).Controls(0) Dim txtobjectivo As TextBox = E.Item.Cells(6).Controls(0) sqlString = "usp_UpdateUnidades" Try conn.Open() cmd = New SqlCommand(sqlString, conn) cmd.CommandType = CommandType.StoredProcedure cmd.CommandType = CommandType.Text cmd.Parameters.Add("@idunid", SqlDbType.Int) cmd.Parameters("@idunid").Value = idunidade cmd.Parameters.Add("@descr", SqlDbType.Char) cmd.Parameters("@descr").Value = txtdescricao cmd.Parameters.Add("@tele", SqlDbType.Int) cmd.Parameters("@tele").Value = txttelefone cmd.Parameters.Add("@mail", SqlDbType.Char) cmd.Parameters("@mail").Value = txtmail cmd.Parameters.Add("@miss", SqlDbType.Char) cmd.Parameters("@miss").Value = txtmissao cmd.Parameters.Add("@obj", SqlDbType.Char) cmd.Parameters("@obj").Value = txtobjectivo 'myCommand.Parameters.Add("@param", SqlDbType.Int) 'myCommand.Parameters("@param").Value = E.Item.Cells(1).Text cmd.ExecuteNonQuery() 'Response.Write(cmd.Parameters.Item(1).Value) Catch ex As Exception Response.Write(ex.ToString) Finally conn.Close() End Try DataGridUnidades.EditItemIndex = -1 If Not IsPostBack Then Else BinData() End If End Sub utilizo a seguinte stored procedure: ALTER procedure dbo.usp_UpdateUnidades @idunid int, @descr varchar(255), @tele int, @mail varchar(255), @miss varchar (255), @obj varchar(255) as update gaapi.Unidades set DESCRICAO_UNIDADE = @descr, TELEFONE_UNIDADE = @tele, EMAIL_UNIDADE = @mail, MISSAO_UNIDADE = @miss, OBJECTIVO_UNIDADE = @obj where ID_UNIDADE = @idunid poderiam ajudar-me se fazem favor?obrigado desde já a todos O ERRO DA NESTA LINHA cmd.ExecuteNonQuery()

Obrigadao kuroi era mesmo isso é uma componente no asp.net fico agradecido mesmo para você sempre que precisar de ajuda e que eu possa resolver me contacte pode ate ser via MSN se desejar grande abraço

não, não é assim o asp.net não tem essa componete, obrigado

que eu pretendo é inserir dados numa area de texto estou usando o seguinte codigo: <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="1"> <tr align="center"> <td align="left" width="150" bgColor="#c4d8ea" height="20">&nbsp;&nbsp;Dados da Unidade</td> </tr> <tr align="center"> <td bgColor="#ffffff" height="20"> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="0"> <tr> <td align="right">&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td align="right" width="150" height="20"><asp:label id="LabelDescUnidade" runat="server">Nome:</asp:label></td> <td height="20"><asp:textbox id="TextBoxDescrUnidade" runat="server" Width="320px"></asp:textbox></td> </tr> <tr> <td style="HEIGHT: 24px" align="right" height="24"><asp:label id="LabelTelefoneUnidade" runat="server"> Telefone:</asp:label></td> <td style="HEIGHT: 24px" height="24"><asp:textbox id="TextBoxTelefoneUnidade" runat="server" Width="160px"></asp:textbox><asp:requiredfieldvalidator id="RFVTelefone" runat="server" ControlToValidate="TextBoxTelefoneUnidade" ErrorMessage="Informe o Telefone em Digitos">*</asp:requiredfieldvalidator></td> </tr> <tr> <td align="right" height="20"><asp:label id="LabelEmailUnidade" runat="server">E-Mail:</asp:label></td> <td height="20"><asp:textbox id="TextBoxEMailUnidade" runat="server" Width="256px"></asp:textbox>&nbsp; </td> </tr> <tr> <td align="right" height="20"><asp:label id="LabelMissaoUnidade" runat="server">Missão:</asp:label></td> <td height="20"><asp:textbox id="TextboxMissaoUnidade" runat="server" Width="272px"></asp:textbox>&nbsp; </td> </tr> <tr> <td align="right" height="20"><asp:label id="LabelObjectivosUnidade" runat="server">Objectivos:</asp:label></td> <td height="20"><TEXTAREA id="TexAreaObj" rows="2" cols="20"> </TEXTAREA>&nbsp;</td> </tr> </table> <asp:validationsummary id="VSTelefone" runat="server"></asp:validationsummary></td> </tr> </table> <P><asp:button id="ButtonEnviarUnidade" runat="server" Text="Enviar"></asp:button>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <asp:button id="ButtonCancelar" runat="server" Text="Cancelar"></asp:button>&nbsp; </P> </td> </tr> como VB tenho o seguinte: Private Sub ButtonEnviarUnidade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEnviarUnidade.Click Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand Dim dr As SqlDataReader sqlString = "usp_inserirUnidades" 'Response.Write(sqlString) Try conn.Open() cmd = New SqlCommand(sqlString, conn) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add(New SqlParameter("@descr", TextBoxDescrUnidade.Text)) cmd.Parameters.Add(New SqlParameter("@tele", TextBoxTelefoneUnidade.Text)) cmd.Parameters.Add(New SqlParameter("@mail", TextBoxEMailUnidade.Text)) cmd.Parameters.Add(New SqlParameter("@miss", TextboxMissaoUnidade.Text)) 'cmd.Parameters.Add(New SqlParameter("@obj", TextBoxTesteObj.Text)) cmd.Parameters.Add(New SqlParameter("@miss", TexAreaObj.Text)) dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) TextBoxTelefoneUnidade.Text() = "" TextBoxEMailUnidade.Text() = "" TextboxMissaoUnidade.Text() = "" ' TextBoxTesteObj.Text() = "" 'dgInscritos.DataSource = dr 'dgInscritos.DataBind() Catch ex As Exception 'Response.Redirect("../perfil/errordb.aspx") Response.Write(ex.ToString) Finally If Not dr Is Nothing Then dr.Close() End If End Try End Sub mas da um erro a dizer que TexAreaObj não esta declarada alguém me pode dar uma ajuda?

Problema solucionado segue abaixo as alteraçoes para quem um dia tiver a mesma duvida se eu puder também esclarecer alguma coisa sempre o farei a quem necessite. Private Sub ButtonEnviarUnidade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEnviarUnidade.Click Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand Dim dr As SqlDataReader sqlString = "usp_inserirUnidades" 'Response.Write(sqlString) Try conn.Open() cmd = New SqlCommand(sqlString, conn) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add(New SqlParameter("@descr", TextBoxDescrUnidade.Text)) cmd.Parameters.Add(New SqlParameter("@tele", TextBoxTelefoneUnidade.Text)) cmd.Parameters.Add(New SqlParameter("@mail", TextBoxEMailUnidade.Text)) cmd.Parameters.Add(New SqlParameter("@miss", TextboxMissaoUnidade.Text)) cmd.Parameters.Add(New SqlParameter("@obj", TextBoxTesteObj.Text)) dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) 'dgInscritos.DataSource = dr 'dgInscritos.DataBind() Catch ex As Exception 'Response.Redirect("../perfil/errordb.aspx") Response.Write(ex.ToString) Finally If Not dr Is Nothing Then dr.Close() End If End Try End Sub

Ola bom dia a todos gostaria que me pudesem ajudar se fosse possivel vou tentar esclarecer a minha duvida. É assim tenho um formulario de inserção de dados que é o seguinte: <%@ Page Language="vb" AutoEventWireup="false" Codebehind="unidades.aspx.vb" Inherits="gaapi.unidades"%> <%@ Register TagPrefix="uc1" TagName="topo" Src="topo.ascx" %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <title>proj</title> <meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR"> <meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE"> <meta content="JavaScript" name="vs_defaultClientScript"> <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema"> </HEAD> <body MS_POSITIONING="GridLayout"> <form id="Form1" method="post" runat="server"> <uc1:topo id="Topo1" runat="server" DESIGNTIMEDRAGDROP="94"></uc1:topo> <table height="500" cellSpacing="1" cellPadding="0" width="100%" align="center" border="0"> <tr vAlign="top"> <td> <table height="300" cellSpacing="1" cellPadding="0" width="100%" align="center" border="1"> <tr> <td vAlign="top" align="center" bgColor="#ffffff"><br> <span class="verdana10"> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="1"> <tr align="center"> <td bgColor="#f9e3a2" height="20">Nova Unidade</td> </tr> </table> <br> </span> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="1"> <tr align="center"> <td align="left" width="150" bgColor="#c4d8ea" height="20"> Dados da Unidade</td> </tr> <tr align="center"> <td bgColor="#ffffff" height="20"> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="0"> <tr> <td align="right"> </td> <td> </td> </tr> <tr> <td align="right" width="150" height="20"><asp:label id="LabelDescUnidade" runat="server">Nome:</asp:label></td> <td height="20"><asp:textbox id="TextBoxDescrUnidade" runat="server" Width="320px"></asp:textbox></td> </tr> <tr> <td style="HEIGHT: 24px" align="right" height="24"><asp:label id="LabelTelefoneUnidade" runat="server"> Telefone:</asp:label></td> <td style="HEIGHT: 24px" height="24"><asp:textbox id="TextBoxTelefoneUnidade" runat="server" Width="160px"></asp:textbox><asp:requiredfieldvalidator id="RFVTelefone" runat="server" ControlToValidate="TextBoxTelefoneUnidade" ErrorMessage="Informe o Telefone em Digitos">*</asp:requiredfieldvalidator></td> </tr> <tr> <td align="right" height="20"><asp:label id="LabelEmailUnidade" runat="server">E-Mail:</asp:label></td> <td height="20"><asp:textbox id="TextBoxEMailUnidade" runat="server" Width="256px"></asp:textbox> </td> </tr> <tr> <td align="right" height="20"><asp:label id="LabelMissaoUnidade" runat="server">Missão:</asp:label></td> <td height="20"><asp:textbox id="TextboxMissaoUnidade" runat="server" Width="272px"></asp:textbox> </td> </tr> <tr> <td align="right" height="20"><asp:label id="LabelObjectivosUnidade" runat="server">Objectivos:</asp:label></td> <td height="20"><TEXTAREA style="WIDTH: 280px; HEIGHT: 72px" rows="4" cols="32"> </TEXTAREA> </td> </tr> </table> <asp:validationsummary id="VSTelefone" runat="server"></asp:validationsummary></td> </tr> </table> <P><asp:button id="ButtonEnviarUnidade" runat="server" Text="Enviar"></asp:button> <asp:button id="ButtonCancelar" runat="server" Text="Cancelar"></asp:button> </P> </td> </tr> <tr align="center"> <td> <P> </P> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="1"> <tr align="center"> <td bgColor="#f9e3a2" height="20">Actualizar Unidades(DataGrid)</td> </tr> </table> <br> </SPAN> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="1"> <tr align="center"> <td align="left" width="150" bgColor="#c4d8ea" height="20"> Dados da Unidade</td> </tr> <tr align="center"> <td bgColor="#ffffff" height="20"> <table class="verdana10" cellSpacing="1" cellPadding="0" width="550" border="0"> <tr> <td align="right"> </td> <td> </td> </tr> <tr> <td align="right" width="150" height="20"><asp:label id="Label2" runat="server">Titulo Projecto:</asp:label></td> <td height="20"><asp:textbox id="Textbox3" runat="server" Width="320px"></asp:textbox></td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </form> </body> </HTML> e qd preencho o formulario e clico no botao enviar para enviar para a base de daos faço o seguinte: Private Sub ButtonEnviarUnidade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEnviarUnidade.Click Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connstring")) Dim sqlString As String Dim cmd As SqlCommand Dim dr As SqlDataReader sqlString = "usp_inserirUnidades" 'Response.Write(sqlString) Try conn.Open() cmd = New SqlCommand(sqlString, conn) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@TELEFONE_UNIDADE", SqlDbType.Int) cmd.Parameters("@DESCRICAO_UNIDADE").Value = TextBoxDescrUnidade cmd.Parameters("@TELEFONE_UNIDADE").Value = TextBoxTelefoneUnidade cmd.Parameters("@EMAIL_UNIDADE").Value = TextBoxEMailUnidade cmd.Parameters("@MISSAO_UNIDADE").Value = TextboxMissaoUnidade dr = cmd.ExecuteReader(CommandBehavior.CloseConnection) 'dgInscritos.DataSource = dr 'dgInscritos.DataBind() Catch ex As Exception 'Response.Redirect("../perfil/errordb.aspx") Response.Write(ex.ToString) Finally If Not dr Is Nothing Then dr.Close() End If End Try End Sub so que me surge um erro que é o seguinte : System.IndexOutOfRangeException: An SqlParameter with ParameterName '@DESCRICAO_UNIDADE' is not contained by this SqlParameterCollection. at System.Data.SqlClient.SqlParameterCollection.RangeCheck(String parameterName) at System.Data.SqlClient.SqlParameterCollection.get_Item(String parameterName) at gaapi.unidades.ButtonEnviarUnidade_Click(Object sender, EventArgs e) in c:\inetpub\wwwroot\gaapi\unidades.aspx.vb:line 67 a stored procedure que eu uso para inseriir tem o seguinte codigo: ALTER procedure dbo.usp_inserirUnidades @descr varchar(255), @tele int, @mail varchar(255), @miss varchar (255), @obj varchar(255) as insert into gaapi.UNIDADES (DESCRICAO_UNIDADE, TELEFONE_UNIDADE, EMAIL_UNIDADE, MISSAO_UNIDADE, OBJECTIVO_UNIDADE) values (@descr, @tele, @mail, @miss, @obj) o que há de errado alguém em pode ajudar?

Bom dia estou a utilizar o seguinte codigo SQL Function sql_reencaminharpara() dim sql sql = "SELECT * " & _ "FROM tbl_assuntoshelpdesk A " & _ " inner join tbl_empregados B on A.id_assuntoshelpdesk = B.id_assuntoshelpdesk " & _ "WHERE A.id_assuntoshelpdeskk = " & session("id_assuntoshelpdesk") & "" sql_reencaminharpara = sql End Function que depois é chamdo nesta pagina asp: <%@ LANGUAGE="VBSCRIPT" %> <%'******************************************************************************************* ' ' ficheiro: pedidoshelpedesk/processa-criar.asp ' '********************************************************************************************%> <!--#include file="../includes/main_page_header.asp"--> <% for each i in Request.Form session(i) = SQLEncode(Request.Form(i)) next If session("id_assuntoshelpdesk") = "" then Session("strErrorMessage") = Session("strErrorMessage") & "<br>" & dictLanguage("Erro_sem_assunto") End If if session("gravidade") = "" then Session("strErrorMessage") = Session("strErrorMessage") & "<br>" & dictLanguage("Erro_sem_gravidade") end if if session("descricao_pedidohelpdesk") = "" then session("descricao_pedidohelpdesk") = NULL end if If Session("strErrorMessage") <> "" then response.redirect "criarpedido.asp" End If sql = sql_empregadospedidos(employee_id) Call RunSQL(sql, rs) if not rs.eof then mail= rs("Email") End If sql = sql_InserirPedido( _ session("employee_id"), _ session("id_assuntoshelpdesk"), _ session("gravidade"), _ date(), _ session("estado_pedidohelpdesk"), _ mail, _ session("descricao_pedidohelpdesk")) Call DoSQL(sql) %> <!--#include file="../includes/main_page_open.asp"--> <% for each i in request.form session(i) = "" next %> <% ' Envio de mensagem de email DIM strName, strEmail, strReason, strComments, Mailer sql = sql_reencaminharpara() Call RunSQL(sql, rs) if not rs.eof then strEmail= rs("Email") End If Const cdoSendUsingPickup = 1 Const cdoSendUsingPort = 2 Const cdoAnonymous = 0 Const cdoBasic = 1 Const cdoNTLM = 2 Set Mailer = CreateObject("CDO.Message") Mailer.Subject ="HELP-DESK" Mailer.From = "acarlos@cm-braganca.pt" 'Quem envia Mailer.To = strEmail 'Quem recebe rs("USERName") & "@MyCompany.com" Mailer.TextBody = "Assunto: " & "assunto" & vbCrLf & _ "Gravidade: " & "gravidade" & vbCrLf & _ "Descrição: " & "descrição" Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Enter the domain SMTP address for your address" Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.cm-braganca.pt" Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False Mailer.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 Mailer.Configuration.Fields.Update Mailer.Send Set Mailer = Nothing %> <%response.redirect "default.asp"%><!--#include file="../includes/main_page_close.asp"--> so que me da sempre o mesmo erro de sql o erro q da é o seguinte : Error Occured: Error # -2147217900 Syntax error (missing operator) in query expression 'A.id_assuntoshelpdeskk ='. SQL = SELECT * FROM tbl_assuntoshelpdesk A inner join tbl_empregados B on A.id_assuntoshelpdesk = B.id_assuntoshelpdesk WHERE A.id_assuntoshelpdeskk = não estou conseguindo resolver alguém me poderia ajudar??? desde já um obrigado a todos

É isso mesmo falatavam as 'Pendente' esta tudo correcto agora obrigado pela ajuda qualqer duvida q possa esclarecer eu tentarei ajudar obrigadao a todos. Tópico Fechado