ASP.NET - Actualizar base de datos con boton

   
Vista:

Actualizar base de datos con boton

Publicado por alakrancita (1 intervención) el 18/05/2012 22:09:24
Buen día, espero me puedan ayudar ya que soy principiante en prog.

Tengo un gridview que muestra una lista la cual debe ser exportada a excel al seleccionar EXPORTAR. Tambien quiero que los usuarios seleccionen una fila del gridview y al clickear en BOTON RESERVAR actualice la base de datos, todo funciona bien excepto por lo del boton de reserva donde están las ultimas lineas de codigo... este es mi código:


Imports System.Data.SqlClient
Imports System.Data
Imports System.IO

Partial Class _Default
Inherits System.Web.UI.Page
Dim strCn As String = "Data Source=00526;Initial Catalog=****;User ID=****;Password=******
Dim query1 As String
Dim query As String
Dim queryupdate As String



Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

'EXPORTAR A EXCEL'

Dim sb As StringBuilder = New StringBuilder()
Dim sw As IO.StringWriter = New IO.StringWriter(sb)
Dim htw As HtmlTextWriter = New HtmlTextWriter(sw)
Dim pagina As Page = New Page
Dim form = New HtmlForm
GridView1.EnableViewState = False
pagina.EnableEventValidation = False
pagina.DesignerInitialize()
pagina.Controls.Add(form)
form.Controls.Add(GridView1)
pagina.RenderControl(htw)
Response.Clear()
Response.Buffer = True
Response.ContentType = "application/EXCEL"
Response.AddHeader("Content-Disposition", "attachment;filename=SOCIEDADES.xls")
Response.Charset = "UTF-8"

Response.ContentEncoding = Encoding.Default
Response.Write(sb.ToString())
Response.End()

'EXPORTAR A EXCEL'


End Sub

Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlJur.SelectedIndexChanged

'LLENA EL DROPLISTBOX DE JURISDCCIÓN'

If DdlJur.Text = "Todos" Then
query = "select * from usuarios where reservada = 'N'"
ElseIf DdlJur.Text = "Contabilidad" Then
query = "select * from usuarios where depto = 'Conta' and reservada = 'N'"
ElseIf DdlJur.Text = "Sistemas" Then
query = "select * from usuarios where depto = 'Sistemas' and reservada = 'N'"
End If
dg()

'LLENA EL DROPLISTBOX'

End Sub

'MOSTRAR DATOS EN EL GRIDVIEW'

Sub dg()
Dim cnn As SqlConnection
Dim da As SqlDataAdapter
Dim ds As DataSet
cnn = New SqlConnection(strCn)
cnn.Open()
da = New SqlDataAdapter(query, cnn)
ds = New DataSet
Try
da.Fill(ds)
GridView1.DataSource = ds
GridView1.DataBind()
Catch ex As Exception
MsgBox(da.Fill(ds))
End Try
cnn.Close()

'MOSTRAR DATOS EN EL GRIDVIEW'

End Sub

Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound

'SELECCIONAR FILA CON COLOR EN EL GRIDVIEW'

If e.Row.RowType = DataControlRowType.DataRow Then

e.Row.Attributes.Add("OnMouseOver", "On(this);")
e.Row.Attributes.Add("OnMouseOut", "Off(this);")
e.Row.Attributes("OnClick") = Page.ClientScript.GetPostBackClientHyperlink(Me.GridView1, "Select$" + e.Row.RowIndex.ToString)

End If

'SELECCIONAR FILA CON COLOR EN EL GRIDVIEW'

End Sub



Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

If Button2.CommandName = "Update" Then
queryupdate = "update usuarios set reservada = 'Y' where '" & GridView1.SelectedValue & "'"
End If
End Sub
Volver arriba
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Actualizar base de datos con boton

Publicado por vazagho (79 intervenciones) el 26/05/2012 20:20:06
dale una ojeada a este tuto

programacioncapas.blogspot.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar