Actualizar Datalist En Vb Aqui Va Mi Codigo

[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

[RootK]

Hola nuevamente luz elena... al ver tu code.. estoy notando que tienes algunos errores, y si me pongo a explicarte c/u de ellos me voy a llevar todo el día... mejor te mando un link para que te des una mejor idea de como utilizar tu datalist.

http://www.ondotnet.com/pub/a/dotnet.../datalist.html


Como un comentario mas,.. en la version Net ya no es necesario que utilices el ADO de antes..

Dim sql1 As String = "select * from discrepancia"
consql1 = New ADODB.Connection()

Ya lo haces con dataAdapters y DataReaders... (ADO.NET).

Pero bueno.. cualquier cosa.. por aqui andaremos.

Saludos

[RootK]

Por cierto.. creo que podrías poner éste tipo de post en el foro de Net, sirve que ves algunos otros ejemplos que hay por ahí....