Ver Mensaje Individual
  #1 (permalink)  
Antiguo 07/05/2004, 17:22
heck0880
 
Fecha de Ingreso: marzo-2004
Ubicación: Mexico, d.f
Mensajes: 15
Antigüedad: 20 años, 10 meses
Puntos: 0
datalist update problema

Hola

Tengo el siguiente codigo que se implementa en un data list, pero no me permite editar, si alguien me puede dcir en que esta mal, se los agradeceria:

Uso web matrix, nose porque no me permite actualizar

<%@ Page Language="VB" Debug="True" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">

Public Sub Page_Load(obj As Object, e As Eventargs)
If Not Page.IsPostback then
BindData()
End If
End Sub

Public Sub BindData()

Dim conn as New SqlConnection("Data Source='(local)'; Integrated Security= SSPI; DataBase='Doctores'")

Conn.open()

Dim myDataAdapter As New SqlDataAdapter("SELECT * FROM Doctores ORDER BY ID DESC",Conn)

Dim DS As New DataSet()

myDataAdapter.Fill(DS,"Doctores")

Datalist3.Datasource = DS
Datalist3.DataBind()
conn.close()
End Sub

Sub Datalist3_EditCommand(obj As Object, e As DataListCommandEventargs)
Datalist3.EditItemIndex=e.Item.ItemIndex
BindData()

End Sub

Sub Datalist3_CancelCommand(obj As Object, e As DataListCommandEventargs)
Datalist3.EditItemIndex=-1
BindData()
End Sub



Sub Datalist3_UpdateCommand(obj As Object, e As DataListCommandEventargs)


Dim strNombre,strTelefono As String

strNombre=CType(e.Item.FindControl("txtNombre"),Te xtBox).text
strTelefono=CType(e.Item.FindControl("txtTelefono" ),TextBox).text

Dim strSql As String
strSql="UPDATE Doctores SET Nombre='" & strNombre & "' WHERE Nombre ='" & strNombre & "'"

Dim conn As New SqlConnection("Data Source='(local)';Integrated Security=SSPI; DataBase='Doctores'")

Dim comm as New SqlCommand(strSql,conn)
conn.open()
comm.ExecuteNonQuery()
conn.close()

Datalist3.EditItemIndex=-1
BindData()

End Sub

</script>
<html>
<head>
<link href="Style1.css" type="text/css" rel="stylesheet" align="center" />
</head>
<body>
<form runat="server">
<asp:DataList id="Datalist3" runat="server" DataKeyField="ID" OnUpdateCommand="Datalist3_UpdateCommand" OnCancelCommand="Datalist3_CancelCommand" OnEditCommand="Datalist3_EditCommand">
<HeaderTemplate>
<table class="tablestyle">
<tr>
<td align="center" bgcolor="#aaaa48">
<b>ID</b>
</td>
<td align="center" bgcolor="#aaaa48">
<b>Nombre</b>
</td>
<td align="center" bgcolor="#aaaa48">
<b>Telefono</b>
</td>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr>
<td align="center">
<%#Container.DataItem("ID")%>
</td>
<td align="center">
<%#Container.DataItem("Nombre")%>
</td>
<td align="center">
<%#Container.DataItem("Telefono")%>
</td>
</tr>
<tr>
<td>
<asp:Button id="lbtEdit" commandName="Edit" Text="Edit" runat="Server"></asp:Button>
</td>
</tr>
</ItemTemplate>
<EditItemTemplate>
<tr>
<td align="center">
<%#Container.DataItem("ID")%>
</td>
<td align="center">
<asp:TextBox id="txtNombre" text='<%#Container.DataItem("Nombre")%>' runat="Server"></asp:TextBox>
</td>
<td align="center">
<asp:TextBox id="txtTelefono" text='<%#Container.DataItem("Telefono")%>' runat="Server"></asp:TextBox>
</td>
</tr>
<tr>
<td>
<asp:Button id="cmdUpdate" commandName="Update" Text="Update" runat="Server"></asp:Button>
</td>

<td>
<asp:Button id="cmdCancel" commandName="Cancel" Text="Cancel" runat="Server"></asp:Button>
</td>
</tr>
</EditItemTemplate>
</asp:DataList>
</form>
</body>
</html>