INFORMATICA Y OCIO

kakashi hatake · Conociendo Foroz Registrado: 16 Jun 2009 Mensajes: 26

Hola a todos!!!
Acabo de ingresar a la cum, espero poder compartir muchos conocimientos con todos.

Bueno estoy haciendo un registro de inventario en asp.net con una webform.aspx, ya tengo el formulario y todo, pero quiero que al momento de dar click en agregar quiero que aparezca un cuadro de dialogo que diga "Se agrego correctamente" o si no una alerta que diga "Estan correcto los datos?" y tenga dos opciones aceptar y cancelar.

Espero y puedan ayudarme garcias..
saludos..

Dragon-Black · Publicado: Mar Jun 16, 2009 5:52 pm **Título del mensaje**:

eso que quieres creo que es una validacion con JavaScript???
_________________
Cuando bebas agua, recuerda la fuente

http://Blog.onZeroPK.es
Folow me on Twitter

Joder, It's My life !!!!

kakashi hatake · Conociendo Foroz Registrado: 16 Jun 2009 Mensajes: 26

En realidad validacion no solo que me muestre un mensaje de que se agrego con exito y ya al final que se refresque la pagina para que borre los campos de los texBox.

Dragon-Black · Publicado: Mie Jun 17, 2009 4:56 am **Título del mensaje**:

xD eso es JS, lo de borras los campos lo puedes hacer con JS y el mensaje con un alert();
_________________
Cuando bebas agua, recuerda la fuente

http://Blog.onZeroPK.es
Folow me on Twitter

Joder, It's My life !!!!

kakashi hatake · Conociendo Foroz Registrado: 16 Jun 2009 Mensajes: 26

A ok, sabes cual es el codigo? o nada mas pongo alert(); me habian dicho que la sintaxis para mostrar un cuadro es:

Response.Write = ("mensaje")

y para que refresque la pagina es:

Response.Rederict = ("defaul.aspx")

Pero no funciona como que en asp.net no permite dos sintaxis iguales en un mismo control, porque borro uno cualquiera de las 2 funciona, pero estando las dos no, mira te voy a mostrar mi codec de la ejecucion de un boton.

Protected Sub ib_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ib.Click
Dim comando As New SqlCommand
Dim adaptador As New SqlDataAdapter
Dim data As New DataSet

Try 'SIGNIFICA INTENTAR CORRER EL CODIGO QUE SE ENCEUNTRA DENTRO DEL TRY

con.Open() 'NO OLVIDEMOS TODOS ESTOS PARA METROS PARA PONER UNA SINTAXIS SQL
comando.Connection = con
comando.CommandType = CommandType.Text

comando.CommandText = "insert into tbl_inventario (hardware,marca,serie,[fecha de compra],observaciones,sucursal) values (@tiphar,@marc,@ser,@fech,@obser,@sucu)"
comando.Parameters.Add(New SqlParameter("@tiphar", (DD1.SelectedItem.Text)))
comando.Parameters.Add(New SqlParameter("@marc", (DD2.SelectedItem.Text)))
comando.Parameters.Add(New SqlParameter("@ser", (txt2.Text)))
comando.Parameters.Add(New SqlParameter("@fech", (txt3.Text)))
comando.Parameters.Add(New SqlParameter("@obser", (txt4.Text)))
comando.Parameters.Add(New SqlParameter("@sucu", (DD3.SelectedItem.Text)))

comando.ExecuteNonQuery()
Catch ex As Exception
msg.Text = ("Error:" & ex.Message) 'ESTE NOS MUESTRA SI ENCUENTRA UN ERROR Y NOS MUESTRE EN PANTALLA EL ERROR
Finally
' msg.Text = "Muestra el mensaje cuando exista un error de conexion"
con.Close()
DD1.SelectedIndex = 0
DD2.SelectedIndex = 0
txt2.Text = ""
txt3.Text = ""
txt4.Text = ""
DD3.SelectedIndex = 0

End Try ' AQUI FINALIZAMOS EL TRY
Response.Write("<script>window.alert('Se agrego con Exito');</script>") 'Este funciona en aplicacion abre un dialogo

Response.Redirect("default.aspx")
End Sub

	Índice del Foro Foroz comunity :: Webmasters	Todas las horas están en GMT + 1 Hora
Página 1 de 1