que tal soy nuevo en el foro y programando en asp estoy haciendo una tarea donde tengo que dar de alta, baja, consulta y actualizar(modificar) datos, ahora bien ya puedo hacer las primeras 3 cosas solo tengo un problema a la hora de actualizar mis datos les escribo el codigo con su error:
Código:
Imports System.Data.SqlClient
Partial Public Class modificacionusuarios
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btnbuscar2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnbuscar2.Click
Try
Me.SqlDataSource1.SelectParameters("nombre").DefaultValue = Me.txtmodificar.Text
Me.SqlDataSource1.DataSourceMode = SqlDataSourceMode.DataReader
Dim datos As SqlDataReader
datos = Me.SqlDataSource1.Select(DataSourceSelectArguments.Empty)
(aqui me marca el error) If datos.Read Then (Referencia a objeto no establecida como instancia de un objeto.)
Me.txtmodificaclave.Text = datos("clave")
Me.txtmodificamail.Text = datos("mail")
Else
Me.lblmensaje4.Text = "No existe dicho usuario"
End If
Catch ex As SqlException
Me.lblmensaje4.Text = ex.Message
End Try
End Sub
Protected Sub btnmodificar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnmodificar.Click
Try
Me.SqlDataSource1.UpdateParameters("clave").DefaultValue = Me.txtmodificaclave.Text
Me.SqlDataSource1.UpdateParameters("mail").DefaultValue = Me.txtmodificamail.Text
Me.SqlDataSource1.UpdateParameters("nombre").DefaultValue = Me.txtmodificar.Text
Dim cant As Integer
cant = Me.SqlDataSource1.Update()
If cant = 1 Then
Me.lblmensaje5.Text = "Se modificaron los datos"
Else
Me.lblmensaje5.Text = "No existe dicho usuario"
End If
Catch ex As SqlException
Me.lblmensaje5.Text = ex.Message
End Try
End Sub
End Class
alguna sugerencia?