Vb.net7sqlserver

hpires24 · Agosto 4, 2006

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>

</HEAD>

<uc1:topo id="Topo1" runat="server" DESIGNTIMEDRAGDROP="94"></uc1:topo>

<td>

<tr>

<td bgColor="#f9e3a2" height="20">Nova Unidade</td>

</tr>

</table>

<br>

</span>

<td align="left" width="150" bgColor="#c4d8ea" height="20"> Dados da

Unidade</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<td style="HEIGHT: 24px" align="right" height="24"><asp:label id="LabelTelefoneUnidade" runat="server"> Telefone:</asp:label></td>

</tr>

<tr>

</td>

</tr>

<tr>

<td align="right" height="20"><asp:label id="LabelMissaoUnidade" runat="server">Missão:</asp:label></td>

</td>

</tr>

<tr>

<td align="right" height="20"><asp:label id="LabelObjectivosUnidade" runat="server">Objectivos:</asp:label></td>

</td>

</tr>

</table>

<asp:validationsummary id="VSTelefone" runat="server"></asp:validationsummary></td>

</tr>

</table>

<asp:button id="ButtonCancelar" runat="server" Text="Cancelar"></asp:button>

</P>

</td>

</tr>

<td>

<td bgColor="#f9e3a2" height="20">Actualizar Unidades(DataGrid)</td>

</tr>

</table>

<br>

</SPAN>

<td align="left" width="150" bgColor="#c4d8ea" height="20"> Dados da

Unidade</td>

</tr>

<tr>

</tr>

<tr>

<td align="right" width="150" height="20"><asp:label id="Label2" runat="server">Titulo Projecto:</asp:label></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?

hpires24 · Agosto 4, 2006

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

Entrar

Vb.net7sqlserver

Pergunta

hpires24

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

hpires24

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades