como actualizar un datalist!! en VB

[luz elena]

porfavor, estoy utilizando visual studio. net y necesito actualizar una tabla de sql por medio de un datalist, de manera q al darle en el boton editar, 2 campos aparezcan. los llene con las nueva informacion, y despues al boton update para que esos datos se actualicen en la base de datos. ES URGENTE!!!!

[RootK]

Bueno.. para empezar dentro de tu datalist debes tener algo como esto para cuado edites.

<asp:datalist id="DataList1" runat="server"...
....
...
..

<EditItemTemplate>
Algun Texto<asp:TextBox Text='<%# Container.DataItem("campo1") %>' ID="txt1 " runat=server /><br>
Otro Text<asp:TextBox Text='<%# Container.DataItem("campo2") %>' ID="txt2 " runat=server /><br>

<asp:LinkButton CommandName="Cancel" runat="server">Cancel</asp:LinkButton>
<asp:LinkButton CommandName="Update" Runat="server">Actualizar</asp:LinkButton>
</EditItemTemplate>

</datalist>

con ello ya indicaste que cuando editen los datos se carguen en dos textbox con un linkbutton que es para cancelar y otro para hacer la actualzacion...

En cuanto al código podría quedar algo como esto:

Private Sub DataList1_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs ) Handles DataList1.CancelCommand
BindDataList(-1)
End Sub

Private Sub DataList1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs ) Handles DataList1.UpdateCommand

Dim txt1 As String = CType(e.Item.FindControl("txt1"), TextBox).Text
Dim txt2 As String = CType(e.Item.FindControl("txt2"), TextBox).Text

Dim strUpdate As String

strUpdate = "update Tabla set campo1='" & txt1 & "'" & _
", campo2='" & txt2 & "'

'codigo para insertar los valores
...
...

BindDataList(-1)
End Sub

Donde BindDataList() va a ser un procedimiento para llenar mi datalist al hacer cualquier tipo de cambio.. y sería algo como ésto:

Private Sub BindDataList(ByVal dtIndex As Integer)
DataList1.EditItemIndex = dtIndex
DataList1.DataSource = 'aqui pongo el reader o el dataset que previamente ya llene...
DataList1.DataBind()

End Sub

Espero que te sirva éste ejemplo.. a mi parecer lo considero bastante claro.

Saludos

[luz elena]

Muchas gracias espero q funcione (esto unido con el codigo con el que ya contabamos) aunque si es muy entendible gracias por tomarte la molestia de contestarnos.

[luz elena]

EL EJEMPLO Q ME MANDARON ES MUY PARECIDO A LO Q ESTABA HACIENDO, PERO NO FUNCIONA, AQUI VA MI CODIGO, DE TODAS MANERAS NO SE SI LE FALTA ALGUNA PROPIEDAD AL EDIT TEMPLATE DEL DATALIST.


y aparte quisiera saber como actualizar un campo pero q esta en un dropdownlist dentro del datalist!!!!!!!!!!!!!!!!!!!!
TENGO Q TERMINAR EL PROYECTO YA!!!!
PORFAVOR AYUDA!!!!
ESPERO Q ME AYUDEN


Private Sub Datalist3_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs ) Handles Datalist3.EditCommand
Datalist3.EditItemIndex = e.Item.ItemIndex
Datalist3.DataBind()
End Sub

Private Sub Datalist3_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs ) Handles Datalist3.CancelCommand
BindDataList(-1)
End Sub

Private Sub Datalist3_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs ) Handles Datalist3.UpdateCommand
Dim sql1 As String = "select * from discrepancia"
consql1 = New ADODB.Connection()
consql1.Open("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SISTEMASNYL;Data Source=DGO-SRVFILES;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=SISTEMASDGO;Use Encryption for Data=False;Tag with column collation when possible=False")
rssql1 = New ADODB.Recordset()
rssql1.Open(sql1, consql1, 2, 3)

//txt1=textbox para editar
//observ_compras=mi campo en sql que quiero actualizar

Dim txt1 As String = CType(e.Item.FindControl("observ_compras"), TextBox).Text
Dim txt2 As String = CType(e.Item.FindControl("fecha_compras"), TextBox).Text
Dim strupdate As String
'strupdate = "update discrepancia set observ_compras= ' " & txt1 & " ' " & "fecha_compras= ' " & txt2 & " ' "
strupdate = "update discrepancia set fecha_compras= ' " & txt2 & " ' "
strupdate = "update discrepancia set observ_compras= ' " & txt1 & " ' "
'
'codigo para insertar valores

rssql1.Fields("observ_compras").Value = txt1.
rssql1.Fields("fecha_compras").Value = txt2.ToString

BindDataList(-1)
End Sub

Private Sub BindDataList(ByVal dtIndex As Integer)
Datalist3.DataSource = Dataset11
Datalist3.DataBind()
End Sub


__________________
luz elena
[email protected]