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]