p2p.wrox.com Forums

Need to download code?

View our list of code downloads.


  Return to Index  

aspx_espanol thread: problema al modificar dataset...


Message #1 by "Abiezer Matos" <negrabichuela@y...> on Thu, 10 Oct 2002 16:05:10
perfecto muchas gracias me funciono a la perfeccion.
lo puse en el page_load antes de todo.

> 
Creo que te sucede por que cuando le das al boton Button1_Click te 
recarga 
de nuevo el formulario pon
if not is Postback o algo asi.

Espero que te sirve.






hola, se que he preguntado mucho ultimamente pero para esto es el foro ^_^

yo hago una consulta relacionando unas tablas luego le paso los datos a
una pagina para modificarlos pero cuando trato de guardar los datos esta
solo me guardo los que le envie osea no me guarda mis modificaciones,
aqui les va el codigo::

'codigo de la page que recibe y supuestamente los modifica
Sub Page_Load(Sender As Object, E As EventArgs)

        Dim DS As DataSet
         Dim MyConnection As SqlConnection
         Dim MyCommand As SqlDataAdapter

         Dim SelectCmd As String = "select t.Asunto, t.Producto,
t.Descripcion, t.Fecha "  _
                          & "from Requisicion t inner join
Estatus_requisicion ta on t.requisicionID = ta.requisicionID " _
                          & "where  ta.requisicionID=@Id"

         MyConnection = New SqlConnection("server='SQL2000'; user id='sa';
password=''; Database='Helpdesk'")
         MyCommand = New SqlDataAdapter(SelectCmd, MyConnection)

         MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@Id",
SqlDbType.NVarChar, 11))
         MyCommand.SelectCommand.Parameters("@Id").Value =
Request.QueryString("id")

         DS = new DataSet()
         MyCommand.Fill(ds, "requisicion")

         txtAsunto.Text = DataBinder.Eval(ds, "Tables
[Requisicion].DefaultView.[0].Asunto")
         txtProducto.Text = DataBinder.Eval(ds, "Tables
[Requisicion].DefaultView.[0].Producto")
         txtDescrip.Text = DataBinder.Eval(ds, "Tables
[Requisicion].DefaultView.[0].Descripcion")
         txtFecha.Text = DataBinder.Eval(ds, "Tables
[Requisicion].DefaultView.[0].Fecha")

End Sub



Sub Button1_Click(sender As Object, e As EventArgs)

    If Insertar(txtAsunto.Text, txtProducto.Text, txtDescrip.Text,
txtFecha.Text, User.Identity.Name) <> 0

         MsgBox("Datos insertados",MsgBoxStyle.OKOnly,"Felicidades..")
         txtFecha.Text = DateTime.Now

     else
         MsgBox("Error al insertar datos",MsgBoxStyle.OKOnly, "Error en
transaccion")

     End If


End Sub


Function Insertar(ByVal Asunto As String, ByVal Producto As String, ByVal
Descip As String, Byval Fecha As String, Byval Usuario As String) As
Integer
         Dim connectionString As String = "server='SQL2000'; user id='sa';
password=''; Database='Helpdesk'"
         Dim sqlConnection As System.Data.SqlClient.SqlConnection = New
System.Data.SqlClient.SqlConnection(connectionString)

         Dim queryString As String = "INSERT INTO [Requisicion] ([Asunto],
[Producto], [Descripcion], [Fecha], [Usuario"& _
"]) VALUES (@Asunto, @Producto, @Descrip, @Fecha, @Usuario)"
          Dim sqlCommand As System.Data.SqlClient.SqlCommand = _
         New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

     sqlCommand.Parameters.Add("@Asunto",
System.Data.SqlDbType.VarChar).Value = _
         Asunto

     sqlCommand.Parameters.Add("@Producto",
System.Data.SqlDbType.VarChar).Value = _
         Producto

     sqlCommand.Parameters.Add("@Descrip",
System.Data.SqlDbType.VarChar).Value = _
         Descip

     sqlCommand.Parameters.Add("@Fecha",
System.Data.SqlDbType.VarChar).Value = _
         Fecha

     sqlCommand.Parameters.Add("@Usuario",
System.Data.SqlDbType.VarChar).Value = _
         Usuario


     Dim rowsAffected As Integer = 0
     sqlConnection.Open

     Try
         rowsAffected = sqlCommand.ExecuteNonQuery
     Finally
         sqlConnection.Close
     End Try

     Return rowsAffected

End Function
---
Usted está suscrito a aspx_espanol como:
l_didac@h...
Para darse de baja, envíe un mensaje en blanco a
%%email.unsub%%

---
Change your mail options at http://p2p.wrox.com/manager.asp or
to unsubscribe send a blank email to 





_________________________________________________________________
Charle con sus amigos online usando MSN Messenger: 
http://messenger.msn.com


  Return to Index