buenas...
Estoy tratando de hacer un formulario de actualizacion basandome en un codigo que saque de una pagina de internet, otras veces ya me habia funcionado pero ahora no que que pasa que no me actualiza nada.
y por eso recurro a su valiosa ayuda, la onda es asi....
La pagina toma un valor de otra por medio de el bloque Try - Catch y que le debe de servir como ID para realizar la actualizacion de el registro.
Este es codigo que no me funciona:
Imports System.Data.OleDb
Imports System.Data
Partial Class evaluacion
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Using conn As New OleDbConnection(Me.AccessDataSource1.ConnectionStr ing)
Dim cmd As New OleDbCommand("select id from calificacion whare id = @id", conn)
conn.Open()
cmd.Parameters.AddWithValue("@id", Me.tb_rep.Text)
Dim i As Integer
If i = 0 Then
Me.lb_aviso3.Text = "prueba"
Exit Sub
End If
cmd = New OleDbCommand(Me.AccessDataSource1.UpdateCommand, conn)
cmd.Parameters.AddWithValue("@p1", Me.tb_p1.Text)
cmd.Parameters.AddWithValue("@p2", Me.tb_p2.Text)
cmd.Parameters.AddWithValue("@p3", Me.tb_p3.Text)
cmd.Parameters.AddWithValue("@p4", Me.tb_p4.Text)
cmd.Parameters.AddWithValue("@p5", Me.tb_p5.Text)
cmd.Parameters.AddWithValue("@comentarios", Me.tb_comentarios)
cmd.Parameters.AddWithValue("@id", i)
cmd.ExecuteNonQuery()
End Using
Me.lb_aviso3.Text = " -- Gracias por su evaluacion --"
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
Me.tb_rep.Text = CType(Me.Page.PreviousPage.FindControl("tb_rep"), TextBox).Text.ToString
Catch ex As NullReferenceException
Me.tb_rep.Text = ""
End Try
Me.tb_p1.Focus()
End Sub
End Class
Saludos y muchas gracias
